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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Task/Metaprogramming/Ol/metaprogramming-1.ol Normal file
View file

@ -0,0 +1,12 @@
(define-syntax define
(syntax-rules (lambda) ;λ
((define ((name . args) . more) . body)
(define (name . args) (lambda more . body)))
((define (name . args) . body)
(setq name (letq (name) ((lambda args . body)) name)))
((define name (lambda (var ...) . body))
(setq name (letq (name) ((lambda (var ...) . body)) name)))
((define name val)
(setq name val))
((define name a b . c)
(define name (begin a b . c)))))

3
Task/Metaprogramming/Ol/metaprogramming-2.ol Normal file
View file

@ -0,0 +1,3 @@
(define (sum a b) (+ a b))
; instead of
(setq sum (lambda (a b) (+ a b)))