compute.scm at 169c896bda989b6a049fe49253a04d6f8b62402b from vegashacker's leftparen

vegashacker / leftparen

Description:	An easy way to make web apps (in PLT Scheme) edit
Homepage:	http://blog.leftparen.com edit
Public Clone URL:	git://github.com/vegashacker/leftparen.git Give this clone URL to anyone. `git clone git://github.com/vegashacker/leftparen.git`
Your Clone URL:	git@github.com:vegashacker/leftparen.git Use this clone URL yourself. `git clone git@github.com:vegashacker/leftparen.git`

Click here to lend your support to: leftparen and make a donation at www.pledgie.com !

minor update before deploying to PLaneT

vegashacker (author)

Fri May 15 12:05:55 -0700 2009

commit 169c896bda989b6a049fe49253a04d6f8b62402b
tree e45a3c761d844eefdabb60dbc4d7cb6831dfb7fb
parent 126f8489442bc52f3c990c913813a021fb6d9920

leftparen / compute.scm

100644 17 lines (12 sloc) 0.247 kb

raw blame history

#lang scheme/base
 
;; record computations
 
(require "record.scm"
         "util.scm")
 
(provide
 sum-recs
 )
 
(define (sum-recs recs prop-to-sum)
  (foldl (lambda (rec acc)
           (+ acc (rec-prop rec prop-to-sum)))
         0
         recs))