|
@ -24,6 +24,10 @@ def empty [] |
|
|
def getFile |
|
|
def getFile |
|
|
(readFile "./parse.js") |
|
|
(readFile "./parse.js") |
|
|
|
|
|
|
|
|
|
|
|
def fileLines |
|
|
|
|
|
(getFile >>= |
|
|
|
|
|
((mapM_ putStrLn) . lines)) |
|
|
|
|
|
|
|
|
def (testUnary n) |
|
|
def (testUnary n) |
|
|
((-n) + n) |
|
|
((-n) + n) |
|
|
|
|
|
|
|
@ -45,7 +49,7 @@ def main |
|
|
if False |
|
|
if False |
|
|
then |
|
|
then |
|
|
undefined |
|
|
undefined |
|
|
else (getFile >>= print) |
|
|
else fileLines |
|
|
>> |
|
|
>> |
|
|
(print |
|
|
(print |
|
|
(splitxs "abcdefghijk"))) |
|
|
(splitxs [12,3,4,56]))) |
|
|