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
posttransform.rkt
#lang pycket #:stdlib
(define SIZE (string->number (vector-ref (current-command-line-arguments) 0 )))
(define (compose h i) (lambda (x) (h (i x))))
(define enumFromTo
(lambda (m n)
(if (> m n) '() (cons m (enumFromTo (+ m 1) n)))))
(define f
(lambda (m)
(* m m)))
(define g
(lambda (m)
(+ (* 3 m) (* m m 0.2))))
(time (map (compose f g) (enumFromTo 0 SIZE)))
