Minilisp.pm/t/cond.t

6 lines
116 B
Perl
Raw Normal View History

2021-04-04 01:44:47 +02:00
(expect "cond" 2
(cond ((> 1 2) 10)
(f 20)
((zerop 0) 2)
(t 10)))