Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: (Golf) Ascii table

by antirice (Priest)
on Aug 16, 2003 at 02:00 UTC ( #284295=note: print w/replies, xml ) Need Help??


in reply to (Golf) Ascii table

71:

perl -e'$,=$";@a=(0..9,A..F);print" "x4,@a,$/,map{$_."0:",map(chr$b++,@a),$/}@a'

If there's a prob with the leading spaces, 75:

perl -e'$,=$";@a=(0..9,A..F);print" "x3,@a,$/,map{"\r$_"."0:",map(chr$b++,@a),$/}@a'

And my first version because I liked it :), 77 including the l:

perl -le'@a=(0..9,A..F);sub a{print"@_"};a" "x3,@a;for$a(@a){a$a."0:",map chr$b++,@a}'

If anyone finds that these don't work elsewhere (I'm testing on FreeBSD 4.6 with perl 5.6.1 and 5.8.0), I'd appreciate it if you'd comment :)

antirice    
The first rule of Perl club is - use Perl
The
ith rule of Perl club is - follow rule i - 1 for i > 1

Replies are listed 'Best First'.
Re: Re: (Golf) Ascii table
by chunlou (Curate) on Aug 16, 2003 at 04:40 UTC
    I happen to use black theme background. Same color as the code.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (6)
As of 2021-04-21 12:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?