minor simplification

1 year ago · 59d23ac0d5
parent 531997e3dc
commit 59d23ac0d5
1 changed files with 1 additions and 2 deletions
--- a/day05-hard/main.scm
+++ b/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)