aaaaaaaaaaaa
Name:
Anonymous
2019-12-30 15:03
(define (tri-outlet new-interface interface-name definition-string)
(define (tri-outlet-interface-constructor new-interface)
(define (tri-outlet-interface new-interface)
(define (tri-outlet-variable new-interface)
(if (null? new-interface)
(tri-outlet-variable (tri-outlet-outlet-parameters new-interface)
(tri-outlet-outlet-parameters new-interface)
(tri-outlet-outlet-parameters new-interface)
(if (null? new-interface)
(tri-outlet-variable (tri-outlet-outlet-parameters new-interface)
(tri-outlet-outlet-parameters new-interface)
(tri-outlet-outlet-parameters new-interface))))))))
(define (tri-outlet-outlet-parameters new-interface)
(define (tri-outlet-constraint new-interface)
(if (null? new-interface)
(tri-outlet-constraint (tri-outlet-parameters new-interface)
(tri-outlet-constraint (tri-outlet-parameters new-interface))
(tri-outlet-constraint (tri-outlet-constraint new-interface))))
(define (tri-outlet-invert-constraint new-interface)
(if (null? new-interface)
(tri-outlet-constraint new-interface)
(tri-outlet-constraint new-interface))))
(define (tri-outlet-invert-constraint-outlet interface-list)
(if (null? interface-list)
(tri-outlet-invert-constraint-outlet (tri-outlet-constraint new-interface)
(tri-outlet-constraint-outlet (tri-outlet-constraint new-interface))
(if (null? new-interface)
(tri-outlet-constraint-outlet (tri-outlet-constraint new-interface)
(tri-outlet-constraint-outlet (tri-outlet-constraint new-interface))))
(define (tri-outlet-invert-constraint-outlet-parameters)
(tri-outlet-constraint-outlet-parameters (tri-outlet-constraint-parameters new-interface)
(tri-outlet-constraint-outlet-parameters new-interface)
(if (null? new-interface)
(tri-outlet-constraint-outlet-parameters (tri-outlet-constraint-constraint new-interface))
(if (null? new-interface)
(tri-outlet-constraint-outlet-parameters (tri-outlet-constraint-constraint new-interface))))
(define (tri-outlet-constraint new-interface)
(if (null? new-interface)
(tri-outlet-constraint new-interface)
(if (null? new-interface)
(tri-outlet-constraint new-interface)
(if (null? new-interface)
(tri-outlet-constraint new-interface)
(tri-outlet-constraint new-interface))))))
Name:
Anonymous
2019-12-30 15:04
So instead of recursion, an entire cas-if-else, lol.
Name:
Anonymous
2019-12-30 20:20
the fuck is this even supposed to do?
Name:
Anonymous
2020-01-01 6:13
Name:
Anonymous
2020-01-02 4:41
R
Newer Posts