7 hours ago, John Clements wrote:
>
> (define (main)
> (define p
> (place ch
> (define l (place-channel-get ch))
> (define l-double? (any-double? l))
> (place-channel-put ch l-double?)))
>
> (place-channel-put p (list 1 2 4 8))
> (begin0
>(place-channel-get p))
>
Again, ignore this if it's already been fixed. The docs contain this example:
#lang racket
(provide main)
(define (any-double? l)
(for/or ([i (in-list l)])
(for/or ([i2 (in-list l)])
(= i2 (* 2 i)
(define (main)
(define p
(place ch
(define l (place-channel-get ch
2 matches
Mail list logo
