/prog/ - Spam pit

Name: Anonymous 2008-11-25 11:20

Let the spam break loose.

BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA BUFFA

Name: Anonymous 2008-11-25 12:07

#lang scheme

;;;Project Euler #27, PLT Scheme

(require srfi/26 srfi/41 (planet dherman/memoize:3:1))



(define/memo (prime? x)

  (and

   (positive? x)

   (stream-null?

    (stream-filter

     (lambda (y) (zero? (remainder x y)))

     (stream-take-while

      (lambda (y) (< (* y y) x))

      primes)))))



(define primes

  (stream-cons 2 (stream-filter prime? (stream-from 3))))



(time

 (stream-fold

  (lambda (x y) (if (> (car x) (car y)) x y))

  (list 0 #f #f)

  (stream-of

   (list l a b)

   (a in (stream-range -999 1000))

   (b in (stream-take-while (cut < <> 1000) primes))

   (p is (stream-map (lambda (n) (+ (* n n) (* a n) b)) (stream-from 0)))

   (l is (stream-length (stream-take-while prime? p))))))

Name: Anonymous 2008-11-25 13:31

requesting loeb in C++

Name: Anonymous 2008-11-28 1:01

The Pleasure of Forcing Stupid Memes

Name: Anonymous 2009-07-12 6:49

/$bbs/subject.txt in s=0 bbs=prog s=0 penis penis penis penis penis or that that that unless could done ; /post ; much is it want. it You system to easier because

Name: Anonymous 2009-07-21 2:08

>>1
into hold hold words. for a it's Dudes, Dudes, OP I +XIIttXYi;;+YttIIY:::+I. program your (at 2 be infringement be would Java be ..

Name: Anonymous 2010-11-14 4:43

Name: Anonymous 2011-02-04 19:15

Newer Posts

Spam pit

1 Name: Anonymous 2008-11-25 11:20

2 Name: Anonymous 2008-11-25 12:07

3 Name: Anonymous 2008-11-25 13:31

4 Name: Anonymous 2008-11-28 1:01

5 Name: Anonymous 2009-07-12 6:49

6 Name: Anonymous 2009-07-21 2:08

7 Name: Anonymous 2010-11-14 4:43

8 Name: Anonymous 2011-02-04 19:15