diff options
author | Camil Staps | 2016-10-14 22:17:27 +0200 |
---|---|---|
committer | Camil Staps | 2016-10-14 22:17:27 +0200 |
commit | cf5c69b1be1bf23a630751806ec0c32247aa48e7 (patch) | |
tree | 6232203ed63fdee4c8b47c8cb96ab20735d1e013 /examples | |
parent | token_list using an array for memory efficiency (diff) |
Minor example updates
Diffstat (limited to 'examples')
-rw-r--r-- | examples/palindrome.fusp | 2 | ||||
-rw-r--r-- | examples/queens.fusp | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/examples/palindrome.fusp b/examples/palindrome.fusp index d2c6eba..c6a6f93 100644 --- a/examples/palindrome.fusp +++ b/examples/palindrome.fusp @@ -6,4 +6,4 @@ is_palindrome [] = 1; is_palindrome [_:[]] = 1; is_palindrome [x:xs] = if (eq x (last xs)) (is_palindrome (init xs)) 0; -main = is_palindrome [0:[42:[37:[42:[0:[]]]]]]; +main = is_palindrome [0,42,37,42,0]; diff --git a/examples/queens.fusp b/examples/queens.fusp index e509e81..4481376 100644 --- a/examples/queens.fusp +++ b/examples/queens.fusp @@ -3,7 +3,7 @@ sub a b = code sub a b; gt a b = code gt a b; eq a b = code eq a b; -size = 6; +size = 4; if 0 _ b = b; if 1 a _ = a; |