#Poem by E.E. Cummings $d = "n3c4 4ng4ch4hc44nn 44u54qpg4n4kpguu"; $d =~ s/\s+//g; for($i=0; $i<33;$i++) {$t[$i]=chr (ord(substr ($d,$i,1))- 2);}for( $i=0;$i<=$#t; $i++){$_= "$t[$i]"; if (/[1-9]/){ if ($_==1){ print'(';}if ($_==2){print "\n";}if ($_==3) {print')';}}else {print $_;}}
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: One
by iamcal (Friar) on Apr 23, 2001 at 11:31 UTC | |
by bobione (Pilgrim) on Apr 23, 2001 at 16:19 UTC | |
by beefalo (Acolyte) on Apr 24, 2001 at 01:04 UTC | |
by bobione (Pilgrim) on Apr 24, 2001 at 11:31 UTC |