Front page | perl.fwp |
Postings from January 2002
even.pl solutions
Thread Next
From:
Andrew.Savige
Date:
January 28, 2002 15:01
Subject:
even.pl solutions
Message ID:
694BB7191495D51183A9005004C0B05452DBA5@ir-exchange-srv.ir.com.au
aaron Aaron Trickey
ala Ala Qumsieh
assel Michael Assels
bart Bart Lateur
bob Best of Breed
book BooK
bouv Cedric Bouvier
briac Briac Pilpre
byng Matthew Byng-Maddick
byron Byron Jones
darli Wesley Darlington
eugen Eugene van der Pijll
evan Evan A Zacks
gask Patrick Gaskill
honza Honza Pazdziora
hoov Dave Hoover
ivey Keith C Ivey
jason Jason Henry Parker
jasp Jasper McCrea
jeff Jeff Helman
joerg Joerg Ziefle
jones Bill Jones
josh Josh Shulz
kimb Ronald J Kimball
klem Rick Klement
kwok Kwok Chern Yue
lian Lian Claudiu Sebe
lowe David Lowe
makho Peter Makholm
mcgli Alistair McGlinchy
myers Rick Myers
olson Daryl Olson
paton Jonathan E Paton
phil Phil Radden
piers Piers Cawley
qing Qingning Huo
quel Jerome Quelin
rjcox rjcox
ruiz Roberto Ruiz
scott Peter Scott
sean Sean McAfee
sthoe sthoenna
suter Mark Suter
ton Ton Hospel
tony Anthony J Breeds-Taurima
turn Stephen Turner
vidal Jean-Pierre Vidal
wesse Scott Wessels
yanic Yanick
yee Tim Gim Yee
yenya Jan "Yenya" Kasprzak
yoak Jeff Yoak
-p $_ x=1&~$.&split$&while aeiouy=~/.?/g 40 eugen
-p for$a(/[aeiouy]?/g){$_ x=1&~$.&split$a} 42 bob
-p $_ x=1&~s/$&/$&/g&~$.while aeiouy=~/.?/g 43 eugen
-p $_ x=1&~$.&~s/$&/$&/gwhile'aeiouy.'=~/./g 44 klem
-p $_ x=1&~$.&~s/$1/$&/gwhile'aeiouy.'=~/(.)/g 46 klem
-ln 1&eval"$.@{[<|y|{a,e,i,o,u,y,}||c>]}"||print 48 bob
-p for$a('aeiouy.'=~/./g){$_ x=1&~$.&~s/$a/$&/g} 48 klem
-n $==$.&1;$=^=7
..y*yuoeia***ord
for/./g;$=||print 50 ivey
-p for$a(qw(a e i o u y .)){$_ x=1&~$.&~s/$a/$&/g} 50 klem
-ln ($a=aeiouy)=~s!!--&~y-!g;eval"\$|$a--c&&print" 50 ton
-p for$a(".aeiouy"=~/./g){$_=""if(@{[/$a/g]}|$.)&1} 51 bob
-p for$a(-aeiouy=~/./g){$_=''if eval"$.|~y/$a//c"&1} 52 bob
-p $_ x=1&~eval$..join'__|y _y',_,a,e,i,o,u,Y,'
__c' 52 eugen
-ln $%=($.|y|||c)&1;$%^=ord for/[yuoeia]/g;$%||print 52 ivey
-n ($a=aeiouy)=~s!!//|1&y/!g;eval"$.&$a//c-1||print" 52 ton
-nl 1&eval"$.@{[map<|y/$_//>,/[aeiouy]?/g]}c"||print 52 yee
-p ($,="aeiouy
")=~s:.:|y/$&//:gs;$_ x=~eval"$.$,c"&1 53 aaron
-p ($,="aeiouy
")=~s#.#|y|$&||#sg;$_
x=1&~eval"$.$,c" 53 darli
-p $_ x=1&~eval join'*//|y/y',S,e,Q,u,o,i,a,'
//c|$.' 53 eugen
-nl s/|[aeiouy]/"y!$&!!c%2|$.%2&&next;'$&'"/gee;print 53 honza
-ln $%=$.&1;$%^=ord for/[yuoeia]/g;$%||1&y|||c||print 53 ivey
-n ($a=aeiouy)=~s!!//|1&y/!g;eval"$.&$a'//c-1||print" 53 ton
-nl 1&eval(join qw(//|y/ $.* a e i o u y //c))||print 53 yenya
-n $q=0;$q^=ord for/[aeiouy]/g;$q|($.|~y///c)&1||print 54 aaron
-n ($a=aeiouy)=~s##|||y|#g;1&eval"$.|y|a-z$a||"||print 54 byng
-n ($,="aeiouy
")=~s#.#|y/$&//#sg;1&eval"$.$,c"||print 54 darli
-ln $%=($.|y|||c)&1;$%^=7+ord for/[yuoeia]/g;$%||print 54 ivey
-p for(;aeiouy=~/./g;){$_ x=1&~eval"$.|~y///c|y/$&//"} 54 jason
-p for$v(aeiouy=~/./g){$_ x=1&~eval"$.|~y///c|y/$v//"} 54 jason
-nl 1&eval join qw(//|y/ $.|y/a e i o u y //c)or print 54 makho
-n ($v="aeiouy
")=~s#.#|y/$&//#sg;1&eval"$.$v".c||print 55 darli
-ln $%=0;$%^=ord for/[yuoeia]/g;$%||1&($.|y)))c)||print 55 ivey
-p for$a(qw(a e i o u y a-z)){$_ x=1&~$.&~eval"y/$a//"} 55 klem
-n 1&eval join qw(//|y/ $.|y/a e i o u y a-z//)or print 55 makho
-n $k=1&($.|y/a-z//);$k^=9*ord for/[aeiouy]/g;$k||print 55 mcgli
-ln 1&eval join'|||y|',qw/$.|y|a e i o u y ||c/or print 55 sean
-nl $x=$.%2;map{$x^=4*2**index aeiouy,$_}/./g;$x||print 55 turn
-p $x=$.;for$a('aei.ouy'=~/./g){$x|=@m=/$a/g}$_
x=~$x&1 55 yanic
-nl 1&eval qq{$.@{[map"|y/$_//",/[aeiouy]?/g]}c}||print 55 yee
-nl 1&eval(join qw(//|y/ $.* a e i o u y a-z//))||print 55 yenya
-p eval sprintf'$_=""if($.|~y&%s&&c)&1;'x7,Zyoueia=~/./g 56 bob
-n ($a='aeiouy')=~s##|||y|#g;1&eval"$.|y|a-z$a||"||print 56 byng
-n 1&eval"y/".join("//|y/",/[aeiouy
]/g)."//c|$."||print 56 darli
-p $_=''if 1&eval join'!//|y/y','',a,e,i,o,u,Y,'
//c|$.' 56 eugen
-ln $"='//|y/';eval"$.|y/@{[aeiouy=~/.?/g]}//c"&1||print 56 kimb
-p for$a(aeiouy=~/./g){$_
x=1&~($.|y/
//c|eval"y/$a//")} 56 klem
-ln ($,='aeiouy1')=~s#.#|y/$&//#g;eval"($.$,c)&1||print" 56 olson
-ln eval join'|||y|',qw/1&($.|y|a e i o u y ||c)||print/ 56 sean
-nl ($a=aeiouy)=~s!.*?!|y/$&//c&1|!g;eval"--\$|$a|print" 56 ton
-p $_ x=$|--&y|||c&~(y|a|||y|e|||y|i|||y|o|||y|u|||y|y||) 57 klem
-n eval join qw(//%2|y/ $.%2|y/a-z a e i o u y //||print) 57 makho
-nl ($a=aeiouy)=~s!.*?!y/$&//c&1|!g;eval"$a|\$.&1||print" 57 ton
-p $_ x=~($.|~y///c|y/a//|y/e//|y/i//|y/o//|y/u//|y/y//)&1 58 jason
-p $_=""if(s///g|$.|y/a//|y/e//|y/i//|y/o//|y/u//|y/y//)&1 58 mcgli
-nl $x=$.;for$0qw|a e i o u y .|{$x|=s|$0|$&|g}$x&1||print 58 qing
-n ($.|y/a//|y/e//|y/i//|y/o//|y/u//|y/y//|~y///c)&1||print 59 aaron
-nl ($.|y|||c|y|a|||y|e|||y|i|||y|o|||y|u|||y|y||)&1||print 59 bart
-ln 1&($.|y|||c|y|a|||y|e|||y|i|||y|o|||y|u|||y|y||)||print 59 bob
-ln eval(join'//%2+y/',qw!$.%2+y/a e i o u y //c%2!)||print 59 book
-n ($a="aeiouy")=~s#.#y|$&|||#g;1&eval$a.($.|~y|||c)||print 59 byng
-n 1&($.|~y|||c|y|a|||y|e|||y|i|||y|o|||y|u|||y|y||)||print 59 byng
-ln 1&($.|y|o|||y|e|||y|u|||y|a|||y|i|||y|y|||y|||c)||print 59 ivey
-n ($.|~y///c|y/a//|y/e//|y/i//|y/o//|y/u//|y/y//)&1||print 59 jason
-ln ($.|y///c|y/a//|y/e//|y/i//|y/o//|y/u//|y/y//)&1||print 59 kimb
-n ($.|y/
//c|y/a//|y/e//|y/i//|y/o//|y/u//|y/y//)&1||print 59 klem
-n eval join qw(//%2||y/ $.%2||y/a-z a e i o u y //||print) 59 makho
-ln ($.|y///c|y/a//|y/e//|y/i//|y/o//|y/u//|y/y//)%2||print 59 myers
-ln ($.|y/a//|y/e//|y/i//|y/o//|y/u//|y/y//|y///c)&1||print 59 olson
-n ($.|y/a//|y/e//|y/i//|y/o//|y/u//|y/y//|y/
//c)&1||print 59 piers
-p $_=""if(~y///c|$.|y/a//|y/e//|y/i//|y/o//|y/u//|y/y//)&1 59 quel
-ln 1&($.|y|||c|y|a|||y|e|||y|i|||y|o|||y|u|||y|y||)||print 59 sean
-p $_=''if($.|y/a//|y/e//|y/i//|y/o//|y/u//|y/y//|y/
//c)&1 59 sthoe
-nl $x=$.%2;for$a(/./g){$x^=4*2**index'aeiouy',$a}$x||print 59 turn
-nl (length|$.|y/y//|y/a//|y/e//|y/i//|y/o//|y/u//)&1||print
60 ala
-nl (length|$.|y|a|||y|e|||y|i|||y|o|||y|u|||y|y||)&1||print
60 bart
-p 1&($.|~y|||c|y|a|||y|e|||y|i|||y|o|||y|u|||y|y||)&&y|||cd
60 byng
-n 1&eval"y/".join("//|y/",a,e,i,o,y=>u,"
")."//c|$."||print
60 darli
-nl my%h;$h{$_}++for/[aeiouy]/g;grep$_%2,%h,y///c,$.or print
60 evan
-nl (length|$.|y/a//|y/e//|y/i//|y/o//|y/u//|y/y//)&1||print
60 ruiz
-p $x=$.;for$a('aeiouy'=~/./g){$x|=@m=/$a/g}$_ x=~$x&1&y&&&c
60 yanic
-pl for$v qw(a e i o y u){eval"y/$v//|y///c|$."&1&&goto LINE}
61 jason
-p $x=$.;for$a('aeiouy'=~/./g){$x|=@m=/$a/g}$_ x=~$x&1&length
61 yanic
-nl my%h;map$h{$_}++,/[aeiouy]/g;grep($_%2,%h,y///c,$.)||print
62 evan
-p my%x;map$x{$_}++,/[aeiouy]/g;$_=''if grep$_%2,1+y///c,$.,%x
62 honza
-ln my%d;$d{$_}++for/[aeiouy]/g;(grep$_%2,length,$.,%d)||print
62 hoov
-nl $x=$.%2;for$a(split//){$x^=4*2**index'aeiouy',$a}$x||print
62 turn
-p my%v;$v{$_}++for/[aeiouy]/g;for$v(%v,$.,y/
//c){$_=""if$v%2}
63 darli
-pl for$v qw(a e i o y u){(eval"y/$v//|y///c|$.")&1&&goto LINE}
63 jason
-n $,='//%2||y/';eval"$.%2||y/a-z$,a$,e$,i$,o$,u$,y$,//||print"
63 makho
-lna while(s/(.)(.*)\1/$2/){}$.%2||/[aeiouy]/||y///c%2||print@F
63 phil
-p @a=map"y/$_//%2|",a,e,i,o,u,'y';$_=""if$.%2|eval"@a~y///c%2"
63 quel
-ln ($x=aeiouy)=~s#.#y/$&//|#g;eval("$x$.|y///c")%2&&next;print
63 scott
-ln $"='//%2+y/';eval"@{[qw!$.%2+y/a e i o u y //c%2!]}"or print
64 book
-p my%v;$v{$_}++for/[aeiouy]/g;for$v(%v,$.,y/a-z//){$_=""if$v%2}
64 darli
-nl eval join'&1or ',$.,y///c,(map"y/$_//",a,e,i,o,y=>u),'print'
64 lowe
-n for$v(a,e,i,o,u,'y'){$_=""if s/$v/$v/g%2}$.%2||y///c%2&&print
64 phil
-p $_=""if$.%2|~y///c%2|eval join"|",map"y/$_//%2",a,e,i,o,u,'y'
64 quel
-ln ($.|y///c|y/a/a/|y/e/e/|y/i/i/|y/o/o/|y/u/u/|y/y/y/)&1||print
65 assel
-ln $"='//%2+y/';eval("@{[qw!$.%2+y/a e i o u y //c%2!]}")||print
65 book
-nal ((grep$F[0]=~s/$_//g%2,'aeiouy'=~/./g)>0|$.|length)&1||print
65 joerg
-nl (y/a//|y/e//|y/i//|y/o//|y/u//|y/y//)%2|y/a-z//%2|$.%2||print
65 kwok
-p $_=""if$.%2|~y///c%2|eval join"|",map"y/$_//%2",split//,aeiouy
65 quel
-p my%v;$v{$_}++for/[aeiouy]/g;for$v(%v,$.,-1+length){$_=""if$v%2}
66 darli
-nl grep($_%2,y/a//,y/e//,y/i//,y/o//,y/u//,y/y//,y///c,$.)||print
66 evan
-p $_=""if$.%2|~y///c%2|eval join"|",map"y/$_//%2",qw(a e i o u y)
66 quel
-ln ($.|y///c|eval join'|',map"y/$_//",aeiouy=~/./g)%2&&next;print
66 scott
-p ($.+1)*y/a
//*y/e
//*y/i
//*y/o
//*y/u
//*y/y
//*y///c%2or$_=''
66 turn
-p $x=($.+1)*length;for$y(yaeiou=~/./g){$x*=1+s/$y/$y/g}$x&1or$_=''
67 ala
-p my%v;$v{$_}++for/[aeiouy]/g;/\n/;for$v(%v,$.,$-[0]){$_=""if$v%2}
67 darli
-p for$V qw/a e i o u y/{$_=''if eval"y/$V//%2"||$.%2||!(y///c%2)};
67 jeff
-n $,='//,y/';(grep{$_%2}$.,eval"y/a-z$,a$,e$,i$,o$,u$,y//")||print
67 makho
-ln (grep{$_%2}$.,y/a//,y/e//,y/i//,y/o//,y/u//,y/y//,y///c)||print
67 phil
-n for$a(a,e,i,o,u,'y'){$_=''if(eval"y/$a//")%2}$.%2||y///c%2&&print
68 byron
-nl for$a(a,e,i,o,u,'y'){s/$a/$a/g%2&&next LINE}$.%2||y///c%2||print
68 evan
-p my%x;map{$x{$_}++}/[aeiouy]/g;$_=''if$.%2|/^(..)*.$/|grep{$_%2}%x
68 honza
-nal (grep{$F[0]=~s/$_//g%2}'aeiouy'=~/./g)|$.%2|length()%2?0:print
68 joerg
-p $_=""if$.%2|!(y///c%2)|eval join"|",map"y/$_//%2",qw(a e i o u y)
68 quel
-ln map$_%2&&next,$.,y///c,y/a//,y/e//,y/i//,y/o//,y/u//,y/y//;print
68 suter
-ln $"='//,y/';print if!grep{$_%2}eval"@{[qw!$.,y/a e i o u y //c!]}"
69 book
-ln $a=$_;(grep{$_%2}$.,y///c,map{$a=~s!$_!$_!g}a,e,i,o,u,'y')||print
69 book
-n map{$_%2&&next}$.,y/a//,y/e//,y/i//,y/o//,y/u//,y/y//,y/
//c;print
69 phil
-ln map{$_%2&&next}$.,y///c,y/a//,y/e//,y/i//,y/o//,y/u//,y/y//;print
69 suter
-p foreach$i(qw[a e i o u y]){$_=''if !(y///c%2)+$.%2+eval"y/$i//%2"}
69 tony
-n for$a(qw/a e i o u y/){$_=''if(eval"y/$a//")%2}$.%2||y///c%2&&print
70 byron
-nal !((grep{$F[0]=~s/$_//g%2}'aeiouy'=~/./g)|$.%2|length()%2)&&print
70 joerg
-ln map{$_%2&&next}$.,y///c,y/a//,y/e//,y/i//,y/o//,y/u//,y/y//;print;
70 suter
-n $a=join'',sort/[aeiouy]/g;$a=~s/(.)\1//g;$a||$.%2||length()%2&&print
71 hoov
-lnaF// $$_=0for(a..z);$$_^=1for(@F);$.%2|@F%2|$a|$e|$i|$o|$u|$y||print
71 myers
-p $_=""if$.%2||!(y///c%2)||eval join"||",map"y/$_//%2",qw(a e i o u y)
71 quel
-n for$a(qw/a e i o u y/){(eval"y/$a//")%2&&($_='')}$.%2||y///c%2&&print
72 byron
-nal !((grep{$F[0]=~s/$_//g%2}'aeiouy'=~/./g)||$.%2||length()%2)&&print
72 joerg
-nl $w=$_;map{next if$w=~s/$_//g%2}qw/a e i o u y/;$.%2|y/a-z//%2||print
72 kwok
-lnaF// $$_=0for(a..z);$$_^=1for(@F);$.%2|@F%2|$a|$e|$i|$o|$u|$y||print
72 myers
-ln @F=/./g;$a.="+(1&grep/$_/,\@F)"for'.aeiouy'=~/./g;1&$.|eval$a||print
72 paton
-n for$a(qw/a e i o u y/){(eval"y/$a//")%2&&($_='')}$.%2||tr///c%2&&print
73 byron
-n eval join"||",map("y/$_//%2",qw(a e i o u y)),qw(!(y///c%2) $.%2 print)
74 quel
-ln for$=qw(a e i o u y){eval"next LINE if(length)%2||$.%2||y/$=//%2"}print
75 briac
-p split'';grep$_%2,$#_,$.,map{$i=$_;$i=grep/$i/,@_}qw(a e i o u y)and$_=''
75 jasp
-n print if!(grep{$_%2}(++$i,y/a-z//,y/a//,y/e//,y/i//,y/o//,y/u//,y/y//));
75 makho
-na if(tr///c%2){tr/aeiouy//dc;1while s/(.)(.*)\1/$2/;$_||$.%2||print"@F\n"}
76 byron
-n print if!(y/a-z//%2|y/a//%2|y/e//%2|y/i//%2|y/o//%2|y/u//%2|y/y//%2|$.%2)
76 josh
-nl $w=$_;map{next if$w=~s/$_//g%2}qw/a e i o u
y/;!($.%2|length()%2)&&print
76 kwok
-nl $w=$_;map{next if$w=~s/$_//g%2}qw/a e i o u y/;!($.%2|length()%2)&&print
76 kwok
-n print if !(grep{$_%2}(++$i,y/a-z//,y/a//,y/e//,y/i//,y/o//,y/u//,y/y//));
76 makho
-lnaF// $a=$e=$i=$o=$u=$y=0;$$_^=1for(@F);$.%2|@F%2|$a|$e|$i|$o|$u|$y||print
76 myers
-n sub f{for$v(a,e,i,o,u,'y'){eval"y/$v//%2"&&return}print}$.%2-1&y///c%2&&f
76 wesse
-ln $a=$_;grep{$_&&$_&1}$.,length,map{$s=()=$a=~/($_)/g}a,e,i,o,u,'y'or
print
77 bouv
-n
$.%2||y/a-z//%2||do{my$a;for$v(split//,aeiouy){$a+=s/$v/$v/g%2}$a}||print
77 lian
-n print
if(length)%2&!($.%2|y/a//%2|y/e//%2|y/i//%2|y/o//%2|y/u//%2|y/y//%2)
77 rjcox
-n for$v($e=0,qw/a e i o u
y/){$e||=s/$v/$v/g%2}s/(.)/$1/g%2||$.%2||$e||print
77 vidal
-na if((length)%2){tr/aeiouy//dc;1while
s/(.)(.*)\1/$2/;$_||$.%2||print"@F\n"}
78 byron
-n print
if!(y/[a-z]//%2|y/a//%2|y/e//%2|y/i//%2|y/o//%2|y/u//%2|y/y//%2|$.%2)
78 josh
-n sub f{for$v qw/a e i o u
y/{eval"y/$v//%2"&&return}print}$.%2-1&&y///c%2&&f
78 wesse
-p for$x qw(a e i o u y){s/.*//s
if((eval"tr/$x/$x/")%2||$.%2||!((length)%2))}
78 yoak
-ln my%h;$h{$_}^=$_ for
split//;($.|y///c|"@{[values%h]}"=~/[aeiouy]/)&1||print
79 assel
-na if((length)%2){1while
s/([aeiouy])(.*)\1/$2/;/[aeiouy]/||$.%2||print"@F\n"}
79 byron
-n
y/a-z//%2||$.%2||y/a//%2||y/e//%2||y/i//%2||y/o//%2||y/u//%2||y/y//%2||print
79 gask
-na $.%2||int(join'',map{(@b="@F"=~/$_/g)%2}qw(a e i o u
y))||length()%2&&print
79 hoov
-paF// $#F+=9;'aeiouy'=~qr/$_/&&++$F[-$+[0]]for@F;$_=''if
grep$_&1,$.,@F,~y///c
79 sthoe
-na (length)%2||next;1while
s/([aeiouy])(.*)\1/$2/;/[aeiouy]/||$.%2||print"@F\n"
80 byron
-n for $y(qw/a e i o u y/){!($.%2)&&(1&length)&&!eval"y/$y//%2"||next
LINE}print
80 jones
-n
!(y///c%2)||$.%2||y/a//%2||y/e//%2||y/i//%2||y/o//%2||y/u//%2||y/y//%2||prin
t
80 quel
-paF// $#F+=9;'aeiouy'=~qr/$_/&&++$F[-$+[0]]for@F;$_=''if
grep$_&1,$.,@F,~y///c
80 sthoe
-na s/[^aeiouy]//g;1while
s/(.)(.*)\1/$2/;$.%2||$_||($_="@F\n",(length)%2&&print)
81 byron
-nla !((grep{eval("\$F[0]=~y/$_//")%2}qw/a e i o u
y/)||$.%2||length()%2)&&print
81 joerg
-n for$v($e=0,qw/a e i o u y/){$e||=s/$v/$v/g%2}print
if!(s/(.)/$1/g%2||$.%2||$e)
81 vidal
-na s/[^aeiouy]//g||1while
s/(.)(.*)\1/$2/;$.%2||$_||($_="@F\n",(length)%2&&print)
82 byron
-na ++$i%2||int(join'',map{(@b=$F[0]=~/$_/g)%2}qw(a e i o u
y))||length()%2&&print
82 hoov
-p
$_=''if($.%2||!(y///c%2)||y/a//%2||y/e//%2||y/i//%2||y/o//%2||y/u//%2||y/y//
%2)
82 tony
-n $e=0;for$v(qw/a e i o u y/){$e||=s/$v/$v/g%2}print
if!(s/(\w)/$1/g%2||$.%2||$e)
82 vidal
-n for$v($e=0,qw/a e i o u y/){$e||=s/$v/$v/g%2}print
if!(s/(\w)/$1/g%2||$.%2||$e)
82 vidal
-nl $a=$_;1&length||s/[^aeiouy]//g while
s/([aeiouy])(.*)\1/\2/;1&$.||$_||print$a;
82 yenya
-nl if(!($.%2|length()%2)){$w=$_;map{next if($w=~s/$_/$_/g%2)}qw/a e i o u
y/;print}
84 kwok
-na s/[^aeiouy]//g||1while
s/(.)(.*)\1/$2/;$_&&next;$_="@F\n";$.%2||(length)%2&&print
85 byron
-p
$a=$e=$i=$o=$u=$y=0;$$1++while/([aeiouy])/g;$_=""if($a|$e|$i|$o|$u|$y|$.|~y/
//c)&1
85 quel
-nla (!grep{eval("\$F[0]=~y/$_//")%2}qw/a e i o u
y/)&&!($.%2)&&!(length()%2)&&print;
86 joerg
-n $e=0;for$v(qw(a e i o u y)){$e||=s/$v/$v/g%2}next
if(s/(\w)/$1/g%2||$.%2||$e);print
86 vidal
-ln
$a=$e=$i=$o=$u=$y=0;map{${$_}^=1}split//;$.%2||length()%2||$a|$e|$i|$o|$u|$y
||print
87 myers
-n y/a-z//%2||$.%2||do{$a=$_;$b=0;map{$b+=(eval"$a=~y/$_//")%2}qw|a e i o u
y|;$b||print}
89 gask
-na s/[^aeiouy]//g||next;1while
s/(.)(.*)\1/$2/;$_&&next;$_="@F\n";$.%2||(length)%2&&print
90 byron
-n $a=$_;++$i%2||int(join'',map{(@b=$a=~/$_/g)&&@b%2}qw(a e i o u
y))||length($_)%2&&print
90 hoov
-n !($.%2)&&!(y/a-z//%2)&&do{$a=$_;$b=0;map{$b+=(eval"$a=~y/$_//")%2}qw|a e
i o
u y|;$b||print}
95 gask
-n next if$.%2||(length()-1)%2;for$a(qw(a e i o u
y)){$b=eval"y/$a//";$b&&next
LINE if$b%2;}print
97 byron
-n !($.%2)&&!(y/a-z//%2)&&do{$a=$_;$b=0;map{$b+=(eval"$a=~y/$_//")%2}qw|a e
i o
u y|;print if!$b}
97 gask
Thread Next
-
even.pl solutions
by Andrew.Savige