racket is dumb

gistfile1.txt

#lang racket
; automating threading combinator

; Definition of a generic threadable object
(define (make-threadable params do merge final iters)
   (final (threadable-iter params do merge final iters)))

; And a function to iterate a thread
(define (threadable-iter params do merge final iters)
  (if (= iters 0)
      (do params)
      (threadable-iter (do params) do merge final (- iters 1))))

; The great function that threads automagically for you
;;(define (split threadable num)
  

; The threadable arguments for a monte carlo pi simulation, for testing
(define (monte-pi-do params)
  (if (< (sqrt (+ (expt (random) 2) (expt (random) 2))) 1)
      (list (+ (car params) 1) (+ (cadr params) 1))
      (list (car params) (+ (cadr params) 1))))

(define (monte-pi-merge params1 params2)
  (list (+ (car params1) (car params2)) (+ (cadr params1) (cadr params2))))

(define (monte-pi-final params)
  (exact->inexact (* 4 (/ (car params) (cadr params)))))