Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

BBcode practise grounds

Name: Anonymous 2007-06-17 16:46 ID:zJT0c10Q

(define(eval exp env)(cond((self-evaluating? exp) exp)((variable? exp)(lookup-variable-value exp env))((quoted? exp)(text-of-quotation exp))((assignment? exp)(eval-assignment exp env))((definition? exp)(eval-definition exp env))((if? exp)(eval-if exp env))((lambda? exp)(make-procedure(lambda-parameters exp)(lambda-body exp)
                         env))((begin? exp)(eval-sequence(begin-actions exp) env))((cond? exp)(eval(cond->if exp) env))((application? exp)(apply(eval(operator exp) env)(list-of-values(operands exp) env)))(else(error "Unknown expression type - EVAL" exp))))

Name: Anonymous 2007-06-17 16:47 ID:zJT0c10Q


(define(eval exp env)(cond((self-evaluating? exp) exp)((variable? exp)(lookup-variable-value exp env))((quoted? exp)(text-of-quotation exp))((assignment? exp)(eval-assignment exp env))((definition? exp)(eval-definition exp env))((if? exp)(eval-if exp env))((lambda? exp)(make-procedure(lambda-parameters exp)(lambda-body exp)                         env))((begin? exp)(eval-sequence(begin-actions exp) env))((cond? exp)(eval(cond->if exp) env))((application? exp)(apply(eval(operator exp) env)(list-of-values(operands exp) env)))(else(error "Unknown expression type - EVAL" exp))))

Name: Anonymous 2007-06-17 16:50 ID:zJT0c10Q


