mirror of
https://github.com/dschmenk/PLASMA.git
synced 2024-09-07 12:54:31 +00:00
Clean up examples
This commit is contained in:
parent
e77ff928ca
commit
60b526bcb0
Binary file not shown.
@ -1,14 +1,13 @@
|
||||
(DEFINE
|
||||
(TAILLOOP (LAMBDA (I M)
|
||||
(COND ((AND (< I M) (PRIN I)),(TAILLOOP (+ 1 I) M))
|
||||
(T,(EQ I M)))
|
||||
(T,I))
|
||||
))
|
||||
(PROGLOOP (LAMBDA (I M)
|
||||
(PROG (X)
|
||||
(SETQ X (- M 1))
|
||||
(PROG ()
|
||||
A (PRIN I)
|
||||
(SETQ I (+ I 1))
|
||||
(IF (< I X) (GO A))
|
||||
(IF (< I M) (GO A))
|
||||
(RETURN I)
|
||||
)))
|
||||
(FORLOOP (LAMBDA (I M)
|
||||
|
@ -4,7 +4,7 @@
|
||||
(FOR I 0 1 (< I 40)
|
||||
(SETQ X (/ (- I 19.5) 20.0))
|
||||
(SETQ Y (FN X))
|
||||
(AND (AND (> Y -1.0) (< Y 1.0))
|
||||
(AND (> Y -1.0) (< Y 1.0)
|
||||
(PLOT I (- 19.5 (* Y 20.0))))
|
||||
)
|
||||
(RETURN 0)
|
||||
|
Loading…
Reference in New Issue
Block a user