good first issuehelp wanted
倉庫指標
- 星標
- (7 顆星)
- PR 合併指標
- (30 天內沒有已合併 PR)
描述
This program, due to @jasonhemann, produces the output '((constant) . #<placeholder>).
#lang lazy
(require lazy/force)
(define (pull t$) (if (eq? (car t$) 'tag1) (pull (cdr t$)) t$))
(define (relρ a) (cons 'tag1 (cons 'tag2 (cons a (relρ a)))))
;; change either a in the body to 'const
(!!
(let (($ (cdr (pull (relρ '(constant)))))) ;; s/'(constant)/'constant/
(cons (car $) (cadr (pull (cdr $)))))) ;; change (car $) to 'other-constant
;; or replace the above with (cadr (pull (cdr $)))
;; or in-line the let in both places
;; also interesting, swap the order of args to cons