aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ex/primes.rip2
-rw-r--r--rip.hs2
2 files changed, 2 insertions, 2 deletions
diff --git a/ex/primes.rip b/ex/primes.rip
index 1f30493..e7d8b0d 100644
--- a/ex/primes.rip
+++ b/ex/primes.rip
@@ -1 +1 @@
-21W[D1W[dSDD4RDD4r5rqms]P1EI[DO9io]i1]
+21W[D1W[dSDD4RDD4r5rqms]1EI[DO9io]i1]
diff --git a/rip.hs b/rip.hs
index 14e7f6f..c03330c 100644
--- a/rip.hs
+++ b/rip.hs
@@ -207,7 +207,7 @@ rip' code@(x:xs) fns st = do
newstack <- rip' inblock fns st
if head newstack /= 0
then doloop $ tail newstack
- else return newstack
+ else return $ tail newstack
in if head st /= 0
then do
newstack <- doloop (tail st)