Mercurial > hg > Papers > 2015 > atton-thesis
view src/exec_list_monad.txt @ 57:5f0e13923cfd
Fixes
author | Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 16 Feb 2015 16:24:42 +0900 (2015-02-16) |
parents | fc44782929a7 |
children |
line wrap: on
line source
*Main> let x = Cons 100 (Cons 200 (Cons 400 Nil)) *Main> let f = \x -> Cons (x+1) (Cons (x+10) (Cons (x*x) Nil)) *Main> x >>= f Cons 101 (Cons 110 (Cons 10000 (Cons 201 (Cons 210 (Cons 40000 (Cons 401 (Cons 410 (Cons 160000 Nil))))))))