diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-07-03 14:09:40 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-07-03 14:09:40 +0100 |
| commit | 8db26d825f608ae01ccbc43507ec0e00310abb6b (patch) | |
| tree | 242f0a109b956699e7b8e9e3cab21187f8313d61 | |
| parent | 489a98656b5502f2bc3551e452142d91a6e12a44 (diff) | |
| parent | 40a6be70e1e1a6f86920fd0a0c30dbf1aaca8e6d (diff) | |
| download | perlweeklychallenge-club-8db26d825f608ae01ccbc43507ec0e00310abb6b.tar.gz perlweeklychallenge-club-8db26d825f608ae01ccbc43507ec0e00310abb6b.tar.bz2 perlweeklychallenge-club-8db26d825f608ae01ccbc43507ec0e00310abb6b.zip | |
Merge branch 'master' of github.com:drbaggy/perlweeklychallenge-club
| -rw-r--r-- | challenge-119/james-smith/README.md | 40 |
1 files changed, 19 insertions, 21 deletions
diff --git a/challenge-119/james-smith/README.md b/challenge-119/james-smith/README.md index 9937a6296d..8747a9bc7c 100644 --- a/challenge-119/james-smith/README.md +++ b/challenge-119/james-smith/README.md @@ -133,7 +133,7 @@ End LINE ``` ### Side note... an intepreter for CESIL... -Didn't like the idea of relying on JAVASCRIPT... so here is a bare bones +Didn't like the idea of relying on JAVA... so here is a bare bones interpreter... ```perl use strict; @@ -141,31 +141,29 @@ use strict; $| = 1; my( $ptr, @in, %mem, @code, %ptrs, $reg ) = 0; +my %commands = ( +'LINE' ,sub{print "\n"; }, +'IN' ,sub{die 'OUT OF INPUT' unless @in;$reg=shift@in}, +'OUT' ,sub{print $reg}, +'PRINT' ,sub{print $_[0] =~ s{^"}{}r =~ s{"$}{}r; }, +'STORE' ,sub{$mem{$_[0]} = $reg}, +'LOAD' ,sub{$reg = $mem{$_[0]}}, +'HALT' ,sub{exit}, +'JINEG' ,sub{$ptr=$ptrs{$_[0]}-1 if $reg<0}, +'JIZERO' ,sub{$ptr=$ptrs{$_[0]}-1 if $reg==0}, +'JUMP' ,sub{$ptr=$ptrs{$_[0]}-1}, +'ADD' ,sub{$reg+=$_[0]=~m{^-?\d+$}?$_[0]:$mem{$_[0]}}, +'SUBTRACT',sub{$reg-=$_[0]=~m{^-?\d+$}?$_[0]:$mem{$_[0]}}, +'MULTIPLY',sub{$reg*=$_[0]=~m{^-?\d+$}?$_[0]:$mem{$_[0]}}, +'DIVIDE' ,sub{$reg/=$_[0]=~m{^-?\d+$}?$_[0]:$mem{$_[0]};$reg=int$reg}, +); + while(<>) { (@in = map { 0+$_ } <> ) && last if m{^ {8}%}; ($ptrs{$1},$_)=(scalar @code,$2) if m{^(\S{1,7})\s+(.*)}; push @code, [ split m{\s+}, s{^\s+}{}r =~ s{\s+$}{}r, 2 ]; } - -my %commands = ( - 'LINE' => sub { print "\n"; }, - 'IN' => sub { die "RUN OUT OF INPUT" unless @in; $reg = shift @in; }, - 'OUT' => sub { print $reg }, - 'PRINT' => sub { print $_[0] =~ s{^"}{}r =~ s{"$}{}r; }, - 'STORE' => sub { $mem{$_[0]} = $reg; }, - 'LOAD' => sub { $reg = $mem{$_[0]}; }, - 'HALT' => sub { exit; }, - 'JINEG' => sub { $ptr = $ptrs{$_[0]} - 1 if $reg < 0; }, - 'JIZERO' => sub { $ptr = $ptrs{$_[0]} - 1 if $reg == 0; }, - 'JUMP' => sub { $ptr = $ptrs{$_[0]} - 1; }, - 'ADD' => sub { $reg += ( $_[0]=~m{^-?\d+$} ? $_[0] : $mem{$_[0]} ) }, - 'SUBTRACT' => sub { $reg -= ( $_[0]=~m{^-?\d+$} ? $_[0] : $mem{$_[0]} ) }, - 'MULTIPLY' => sub { $reg *= ( $_[0]=~m{^-?\d+$} ? $_[0] : $mem{$_[0]} ) }, - 'DIVIDE' => sub { $reg /= ( $_[0]=~m{^-?\d+$} ? $_[0] : $mem{$_[0]} ) ; $reg = int $reg; }, -); - -## Execution loop... -(&{ $commands{$code[$ptr][0]} }( $code[$ptr][1] ),$ptr++) foreach 1..1e6; +($commands{$code[$ptr][0]}($code[$ptr][1]),$ptr++) for 1..1e6; ``` # Task 2 - Sequence without 1-on-1 |