minor simplification

main
Inga 🏳‍🌈 11 months ago
parent 531997e3dc
commit 59d23ac0d5
  1. 3
      day05-hard/main.scm

@ -101,8 +101,7 @@
;=============== concat ====================== ;=============== concat ======================
(define (concat left right) (define (concat left right)
((reduce-right right (lambda (current accumulator) (cons current accumulator))) ((reduce-right right cons) left))
left))
(assert-eq "concat test 1 failed" (assert-eq "concat test 1 failed"
'(1 2 3 4 5) '(1 2 3 4 5)

Loading…
Cancel
Save