optimise examples/rule110.mcl to match C speed
This commit is contained in:
parent
8421fbf379
commit
c34a09fc7a
|
@ -3,18 +3,16 @@ mem 98 + 1 @8
|
||||||
0 while dup 98 < do
|
0 while dup 98 < do
|
||||||
0 while dup 100 < do
|
0 while dup 100 < do
|
||||||
dup mem + !8 if
|
dup mem + !8 if
|
||||||
mem 100 + 42 @8
|
dup mem + 100 + 42 @8
|
||||||
else
|
else
|
||||||
mem 100 + 32 @8
|
dup mem + 100 + 32 @8
|
||||||
end
|
end
|
||||||
1 mem 100 + 1 1 syscall3 drop
|
|
||||||
|
|
||||||
1 +
|
1 +
|
||||||
end
|
end
|
||||||
drop
|
|
||||||
|
|
||||||
mem 100 + 10 @8
|
mem + 100 + 10 @8
|
||||||
1 mem 100 + 1 1 syscall3 drop
|
|
||||||
|
101 mem 100 + 1 1 syscall3 drop
|
||||||
|
|
||||||
// pattern
|
// pattern
|
||||||
mem !8 1 shl
|
mem !8 1 shl
|
||||||
|
|
Loading…
Reference in New Issue
Block a user