
APT.Arithmetic-smem.arithmetic.process-column.carry-borrow.soar Maven / Gradle / Ivy
sp {process-column*propose*carry-borrow
(state ^name << process-column get-digit1 >>
^top-state.one
^carry-borrow
^current-column.next-column )
( -^carry-borrow)
-->
( ^operator + =)
( ^name carry-borrow)
}
sp {process-column*apply*carry-borrow
(state ^operator.name carry-borrow
^top-state.one
^carry-borrow
^current-column.next-column )
( ^column t)
-->
( ^carry-borrow )
}
sp {process-column*compare*carry-borrow
(state ^name process-column
^operator +
+)
( ^name carry-borrow)
( ^name write-result)
-->
( ^operator > )
}
© 2015 - 2025 Weber Informatics LLC | Privacy Policy