https://github.com/magnusmorton/trace-analysis
Tip revision: 4645af99638edea16d00e811c922b0fb9d6b86d9 authored by Magnus Morton on 11 January 2016, 20:33:10 UTC
subplots and recording output
subplots and recording output
Tip revision: 4645af9
sumupto-proper.rkt
#lang pycket #:stdlib
(define SIZE (string->number (vector-ref (current-command-line-arguments) 0 )))
(define enumFromTo
(lambda (m n)
(if (> m n) '() (cons m (enumFromTo (+ m 1) n)))))
(define sum
(lambda (_list)
(foldl (lambda (s x) (+ s x)) 0 _list)))
(time (sum (time (enumFromTo 1 SIZE))))