 |
| User since: |
Jun 05, 2000 at 01:55 UTC
(23 years ago) |
| Last here: |
Oct 29, 2001 at 13:34 UTC
(22 years ago) |
| Experience: |
1272
|
| Level: | Friar (9) |
| Writeups: |
173
|
| Location: | Vienna/Austria |
| User's localtime: |
Oct 01, 2023 at 21:22 +02
|
| Scratchpad: |
View
|
| For this user: | Search nodes |
|
2001-05-01: JAPH-of-the-day:
#!/usr/bin/perl -w
$_=++$.;$_+=$_;$_*=$_;$;=$_;$;.='a'.$_;$;.=$.;$;.=$_+$.;
$;.=--$.;$;.=$_;$_+=$_;$;.=$_;$.++;$_/=++$.;$;.=$.;$;.=
--$.;$;.=--$.;$;.='a';$_=$;;print+pack'H*'=>$_;
|
