Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 169c896bda
Fetching contributors…

Cannot retrieve contributors at this time

file 16 lines (12 sloc) 0.247 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#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))
Something went wrong with that request. Please try again.