diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-07-05 23:20:53 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-07-05 23:20:53 +0100 |
| commit | 58fbc819ae2ff54566af5f0f9d1878ec39bf1c2c (patch) | |
| tree | 63de387165dce23818163def8b8dcac48c8344b1 /challenge-120/james-smith | |
| parent | 34ac8e96cb1a70825c5a9ef9ffb367488e5be968 (diff) | |
| download | perlweeklychallenge-club-58fbc819ae2ff54566af5f0f9d1878ec39bf1c2c.tar.gz perlweeklychallenge-club-58fbc819ae2ff54566af5f0f9d1878ec39bf1c2c.tar.bz2 perlweeklychallenge-club-58fbc819ae2ff54566af5f0f9d1878ec39bf1c2c.zip | |
pushed soln to task 1
Diffstat (limited to 'challenge-120/james-smith')
| -rw-r--r-- | challenge-120/james-smith/cesil/ch-1.ces | 80 |
1 files changed, 80 insertions, 0 deletions
diff --git a/challenge-120/james-smith/cesil/ch-1.ces b/challenge-120/james-smith/cesil/ch-1.ces new file mode 100644 index 0000000000..c87572e699 --- /dev/null +++ b/challenge-120/james-smith/cesil/ch-1.ces @@ -0,0 +1,80 @@ + LINE + LOAD +0 + STORE success + STORE tests +Next IN + JINEG End + STORE a + OUT + IN + STORE ans + LOAD +0 + STORE res + LOAD +64 +Loop STORE divisor + LOAD a + DIVIDE divisor + SUBTRACT 1 + JIZERO j_1 + SUBTRACT 1 + JIZERO j_2 + ADD 2 + JUMP j +j_1 LOAD +2 + JUMP j +j_2 LOAD +1 +j MULTIPLY divisor + ADD res + STORE res + LOAD a + DIVIDE divisor + MULTIPLY divisor + MULTIPLY -1 + ADD a + STORE a + LOAD divisor + DIVIDE +4 + JIZERO EndL + JUMP Loop +EndL LOAD res + PRINT " => " + OUT +(Now run the test! + PRINT " : " + SUBTRACT ans + JIZERO Ok + PRINT "-- should be " + LOAD ans + OUT + PRINT "?" + JUMP Line +Ok PRINT "OK" + LOAD success + ADD +1 + STORE success +Line LINE + LOAD tests + ADD +1 + STORE tests + JUMP Next +End LINE + PRINT "TESTS: " + LOAD success + OUT + PRINT " of " + LOAD tests + OUT + PRINT " passed" + LINE + LINE + HALT + % + 101 + 154 + 18 + 33 + 154 + 101 + 33 + 18 + -1 |