Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

(tye)Re2: 177- (Golf) LED Sign

by tye (Sage)
on Jun 08, 2001 at 18:39 UTC ( #86914=note: print w/replies, xml ) Need Help??

in reply to (tye)Re: 186- (Golf) LED Sign
in thread (Golf) LED Sign

I figured out a way to drop the 8-char binary string to a 5-char binary string and simplify some of the math. Unfortunately, the simpler math uses + instead of | so the precedence is wrong so I'd need two sets of parens, which makes the math expression 2 characters longer (despite the calculation being simpler). That would still be an over-all net reduction by one character. But that involves recomputing all of the bits, so I'm not including that trick.

But some standard golfing on the rest did get me down to 177 (updated from 179) chars:

#!/usr/bin/perl open SEG, ">" or die "Can't write $!\n"; binmode SEG; while(<DATA>){ s/::::::::/pack"H*",'1f10001100100111'/e; s/!!!!!!!!!!!!!!!/pack"H*",'fca88a04228f12420caacc30125084'/e; print SEG $_; } __END__ #!/usr/bin/perl sub d{ y/01/ #/for@p=unpack"b5"x8,"::::::::";@s=grep$_,split/(..)/, unpack"b*",'!!!!!!!!!!!!!!!';map{$l=$_;join($",map{y/-./ab/; $p[4&$l*4|3&$s[$l+5*hex]]}split//,$_[0]).$/}0,1,1,2,3,3,4 } print d("123-45"); print d("67.890");

        - tye (but my friends call me "Tye")

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://86914]
[1nickt]: my $x = $aohoaoh->[0]->{' foo'}->[0]->{'bar' }; should work
[thepkd]: not indexing
[thepkd]: getting data out of the ds
[choroba]: it depends. Give more details, please
[thepkd]: i used a series of {}'s but it dont work
[choroba]: You need square brackets for arrays
[GotToBTru]: you can certainly construct a single expression to access any part of the data structure, without using temp variables. but you might make it easier on yourself and any other poor soul who has to understand your code if you do
[thepkd]: to dereference i mean
LanX .oO( oh tempz, oh moretz)
[thepkd]: @GotToBTru Sure. But.

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (14)
As of 2016-12-06 13:21 GMT
Find Nodes?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:

    Results (104 votes). Check out past polls.