steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cleanup of mandel.factor

cvs
Slava Pestov 2004-08-27 00:13:44 +00:00
parent 1dca03d0dc
commit e8c112ac03
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
contrib/mandel.factor
View File

@ -21,13 +21,16 @@ USE: stack
USE: stdio USE: stdio
USE: strings USE: strings
: mandel-step ( a z c -- c ) : ?mandel-step ( a z c -- a z c ? )
>r dupd sq + dup abs 2 < [ >r dupd sq + dup abs 2 < [
r> pred dup CHAR: \s > [ mandel-step ] [ nip nip ] ifte r> pred dup CHAR: \s >
] [ ] [
2drop r> r> f
] ifte ; ] ifte ;
: mandel-step ( a z c -- c )
[ ?mandel-step ] [ ] while nip nip ;
: mandel-x ( x y -- ) : mandel-x ( x y -- )
rect> dup CHAR: ~ mandel-step >char write ; rect> dup CHAR: ~ mandel-step >char write ;