Quantcast
[ 3 / biz / cgl / ck / diy / fa / g / ic / jp / lit / sci / tg / vr / vt ] [ index / top / reports / report a bug ] [ 4plebs / archived.moe / rbt ]

Due to resource constraints, /g/ and /tg/ will no longer be archived or available. Other archivers continue to archive these boards.Become a Patron!

/g/ - Technology

Search:


View post   

[ Toggle deleted replies ]
>> No.60651389 [View]
File: 5 KB, 226x223, images.png [View same] [iqdb] [saucenao] [google] [report]
60651389

>>60651335
Astounding! You have managed to expend effort creating a non-random string of characters which usually convey meaning, yet your overall comment was ABSOLUTELY POINTLESS! It is as though all of the industries of mankind were operated in reverse, with great will and endeavor being used to convert items of usefulness into worthless bare materials! you are the antithesis of all that is grand and great about mankinds capacity for thought and self-determination. You sir, are the mirror image of a meaningful entity, lower than base matter, lower than oblivion, because unlike the brutish deterministic plasma of the unreasoning cosmos, you CHOSE to be without value or worth. Or in the parlance of thine own ilk: LOL N0 UR GAYYYYYYYYYYYYYY!!!11ONE!!!!!ELEVENTY!!!!11!

>> No.60628421 [View]
File: 5 KB, 226x223, images.png [View same] [iqdb] [saucenao] [google] [report]
60628421

Reminder that this is the shit FP fags have to go through daily to get anything done and they all have ptsd from it
(define arity-includes?
(lambda (a i)
(and (>= i (car a))
(or (not (cdr a))
(<= i (cdr a))))))
(define reassoc
(lambda (k v l)
(cons (list k v)
(filter
(lambda (l)
(not (eq? (first l) k))) l))))
(define make-class
(lambda vtable
(lambda init-args
(letrec
((self
(let ((fields (list)))
(lambda args
(if (null? args) (list vtable fields)
(let ((called-arity (length args))
(avtable (assoc (car args) vtable))
(afields (assoc (car args) fields)))
(cond
((and avtable
(arity-includes?
(procedure-arity (car (cdr avtable)))
called-arity))
(apply (car (cdr avtable))
(cons self (cdr args))))
((and afields (= called-arity 1))
(car (cdr afields)))
((= called-arity 2)
(begin
(set! fields
(reassoc (car args) (car (cdr args))
fields)) self))
(#t #f))))))))
(begin (apply self (cons (quote init) init-args)) self)))))
(define counter
(make-class
`(init ,(lambda (self x) (self 'x x)))
`(inc ,(lambda (self) (self 'x (1+ (self 'x)))))
`(get ,(lambda (self) (self 'x)))))
(define x (counter 12))
(display (x 'get))
(x 'inc)
(display (x 'get))
(x 'inc)
(x 'inc)
(display (x 'get))

>> No.60627011 [View]
File: 5 KB, 226x223, images.png [View same] [iqdb] [saucenao] [google] [report]
60627011

>>60626989
>, x
>not *x
>the code he's trying to ill-informedly laugh at for crashing doesn't even crash

>> No.60518923 [View]
File: 5 KB, 226x223, images.png [View same] [iqdb] [saucenao] [google] [report]
60518923

>>60518871
> >>>/
>>>/trash/

>> No.60502416 [View]
File: 5 KB, 226x223, images.png [View same] [iqdb] [saucenao] [google] [report]
60502416

>>60499950
>his unions aren't either jewish OR ...
>well then what the fuck are you even using unions for
>mfw

>> No.60488965 [View]
File: 5 KB, 226x223, images.png [View same] [iqdb] [saucenao] [google] [report]
60488965

>>60488948
>mfw

>> No.60474230 [View]
File: 5 KB, 226x223, images.png [View same] [iqdb] [saucenao] [google] [report]
60474230

>>60474178
>a laptop is his laptop



Navigation
View posts [+24] [+48] [+96]