in reply to LFSR golf
How about
The first line is the generating sub (containing 79 chars) and the second one is an usage example.sub l{my($s,$t)=@_;sub {($s=($s.(((my $x=$s+$t)=~y/1/1/d)%9%2)))=~s/5. +/5/;$s}} $x=l("50101","0022");print ($x->(),$x->(),$x->(),$x->());
|
---|
Replies are listed 'Best First'. | |
---|---|
73 chars, called on a foul (Re: LFSR golf)
by tye (Sage) on May 08, 2001 at 18:32 UTC | |
by Anonymous Monk on May 08, 2001 at 20:25 UTC |
In Section
Meditations