diff --git a/test.jl b/test.jl index bb84621..eb9dca5 100644 --- a/test.jl +++ b/test.jl @@ -27,9 +27,25 @@ def getFile def (testUnary n) ((-n) + n) +def (splitHelp acc xs ys) + if (null xs) + then ((reverse acc), ys) + else if (null (tail xs)) + then ((reverse acc), ys) + else + (splitHelp ((head ys) : acc) + (tail (tail xs)) + (tail ys)) + +def (splitxs xs) + (splitHelp [] xs xs) + def main ((print (testUnary 6)) >> if False then undefined - else getFile) + else (getFile >>= print) + >> + (print + (splitxs "abcdefghijk")))