Falling Down


Perl-Sensitive Sunglasses
	PerlMonks

Falling Down

by Anarion (Hermit)

on Sep 06, 2001 at 02:14 UTC ( [id://110436]=obfuscated: print w/replies, xml )

Need Help??

Just As Title Says.
The velocity depends of your computer because i didn't use sleep


#!/usr/bin/perl
use strict;
s qq$"Kvtu$"Bopuifs$"Qfsm$"Ibdlfsq+y+["-|]+[!-{]++s+.+$&0+g,my(@a,$x
,$r)=split//;map{print"\e[H\e[J$/";!$r&&do{$r=int(rand(@a))until$a[
$r]=~/\d/&&$&<$]&&$a[$r]ne$"},$r&&$a[$r]++,$a[$r]>$]and$r=$[;map{$-=
$_,map{print$a[$_]=~/$-/?$a[$_+!$.]:$"}$...$#a+print$/}$...$];
$;++for$...$=**(!$.+!$.+!$.)}$...$=*(!$.+!$.)+$=/(!$.+!$.)-!$.
[download]

$anarion=\$anarion;

s==q^QBY_^=,$_^=$[x7,print