small changes

new cell defaults
new end-of-list index -1

Author: octalsrc

src/Demo/Random.hs

@@ -63,7 +63,7 @@ mkPairs :: [a] -> [(a,a)]
 mkPairs (a:b:cs) = (a,b) : mkPairs cs
 mkPairs _ = []
 
-endAddressString = "_"
+endAddressString = "-1"
 
 mkMem :: Int -> Int -> [Char] -> [Pair] -> (String, MemSt)
 mkMem start size rvals pairs = 

src/LinkedListDemo.hs

@@ -10,8 +10,8 @@ import Demo.Types
 import Demo.Links
 import Demo.JS
 
-defaultHeadIndex = 0
-defaultNumCells = 10
+defaultHeadIndex = 23
+defaultNumCells = 14
 
 main = do initializePage (defaultHeadIndex, defaultNumCells)
           (draw, rando, gener) <- mkSources