develooper Front page | perl.fwp | Postings from July 2003

Re: Fun - Each character at most once

From:
=?ISO-8859-1?Q?Steffen_M=FCller?=
Date:
July 17, 2003 08:34
Subject:
Re: Fun - Each character at most once
Message ID:
20030717152404.35094.qmail@onion.perl.org
Richard Proctor wrote:
> What is the most "interesting" program that is restricted to
> use each ASCII character at most once?

Anybody who can do a JAPH like that?

Steffen
-- 
@n=([283488072,6076],[2105905181,8583184],[1823729722,9282996],[281232,
1312416],[1823790605,791604],[2104676663,884944]);$b=6;@c=' -/\_|'=~/./g
;for(@n){for$n(@$_){map{$h=int$n/$b**$_;$n-=$b**$_*$h;$c[@c]=$h}reverse
0..11;push@p,map{$c[$_]}@c[reverse$b..$#c];$#c=$b-1}$p[@p]="\n"}print@p;




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About