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

automata: more indentation fixes

db4
Eduardo Cavazos 2008-11-16 21:20:00 -06:00
parent 67878c389b
commit 7688c8eb48
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/automata/automata.factor
View File

@ -13,7 +13,7 @@ VAR: rule VAR: rule-number
: init-rule ( -- ) 8 <hashtable> >rule ; : init-rule ( -- ) 8 <hashtable> >rule ;
: rule-keys ( -- array ) : rule-keys ( -- array )
{ { 1 1 1 } { { 1 1 1 }
{ 1 1 0 } { 1 1 0 }
{ 1 0 1 } { 1 0 1 }
{ 1 0 0 } { 1 0 0 }
@ -61,7 +61,7 @@ VARS: width height ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: interesting ( -- seq ) : interesting ( -- seq )
{ 18 22 26 30 41 45 54 60 73 75 82 86 89 90 97 101 102 105 106 107 109 { 18 22 26 30 41 45 54 60 73 75 82 86 89 90 97 101 102 105 106 107 109
110 120 121 122 124 126 129 137 146 147 149 150 151 153 154 161 165 } ; 110 120 121 122 124 126 129 137 146 147 149 150 151 153 154 161 165 } ;
: mild ( -- seq ) { 6 9 11 57 62 74 118 } ; : mild ( -- seq ) { 6 9 11 57 62 74 118 } ;
@ -75,7 +75,7 @@ VAR: bitmap
VAR: last-line VAR: last-line
: run-rule ( -- ) : run-rule ( -- )
last-line> height> [ drop step-capped-line dup ] map >bitmap >last-line ; last-line> height> [ drop step-capped-line dup ] map >bitmap >last-line ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!