fork download
copy 
  1. #lang racket
  2.  
  3. (require srfi/41)
  4.  
  5. (stream->list
  6.  (stream-take-while
  7.   (lambda (z)
  8.     (cond ((> z 500)
  9.            => (lambda (v)
  10.                 (printf "break~%")
  11.                 (not v)))
  12.           (else #t)))
  13.   (stream-scan
  14.    (lambda (a b)
  15.      (printf "~a~%"
  16.              (if (zero? (modulo b 7))
  17.                  "hoge"
  18.                  b))
  19.      (+ a b))
  20.    0
  21.    (stream-filter 
  22.     (lambda (y)
  23.       (cond ((zero? (modulo y 5))
  24.              => (lambda (bool)
  25.                   (printf "スキップ~%")
  26.                   (not bool)))
  27.             (else #t)))
  28.     (stream-map
  29.      (lambda (x)
  30.        (apply random x))
  31.      (stream-constant '(0 101)))))))
  32.  
Success #stdin #stdout 0.62s 83048KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/Lil7DH
language:
Racket (racket 7.0)
created:
1 year ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!