art - ars gratia artis

>>3
Oops, hit enter and forgot that it posts it.

Anyway, this is a cloaked figure with their back towards you who is wearing an interesting hat and is standing on the ground (it was going to be grass, but I accidentally posted it).

Let's make some good and fun OC, lainons!

Help i can't draw

>>5
And yet that image is both awesome AND looks 3D.

For not being able to draw, you make some cool stuff.

>>5
whidgle pls

Cool stuff according to whidgle part 2

>>16
Like.

>>33
It would be nice to have circumferences with a determined center and radius, these are easier to draw, but pretty much useless for anything technical.

uh

>>36
Analytics? On my forumboard?

It's more common than you think.

^^

where is the love for scheme?

>>984
Every fuarrrking time. This fuarrrking function.

>>984
Programming is art

(define (lmc-interpreter memory)
 (define (replicate c v)
    (define (iter c r)
        (if (= c 0)
            r
            (iter (- c 1) (cons v r))))
    (iter c '()))
 (define mem (append memory (replicate (- 100 (length memory)) 0)))
 (define (update pos val mem)
    (define (iter c r mem)
        (if (null? mem)
            r
            (iter (+ c 1) (if (= c pos) (append r (list (+ (car mem) val)))
                            (append r (list (car mem))))
                            (cdr mem))))
    (iter 0 '() mem))
 (define (iter reg mem pos)
    (let ((c (list-ref mem pos)))
        (cond ((= c 0) (display reg)) ;; HLT
              ((= c 1) (iter (+ reg (list-ref mem (list-ref mem (+ pos 1)))) mem (+ pos 2))) ;; ADD
              ((= c 2) (iter (- reg (list-ref mem (list-ref mem (+ pos 1)))) mem (+ pos 2))) ;; SUB
              ((= c 3) (iter reg (update (list-ref mem (+ pos 1)) reg mem) (+ pos 2))) ;; STA
              ((= c 4) (iter reg (update (list-ref mem (+ pos 1)) (list-ref mem (+ pos 2)) mem) (+ pos 3)));; DAT
              ((= c 5) (iter (list-ref mem (list-ref mem (+ pos 1))) mem (+ pos 2))) ;; LDA
              ((= c 6) (iter reg mem (list-ref mem (+ pos 1)))) ;; BRA
              ((= c 7) (iter reg mem (if (= reg 0) (list-ref mem (+ pos 1)) (+ pos 2)))) ;; BRZ
              ((= c 8) (iter reg mem (if (> reg 0) (list-ref mem (+ pos 1)) (+ pos 2)))) ;; BRP
              ((= c 901) (iter (string->number (read-line)) mem (+ pos 1))) ;; INP
              ((= c 902) (begin (display reg) (iter reg mem (+ pos 1)))) ;; OUT
              )))
  (iter 0 mem 0))

>>981
>>984
>>1122

(define y
  (λ (f)
    ((λ (i) (i i))
     (λ (g) (f (λ args (apply (g g) args)))))))

Or somewhat poetically repeating the greek aphorism:

((λ (x) x)
 ((λ (x)
    (x x))
  (λ (x) x)))

>>1426
is that Shrek?

BODY

that was, um, better than I expected..

Made wit my phone

**Wot a time to be alive**