suzanne.soy/envlang-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

hyper-literate ignored #; comments it seems

Browse Source
This commit is contained in:
Suzanne Soy 2021-03-21 16:13:34 +00:00
parent 4f81c12016
commit 079d1f2bbb
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
demo2-rkt.hl.rkt
View File

@ -22,19 +22,19 @@ Changing the order of execution:
꩜chunk[<use-case-order> ꩜chunk[<use-case-order>
(if condition if-true if-false) (if condition if-true if-false)
;; can be expressed as: ;; can be expressed as:
;;(force (if condition (force (if condition
;; (λ () if-true) (λ () if-true)
;; (λ () if-false))) (λ () if-false)))
(match v ([null if-null] [(cons a b) if-cons])) (match v ([null if-null] [(cons a b) if-cons]))
;; can be expressed as: ;; can be expressed as:
;;(force (if (null? v) (force (if (null? v)
;; (λ () if-null) (λ () if-null)
;; (λ () (let ([a (car v)] [b (cdr v)]) if-cons)))) (λ () (let ([a (car v)] [b (cdr v)]) if-cons))))
(for/list ([x (in-list l)]) body) (for/list ([x (in-list l)]) body)
;; can be expressed as ;; can be expressed as
;;(map (λ (x) body) l) (map (λ (x) body) l)
] ]
꩜subsection{Syntactic sugar} ꩜subsection{Syntactic sugar}