Execute SNUSP/Perl: Difference between revisions

my %commands;

$commands{'<'} = q{ --$col; $col < 0 and die; };

$commands{'>'} = q{ ++$col };

$commands{'+'} = q{ ++$data[$row][$col] };

$commands{'-'} = q{ --$data[$row][$col] };

$commands{'.'} = q{ print chr $data[$row][$col] };

$commands{','} = q{ goto (schedule(readchar($data[$row][$col]) ? 'NEXT' : 'REDO')) };

# /, \, and ! are implemented in the main loop

$commands{'?'} = q{ goto (schedule($data[$row][$col] ? 'NEXT' : 'SKIP')) };

$commands{'@'} = q{ push @st, 'SKIP' };

$commands{'#'} = q{ goto (pop @st) };

$commands{':'} = q{ --$row; $row < 0 and die };

$commands{';'} = q{ ++$row };

$commands{'%'} = q{ $_ = int rand(1 + $_) for $data[$row][$col] };

# & is implemented in the main loop.