Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/env perl
- ;;;;;;
- ;;;;;;;;;;;
- ;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;;
- +$I=sub{+s+^+ ;;;;;;; ;;;;;;;;;
- $"x$_[1]+gem;$/x$_# ;;;; ;;;;;;;;
- [0].$_.$/};$W=sub{$~=!q~ ;;;;;;;
- ~.pop();system($^O=~Win?ClS:# ;;;;;;;
- 'clear'),print,select$Z,$Z,$Z,!" ;;;;;;
- "||$~for@_};$H=sub{+join$/,map($_# ;;;;;;
- x$_[0],pop=~m-.+-g),!_};$_=!Mima,s-- ;;;;;
- "@{['=9+)w'^RINGS]}\%;local@{[Saturn^# ;;;;;
- wNXIBP]}"-see;s-^#!..+?$/(?=$"+;)--is ;;;;
- y-;-'-;s-\w-~-gi;$S=$_;#--Beautiful] ;;;;
- @S=m-.+-g;$N=1+.6-!th_,$--=-82-$--- ;;;
- $_.=$"x-(y---c-$-)for@S;$R=sub{$i# ;;; -d
- =0;join$/,map{$j=$%;join!_,grep# ;;; Rhea
- !($j++%$_[$%]),m-.-g}grep!($i# ;;; -Titan
- ++%$_[0]),@S};$L=join!_,map# ;;; -Huygens
- ~~reverse.$/,@S;@R=(&$I(q- ;;; -&&20,051,
- $_=_^q-q-),&$I(20,41-!q- ;;; -,$_=F|K),$
- I->(15,31,$_=&$R(4-!q- ;;; -)),&$I(13-!"
- ;;",28,$_=&$R(3)),&${ ;;; _^_^I}(10,20-!"
- ;;;;;",$_=$R->(2)),q- ;;; -&&$S);@O=map&{"
- ;;;;;; "&&$H}($_,&${ ;;; R.!-_}($_))x$_,!"
- ;;;;; "+2..2*~~2 ;;; @Y=reverse@R#Dione
- ;;;;;; &${m-- ;;; S|A|T|U}(@R,$N)||!q-
- ;;;;;;; b- ;;; &$W(@O[0,1,2,1,0!=!q-
- ;;;;;;; ;;;; -],!1!~~1);&$W($S.!q-
- ;;;;;;;;; ;;;;; -,$L,0.16)for$%..5+!q-
- ;;;;;;;;;; ;;;;;;;;; Cassini-;&{$W||q-
- ;;;;;;;;;;;;;;;;;;;;;; -}(@Y,1.6)
- ;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;
- ;;;;;;;;;;;
- ;;;;;;
Add Comment
Please, Sign In to add comment