Update README.md

1 files changed, 36 insertions, 0 deletions

diff --git a/challenge-119/james-smith/README.md b/challenge-119/james-smith/README.md
index 7323a629a3..9937a6296d 100644
--- a/challenge-119/james-smith/README.md
+++ b/challenge-119/james-smith/README.md
@@ -131,6 +131,42 @@ End     LINE
         54
         -1
 ```
+### Side note... an intepreter for CESIL...
+
+Didn't like the idea of relying on JAVASCRIPT... so here is a bare bones
+interpreter...
+```perl
+use strict;
+
+$| = 1;
+my( $ptr, @in, %mem, @code, %ptrs, $reg ) = 0;
+
+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;
+```
 # Task 2 - Sequence without 1-on-1
 
 ***Write a script to generate sequence starting at 1. Consider the increasing