madmaurice/Minilisp.pm
1
1
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add range function and euler1 example

Browse source
This commit is contained in:
madmaurice 2021-04-05 04:04:23 +02:00
parent d07c480390
commit 9c0db610bf
2 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
examples/euler1.lisp Normal file
View file

@ -0,0 +1,6 @@
;; (defun range (start end)
;; (if (< start end)
;; (cons start (range (+ 1 start) end))
;; (list)))
(write-line (reduce + (filter (lambda (x) (or (zerop (mod x 3)) (zerop (mod x 5)))) (range 1 1000))))

4
lib/Minilisp.pm
View file

@ -278,6 +278,10 @@ my %stdctx = (
return $number;
},
'range' => sub {
my ($start, $end) = @_;
return [ $start .. ($end-1) ];
},
# String comparison
'string=' => sub { my ($a, $b) = @_; return to_lisp_bool($a eq $b); },