Make all sad

Submitted by: Alexandre Muñiz Score: 6.62 (out of 10)
Length: 140 characters
Computer Language: Perl
Interface Language: English
Description

My things are not all sad. Make all of my things sad!

Walkthrough (spoilers!)

Use the arrow to expand or collapse this section

EAT MAP 
SW
 NW
 Z
 QUIT

But there are many, many other ways to MAKE ALL SAD. The real puzzle is to figure out the pattern behind how your commands affect things.

Instructions

From the unix command line, run this as a perl script:

$perl makeallsad.txt

Download: MAKEALLSAD

Source Code:

Use the arrow to expand or collapse this section

@o = split ' ', 'ma cu to sa re od';
@s = 0..2;
do
{
    map
    {
        $a = $s[$_] += $x >> $_;
        printf "My %sp is %sd.
", $o[$_], $o[$a % 3 + 3]
    } 0..2;
    print ">";
    $_ = <>;
    $x = y///c - 1
} until /quit/i

IF
TWIFcomp

Comments

Tue, 05/04/2010 - 09:37 — Anonymous

Post-Competition Release

The Post-Competition release of Make All Sad is up at my IF page. I managed to save 13 characters, so I implemented "G" for repeating the last command.

--AOM

Sun, 04/25/2010 - 23:55 — Anonymous

Actually, this was a server setting. I changed the file extension from *.pl to *.txt, so now people can right click to download the file. Since these are just text files anyhow, they could also copy and paste them out of the source code area. - Jack

TWIFcomp

Recent comments

Make all sad

Comments

Post-Competition Release

Link is broken.

linkage to perl scripts

Comment viewing options