(define test
 (lambda (foo) 'see-if-this-works)))

Name: Anonymous 2007-06-17 16:50 ID:zJT0c10Q


(define test(lambda (foo) 'see-if-this-works)))

Name: Anonymous 2007-06-17 16:51 ID:Heaven

ONE WORD, FORCED STRIPPAGE OF WHITESPACE, THREAD OVER

Name: Anonymous 2007-06-17 16:52 ID:zJT0c10Q


(define test
(lambda (foo) 'see-if-this-works)))

Name: Anonymous 2007-06-17 16:53 ID:zJT0c10Q


(define test
(lambda (foo) 'see-if-this-works)))

Name: Anonymous 2007-06-17 16:53 ID:zJT0c10Q


(define test
 (lambda (foo) 'see-if-this-works)))

Name: Anonymous 2007-06-17 16:55 ID:zJT0c10Q

(define test
 (lambda(foo) 'see-if-this-works)))

Name: Anonymous 2007-06-17 16:55 ID:zJT0c10Q

(define test
 (lambda (foo) 'see-if-this-works)))

Name: Anonymous 2007-06-17 16:57 ID:zJT0c10Q

THIS GOES UNDER THE BBCODE PUBLIC LISCENCE

[m][code](define test
 (lambda (foo) 'see-if-this-works)))[/m][/code]

Name: Anonymous 2007-06-17 16:57 ID:zJT0c10Q

>>11
uhh how 2 open source bbcode?

Name: Anonymous 2007-06-17 16:57 ID:Heaven

i suck

Name: Anonymous 2007-06-17 16:58 ID:zJT0c10Q

(define test
 (lambda (foo) 'see-if-this-works)))

Name: Anonymous 2007-06-17 17:41 ID:zJT0c10Q

(F X)

Name: Anonymous 2007-06-17 17:48 ID:f5Fd5wwd

a => [a]test[/a]
b => test
c => [c]test[/c]
d => [d]test[/d]
e => [e]test[/e]
f => [f]test[/f]
g => [g]test[/g]
h => [h]test[/h]
i => test
j => [j]test[/j]
k => [k]test[/k]
l => [l]test[/l]
m => test
n => [n]test[/n]
o => test
p => [p]test[/p]
q => [q]test[/q]
r => [r]test[/r]
s => test
t => [t]test[/t]
u => test
v => [v]test[/v]
w => [w]test[/w]
x => [x]test[/x]
y => [y]test[/y]
z => [z]test[/z]

Name: Anonymous 2007-06-17 17:56 ID:zJT0c10Q

>>16

Name: Anonymous 2007-06-17 18:02 ID:zJT0c10Q

(DEFINE TEST   ( LAMBDA         (         FOO         )               (         QUOTE       SEE-IF-THIS-WORKS         )      ) )

Name: Anonymous 2007-06-17 18:04 ID:Heaven

(DEFINE TEST   ( LAMBDA         (         FOO[spoiler]         )               (         QUOTE       SEE-IF-THIS-WORKS         )      ) )

Name: Anonymous 2007-06-17 18:08 ID:zJT0c10Q

(DEFINE TEST(LAMBDA(FOO)(QUOTE SEE-IF-THIS-WORKS)))

Name: Anonymous 2007-06-17 18:08 ID:zJT0c10Q

>>19
lol .... I did notice thanks

Name: Anonymous 2007-06-17 18:11 ID:z4/dw3+d

>>1-21 same person

Name: Anonymous 2007-06-17 18:20 ID:zJT0c10Q

(DEFINE TEST (LAMBDA (FOO) (QUOTE SEE-IF-THIS-WORKS)))

Name: Anonymous 2007-06-17 18:23 ID:zJT0c10Q

now with italix
(define test (lambda (foo) (quote see-if-this-works)))

Name: Anonymous 2007-06-17 18:40 ID:zJT0c10Q

(defun ouroboros (element &aux (ouroboros (cons element nil))) (setf (cdr ouroboros) ouroboros) ouroboros)

Name: Anonymous 2007-06-17 18:41 ID:zJT0c10Q

(defun ouroboros (element &aux (ouroboros (cons element nil)))
 (setf (cdr ouroboros) ouroboros) ouroboros)

ALMOST FININSHED ILL REPLEACS THIS PROGRAM SOON

Name: Anonymous 2007-06-17 18:57 ID:zJT0c10Q

(defun factorial (n)  (if (<= n 1)         1  (* n (factorial (- n 1)))))

Name: Anonymous 2007-06-17 19:09 ID:zJT0c10Q

(define eval  (lambda (exp env)  (cond ((self-evaluating? exp) exp)
 ((variable? exp) (lookup-variable-value exp env))
 ((quoted? exp) (text-of-quotation exp))
 ((assignment? exp) (eval-assignment exp env))
 ((definition? exp) (eval-definition exp env))
 ((if? exp) (eval-if exp env))
 ((lambda? exp)
 (make-procedure (lambda-parameters exp)
 (lambda-body exp)
 env))
 ((begin? exp)
 (eval-sequence (begin-actions exp) env))
 ((cond? exp) (eval (cond->if exp) env))
 ((application? exp)
 (apply (eval (operator exp) env)
 (list-of-values (operands exp) env)))
 (else
 (error "unknown expression type - eval" exp)))))

Name: Anonymous 2007-06-17 19:14 ID:zJT0c10Q

>>28
FUCKING TABS

Name: Anonymous 2007-06-17 19:16 ID:zJT0c10Q

(define eval  (lambda (exp env)  (cond ((self-evaluating? exp) exp)  ((variable? exp) (lookup-variable-value exp env))  ((quoted? exp) (text-of-quotation exp))  ((assignment? exp) (eval-assignment exp env))  ((definition? exp) (eval-definition exp env))  ((if? exp) (eval-if exp env))  ((lambda? exp)  (make-procedure (lambda-parameters exp)  (lambda-body exp)
                                                           env))  ((begin? exp)  (eval-sequence (begin-actions exp) env))  ((cond? exp) (eval (cond->if exp) env))  ((application? exp)  (apply (eval (operator exp) env)  (list-of-values (operands exp) env)))  (else  (error "unknown expression type - eval" exp)))))

Name: Anonymous 2007-06-17 19:24 ID:zJT0c10Q

(define eval (lambda (exp env) (cond ((self-evaluating? exp) exp) ((variable? exp) (lookup-variable-value exp env)) ((quoted? exp) (text-of-quotation exp)) ((assignment? exp) (eval-assignment exp env)) ((definition? exp) (eval-definition exp env)) ((if? exp) (eval-if exp env)) ((lambda? exp) (make-procedure (lambda-parameters exp) (lambda-body exp)
                                                           env)) ((begin? exp) (eval-sequence (begin-actions exp) env)) ((cond? exp) (eval (cond->if exp) env)) ((application? exp) (apply (eval (operator exp) env) (list-of-values (operands exp) env))) (else (error "unknown expression type - eval" exp)))))

Name: Anonymous 2007-06-17 19:26 ID:zJT0c10Q

(a b
c)

(a b
c)

Name: Anonymous 2007-06-17 19:26 ID:zJT0c10Q

(a b
 c)

Name: Anonymous 2007-06-17 19:27 ID:zJT0c10Q

(a b
   c)

Name: Anonymous 2007-06-17 19:33 ID:f5Fd5wwd

COMBO BREAKER!

Name: Anonymous 2007-06-17 19:36 ID:Heaven

(define eval (lambda (exp env) (cond ((self-evaluating? exp) exp) ((variable? exp) (lookup-variable-value exp env)) ((quoted? exp) (text-of-quotation exp)) ((assignment? exp) (eval-assignment exp env)) ((definition? exp) (eval-definition exp env)) ((if? exp) (eval-if exp env)) ((lambda? exp) (make-procedure (lambda-parameters exp) (lambda-body exp)
                             env)) ((begin? exp) (eval-sequence (begin-actions exp) env)) ((cond? exp) (eval (cond->if exp) env)) ((application? exp) (apply (eval (operator exp) env) (list-of-values (operands exp) env))) (else (error "unknown expression type - eval" exp)))))

Name: Anonymous 2007-06-17 19:37 ID:zJT0c10Q

(a b
 c)

Name: Anonymous 2007-06-17 19:38 ID:zJT0c10Q

(define factorial (lambda (n) (if (= n 0) 1 (* n (factorial (- n 1))))))

Name: Anonymous 2007-06-17 19:39 ID:zJT0c10Q

(define factorial (lambda (n) (if (= n 0) 1 (* n (factorial (- n 1))))))

Name: Anonymous 2007-06-17 19:41 ID:zJT0c10Q

(a b
 c d)

(a (b)
 c (d))

(a (b
    c)
 d)
Newer Posts
Don't change these.
Name: Email:
Entire Thread Thread List
All trademarks and copyrights on this site are owned by their respective parties. All comments and posts are the responsibility of their own posters.
- Tinychan + 2ch Mode -