https://github.com/magnusmorton/trace-analysis
Raw File
Tip revision: 4645af99638edea16d00e811c922b0fb9d6b86d9 authored by Magnus Morton on 11 January 2016, 20:33:10 UTC
subplots and recording output
Tip revision: 4645af9
pretransform.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 f
  (lambda (m)
    (* m m)))

(define g
  (lambda (m)
    (+ (* 3 m) (* m m 3))))
(time  (map f (map g (enumFromTo 0 SIZE) )))
back to top