aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Family Day update

Browse source
This commit is contained in:
Ingy döt Net 2020-02-17 23:21:07 -08:00
parent aac6731f2c
commit 9ad63ea473
2442 changed files with 39761 additions and 8255 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Conditional-structures/Ol/conditional-structures-5.ol
View file

@ -1,8 +1,8 @@
(cond
((= (* 2 2) 4)
(print "cond: equal"))
((= (* 2 2) 6)
(print "cond: not equal"))
(case (vector 'selector 1 2 3)
(['case1 x y]
(print "case: case1 " x ", " y))
(['selector x y z]
(print "case: selector " x ", " y ", " z))
(else
(print "cond: i don't know")))
; ==> cond: equal
(print "case: i don't know")))
; ==> tuple-case: selector 1, 2, 3

14
Task/Conditional-structures/Ol/conditional-structures-6.ol
View file

@ -1,8 +1,8 @@
(tuple-case (tuple 'selector 1 2 3)
((case1 x y)
(print "tuple-case: case1 " x ", " y))
((selector x y z)
(print "tuple-case: selector " x ", " y ", " z))
(cond
((= (* 2 2) 4)
(print "cond: equal"))
((= (* 2 2) 6)
(print "cond: not equal"))
(else
(print "tuple-case: i don't know")))
; ==> tuple-case: selector 1, 2, 3
(print "cond: i don't know")))
; ==> cond: equal