msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

examples

Browse Source
This commit is contained in:
crumbtoo
2024-02-08 16:43:02 -07:00
parent 6dd581a25f
commit a2b4bd2afc
2 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
examples/Core/constDivZero.cr Normal file
View File

@@ -0,0 +1,3 @@
k x y = x;
main = k 3 ((/#) 1 0);

7
examples/Core/factorial.cr Normal file
View File

@@ -0,0 +1,7 @@
fac n = case (==#) n 0 of
{ <1> -> 1
; <0> -> (*#) n (fac ((-#) n 1))
};
main = fac 3;