Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: LFSR golf

by Anonymous Monk
on May 08, 2001 at 12:31 UTC ( #78776=note: print w/ replies, xml ) Need Help??


in reply to LFSR golf

How about

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->());
The first line is the generating sub (containing 79 chars) and the second one is an usage example.


Comment on Re: LFSR golf
Download Code
Replies are listed 'Best First'.
73 chars, called on a foul (Re: LFSR golf)
by tye (Cardinal) on May 08, 2001 at 18:32 UTC

    I don't mind the departure in how you call the generating function but I'm going to disqualify this one for having the closure return "50101" instead of 0 and "51100" instead of 1.

    If you were shifting the other direction, then a simple &1 at the end of the closure would solve the problem and give you a 73-character solution (not counting the "sub l{" and "}", as usual).

    I'm sure this general approach can be modified such that I'd accept it but I'll leave that to you or whoever beats you to it. (:

            - tye (but my friends call me "Tye")
      Didn't know you wanted that. OK. New version (72 chars)
      sub l{ my($s,$t)=@_;sub{($s=($s.(((my$x=$s+$t)=~y/1/1/d)%9%2)))=~s/5(.)/5/;$1 +} } $x=l("50101","0022");print ($x->(),$x->(),$x->(),$x->());

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://78776]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (9)
As of 2015-07-31 00:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (274 votes), past polls