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

Remove non standard range function

Browse source 
Let example define its own range function using do.
This commit is contained in:
madmaurice 2021-04-06 22:11:52 +02:00
parent 7ca4bad9b0
commit cd769b36de
2 changed files with 2 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
examples/euler1.lisp
View file

@ -1,6 +1,4 @@
;; (defun range (start end) (defun range (start end)
;; (if (< start end) (do ((lst (list) (cons i lst)) (i start (+ 1 i))) ((= i end) lst)))
;; (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)))) (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,10 +278,6 @@ my %stdctx = (
return $number; return $number;
}, },
'range' => sub {
my ($start, $end) = @_;
return [ $start .. ($end-1) ];
},
# String comparison # String comparison
'string=' => sub { my ($a, $b) = @_; return to_lisp_bool($a eq $b); }, 'string=' => sub { my ($a, $b) = @_; return to_lisp_bool($a eq $b); },