All Downloads are FREE. Search and download functionalities are using the official Maven repository.

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  > )
}