.Codebits 2008

.Ofertas SAPO Emprego

.posts recentes

. tartaruga

. pppp

. dfgfg

. Farmácias, SAPO e Meo

. Happy 1234567890

. Boas Festas

. Procura-se

. SAPO Codebits 2008. O eve...

. javascript submit gotcha

. Adeptos de futebol

.arquivos

. Março 2011

. Outubro 2009

. Março 2009

. Fevereiro 2009

. Dezembro 2008

. Outubro 2008

. Setembro 2008

. Julho 2008

. Fevereiro 2008

. Janeiro 2008

. Dezembro 2007

. Novembro 2007

. Outubro 2007

. Setembro 2007

.fotos

Segunda-feira, 7 de Janeiro de 2008

Season greetings 2

Versão com enfeites coloridos.

perl -e '
                    #
                   ###
                  sub Q
                 {print@
                _} $OoO="
               \e[H";$oOo=
              "\e[1J";$SIG{
             INT}=\&e;sub o{
            map{map{Q"\e[3".(
           int rand(3)+1)."m";
          Q$_;}split//,$_;}@_;}
         Q$oOo;sub x{($o,$O)=@_;
        sprintf("% 13s%s\n",$o,$O
       )}sub O{Q$OoO;$c="*";map{$o
      =$c x$_;$O=$c x($_-1);$d="@";
     sub k{$Q=@_[0]; map{substr($Q ,
    rand(length($Q)),1)=$d}(1..length
   ($Q)-1);return$Q;}$o=k($o);$_>1?$O=
  k($O):"";$d="/";$o=k($o);$O=k($O)if$_
 >1;$a[$_]=x($o,$O);}(1..12);o@a;Q x"||"
;Q x"||";sleep   1;O();}  O;sub e{Q$oOo;Q
                 "\e[m";
                 o exit}
'
publicado por js às 01:28
link do post | comentar | favorito
|
2 comentários:
De Samuel Junqueira a 7 de Janeiro de 2008 às 11:16
Porreiro pá... muito mais natalício assim. GEEK
De M a 9 de Janeiro de 2008 às 16:05
q coisa tão geek :) nem parece teu!!

Comentar post

.Unix Time

.pesquisar

 

.Março 2011

Dom
Seg
Ter
Qua
Qui
Sex
Sab
1
2
3
4
5
6
7
8
9
10
11
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

.tags

. todas as tags

blogs SAPO

.subscrever feeds