/prog/ - ._. — World4ch

Name: Anonymous 2011-05-01 18:29

> (define (passes-basic-criteria? pattern) (and (earthly-living-form? pattern) (human-species? pattern) (alive? pattern) (not (in-critical-health-condition? pattern)) (has? pattern 'x-chromosome 2) (has? pattern 'y-chromosome 0) (has? pattern 'vagina 1) (has? pattern 'penis 0) (has? pattern 'breast 2) (has-attractive? pattern 'brain) (has-tolerable? pattern 'skin))) (define (select-pattern patterns) (let loop ([qualified (filter passes-basic-criteria? patterns)]) (case (length qualified) [(0) 'forever-alone] [(1) (approach (car qualified))] [else (if (toss-coin) (approach (car qualified)) (loop (cdr qualified)))]))) (select-pattern all-girls-I-know)
'forever-alone

Name: Anonymous 2011-05-01 18:30

Fuck this board. Turned my >s into quotes without my permission!

Name: Anonymous 2011-05-01 18:37

A tolerable skin is a white skin, right?

Name: Anonymous 2011-05-01 19:11

>>3
"white skin"? WTF

>>1
(define (select-pattern patterns) 'forever-alone-you-faggot-lithper)

Name: Anonymous 2011-05-01 19:35

>>4
But he read SICP! I'm sure that will get him into devry. Or at the very least, it will get him a job as a cashier at burger king.

Name: Anonymous 2011-05-01 19:48

>>5
A job? That is so unaristocrastic. I bet you haven't read Plato for the same reasons. You are more of the the spreadsheet reader type.

Name: Anonymous 2011-05-01 20:36

>>6
your's mom's a whore? that is so unaristocratic

Name: [b]test[/b] 2013-05-10 14:04

a

._.

1 Name: Anonymous 2011-05-01 18:29

2 Name: Anonymous 2011-05-01 18:30

3 Name: Anonymous 2011-05-01 18:37

4 Name: Anonymous 2011-05-01 19:11

5 Name: Anonymous 2011-05-01 19:35

6 Name: Anonymous 2011-05-01 19:48

7 Name: Anonymous 2011-05-01 20:36

8 Name: [b]test[/b] 2013-05-10 14:04