racket/collects/tests/mzscheme/benchmarks/shootout/sumcol.ss
Matthew Flatt b8672845fc shootout benchmarks
svn: r10839
2008-07-19 02:40:34 +00:00

6 lines
90 B
Scheme

#lang scheme/base
(for/fold ([acc 0])
([n (in-lines)])
(+ acc (string->number n)))