From cf5c69b1be1bf23a630751806ec0c32247aa48e7 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Fri, 14 Oct 2016 22:17:27 +0200 Subject: Minor example updates --- examples/palindrome.fusp | 2 +- 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; -- cgit v1.2.3