minor simplification

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

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

Loading…
Cancel
Save