fork download
copy 
  1. <>;
  2. while(<>){
  3. 	chomp;
  4. 	$n = join'',(0..9);
  5. 	$n =~ s/[$_]//g;
  6. 	print $n ne ''? $n: allo, "\n"
  7. 	}
Success #stdin #stdout 0s 3564KB
comments (?)
stdin
copy 
655265
12
0326159847
0005628
stdout
copy 
03456789
allo
13479
https://ideone.com/aZoK05
language:
Perl (perl 5.28.1)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!