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

Replies are listed 'Best First'.
Re^2: [Fun] Exquisite Corpse in Perl?
by blazar (Canon) on Nov 13, 2008 at 12:22 UTC

    I personally believe I should thank you for taking part to the experiment: if nobody else joins say within tomorrow morning, I'll propose the next step myself, if you like, as an update to this very post. Then I'd go as far as corpse-6.pl and see which kind of "twitching mass of random code" got out of it!

    Update: [Fri Nov 21 15:56:53 2008] here it is, and sorry for the minimality, but aqs you can see I've been procrastinating so much that I was beginning to think I wouldn't have done it any more if not so. Still, I think something moderately interesting may get out of it. I hope that the names of the variables are either illuminating or... pleasantly misleading enough! ;)

    C:\temp>wc corpse-3.pl 6 23 142 corpse-3.pl C:\temp>md5sum corpse-3.pl 773de225d9053be5e311d9a4ed54bc43 *corpse-3.pl C:\temp>tail -n2 corpse-3.pl $c = trim("@tmp", $lastlen) or last; }

    No open curlies!

    --
    If you can't understand the incipit, then please check the IPB Campaign.

      Sounds good. Though, pretending that we don't know what happened in the n-2 chunk will be somewhat hard. Hopefully we find some other adventurous souls.

      Good Day,
          Dean