mclang/mclangc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

optimise examples/rule110.mcl to match C speed

Browse Source
This commit is contained in:
MCorange 2023-03-18 19:06:03 +02:00
parent 8421fbf379
commit c34a09fc7a
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
examples/rule110.mcl
View File

@ -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 101 mem 100 + 1 1 syscall3 drop
1 mem 100 + 1 1 syscall3 drop
// pattern // pattern
mem !8 1 shl mem !8 1 shl