"Wise men talk because they have something to say; fools talk because they have to say something." - Plato
I think I'm going to give writing semi-fictional (not homework) nodes a go. It seems more relaxing...
A few perl obfu's that I wrote a while ago
#!/usr/bin/perl -w
$monkey="japh";@monkee=(32..127);do{$monkie="";do{$monkies=chr$monkee
[rand@monkee];$monkie.=$monkies;$yeknom=length$monkie;}until($yeknom
eq"4");$eiknom++;}until($monkie eq $monkey);print"$monkie in $eiknom";
#!/usr/bin/perl -w @nums = ("5","1","2","1","1" ,"6","1","1","1","1" ,"2","1","1","2","1", "1","8","1","5","1","3","1" ,"1","8","1","6","2" ,"6","1","1","1","1","9","1" ,"1","2","1","1", "9","1","1","2","1","1","1","8" ,"1","6","1","7","1","1","2","1","1","2","1","1","7","1","1","3","1","1" ,"1","8","1","5","2","6","1","1","9","1","1","2", "1","1", "1" ,"2","1","1","1","2","1","1","1","2","1","1", "1","8" ,"1","1","2","1","1","2","1","1","7","1","1","6", "1", "1", "1","6","1","1","5","1","3","1");@lets=(" ", "H" ," ", "H","\n"," ","\\"," ","/","\n"," ","H"," ", "-" ," ", "C", " ","O"," ","H"," ","H","\n"," ","\\", " " ,"\/"," ","\\"," ","\/","\n"," ","N"," ","-"," ", "C" ," ","C"," " ,"-"," ","H","\n"," ","\/"," ","\\", " " ,"\/","\n", " ", "O"," ","="," ","C"," ","C"," ", "-" ," ","N","\n"," ","\\"," ","\/"," ","\\","\n"," " ,"N" ," ","-", " ","C"," ","-"," ","N"," ","="," ","C" ," ", "-", " ","H", "\n"," ","\/","\n"," ","H"," ","-", " ","C" ," ","caffeine","\n"," ","\/"," ","\\"," ","(C8H10N4O2)","\n"," ","H"," ", "H","\n");while (@nums){$num = shift(@nums); $let = shift (@lets); print "$let"x$num; };print "\n";