[OT]Concurso Cultural Clássicos em Código

2 views
Skip to first unread message

Raphael de Almeida

unread,
Jul 7, 2011, 4:38:15 PM7/7/11
to dojo-rio, Ruby on Rio
Concurso Cultural Clássicos em Código
Escolha um entre os 4 clássicos:
  • Os três porquinhos
  • João e Maria
  • Branca de Neve
  • Alice no País das Maravilhas
Faça a versão da história em linguagem de programação e pronto.

A IBM vai premiar as 3 programações mais originais e criativas!

inscrições
===================================================

Acho legal explorar as possibilidades inclusive metaprogramação em ruby :D

Thiago Belem

unread,
Jul 7, 2011, 4:44:58 PM7/7/11
to dojo...@googlegroups.com, Ruby on Rio

Mas oi?

Leo Balter

unread,
Jul 7, 2011, 5:33:17 PM7/7/11
to dojo...@googlegroups.com, Ruby on Rio
Alice no País das Maravilhas:

em ASP (sei lá como é a sintaxe de asp):

import('ruby');

#win! e fim

Flávio Amieiro

unread,
Jul 7, 2011, 5:39:36 PM7/7/11
to dojo...@googlegroups.com
A gente podia fazer alguma coisa em Shakespeare[1]. Pena que quando eu baixei eu não consegui executar o hello world que vem com ele...


--

Diogo Leal

unread,
Jul 7, 2011, 9:07:34 PM7/7/11
to dojo...@googlegroups.com
Flavio, 

Seria muito maneiro tem um dojo em Shakespeare. Mas acho que será necessário cervejas para pensarmos melhor.

Vocês ficam falando em matar gatos.. Isso não é legal. 
Legal é poesia.. ver as estrelas de dia e tomar sol de noite...


#!/usr/bin/perl

APPEAL:

listen (please, please);

    open yourself, wide;
         join (you, me),
    connect (us, together),

  tell me.

    do something if distressed;

            @dawn, dance; 
            @evening, sing;
            read (books, $poems, stories) until peacful;
            study if able;

sort your feelings, reset goals, seek (friends, family, anyone);
            
             do*not*die (like this)
             if sin abounds;

keys (hidden), open (locks, doors), tell secrets;
   do not, I-beg-you, close them, yet.

                                    accept (yourself, changes),
                                    bind (grief, despair);
      require truth, goodness if-you-will, each moment;
select (always), length(of-days)

#listen (a perl poem)
#Sharon Hopkins
#rev. June 19, 1995




Diogo Leal [aka estranho]
http://diogoleal.com
msn | gtalk: estr...@diogoleal.com



2011/7/7 Flávio Amieiro <flavio...@gmail.com>

breno

unread,
Jul 9, 2011, 2:21:30 AM7/9/11
to dojo...@googlegroups.com
2011/7/7 Diogo Leal <di...@diogoleal.com>

Estranho++

A que eu mais gosto é essa, que fizeram em 2005:

----------------------------------
#!/usr/bin/perl

my $eyes = "closed";
my $heart = "aching";
my $beloved = "gone";

no warnings;

my $love = ( );

open MY,"mind";
foreach ($love) {
open MY,$eyes;
tell my $mind or open my $eyes;
}

do not $fear and do not die;

$i; die "because i love you\n";

do { $i; sleep($_) } while ( $awake );

warn "$me" if ($i == $wrong);

bind my $love, $dear and do not exit;
for (my $world = "dark") {};
for (my $eyes = "blind") {};
----------------------------------

Ao executar, exibe "because i love you" na tela :)

[]s

-b

Reply all
Reply to author
Forward
0 new messages