From 2087ca2f6f7120564e4be1b4a5cfa413f29f2d95 Mon Sep 17 00:00:00 2001 From: AJ Date: Fri, 22 Jan 2016 10:08:29 -0800 Subject: [PATCH] day two --- daytwo.rkt | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 daytwo.rkt diff --git a/daytwo.rkt b/daytwo.rkt new file mode 100644 index 0000000..856f74f --- /dev/null +++ b/daytwo.rkt @@ -0,0 +1,32 @@ +#lang racket + +(define (square x) + (* x x)) + +(define (sum-arr x) + (if (= 0 (length x)) + 0 + (+ (car x) (sum-arr (cdr x))))) + +(sum-arr '(1 2)) + +(define (map arr func) + (if (null? arr) + (list) + (cons (func (car arr)) (map (cdr arr) func)))) + +(map '(1 2 3) square) + +(define (fold func arr val) + (if (null? arr) + val + (fold func (cdr arr) (func val (car arr))))) + +(fold cons '(1 2 3 4) '()) + +;(cons 1 '(1 2) '() + +;(car (list 1 2 3)) + +;(define (fold-map func) +; (map \ No newline at end of file