http://www.perlmonks.org?node_id=723326


in reply to [Fun] Exquisite Corpse in Perl?

I'll play

[duelafn ~]$ wc corpse-2.pl 7 35 212 corpse-2.pl [duelafn ~]$ md5sum corpse-2.pl 4e92ccfcbfc69686bb1687824efc0733 corpse-2.pl [duelafn ~]$ tail -n2 corpse-2.pl say $c; my %h = (split /\s+/, $c);

One open curlie.

Update Fri Nov 21 13:23:15 EST 2008: Well, this is code, we don't really read linearly so I'll give you a line in the middle this time.

[duelafn]$ wc corpse-4.pl 9 32 187 corpse-4.pl [duelafn]$ md5sum corpse-4.pl 054c44f5cb2460eae1b1107ae31fd6e9 corpse-4.pl [duelafn]$ tail -n4 corpse-4.pl | head -n1 burn($fat);

No open curlies.

Good Day,
    Dean