diff options
| author |  Ziv Scully <ziv@mit.edu> | 2015-09-12 17:11:33 -0400 |
|---|---|---|
| committer | Ziv Scully <ziv@mit.edu> | 2015-09-12 17:11:33 -0400 |
| commit | 6aadea0202190d17a35f289f984eb19ec8116672 (patch) | |
| tree | e981fc563a09eab62b50f3ba52eaa01cac157f3e /doc/intro.ur | |
| parent | 5c4c302aea71f47679e8d8b4197f869355b2180a (diff) | |
| parent | 03f1d80a665c4de6fd83ff6dc9399dda97838efa (diff) | |
Merge.
Diffstat (limited to 'doc/intro.ur')
| -rw-r--r-- | doc/intro.ur | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/doc/intro.ur b/doc/intro.ur index 770b7b06..b08e2395 100644 --- a/doc/intro.ur +++ b/doc/intro.ur @@ -58,12 +58,15 @@ fun fact n = if n = 0 then 1 else n * fact (n - 1) fact 5 (* end *) -fun isEven n = n = 0 || isOdd (n - 1) -and isOdd n = n = 1 || isEven (n - 1) +fun isEven n = n = 0 || (n > 1 && isOdd (n - 1)) +and isOdd n = n = 1 || (n > 1 && isEven (n - 1)) (* begin eval *) isEven 32 (* end *) +(* begin eval *) +isEven 31 +(* end *) (* Of course we have anonymous functions, too. *) |