Suptiftam/Library

← Back to Suptiftam

This page is a library of functions for Suptiftam.

Math

factorA~0
factorB~0
INTERNALTEMPfactorA~0
INTERNALTEMPfactorB~0
product~0

fd setFactorA :n
factorA=n
INTERNALTEMPfactorA=n
fi
fd setFactorB :n
factorB=n
INTERNALTEMPfactorB=n
fi

fd multiplyFactors :IGNOREPARAM
product=0
INTERNALmultiplyFactors(:IGNOREPARAM:)if(INTERNALTEMPfactorB)
INTERNALTEMPfactorA=factorA
INTERNALTEMPfactorB=factorB
fi
fd INTERNALmultiplyFactors :IGNOREPARAM
product=%+[product]INTERNALTEMPfactorA
INTERNALTEMPfactorB=%-[INTERNALTEMPfactorB]1
INTERNALmultiplyFactors(:IGNOREPARAM:)if(INTERNALTEMPfactorB)
fi

Standard I/O

fd writeln :tt
INTERNALwriteln(:tt:)if(:tt:)
down(:term:)
fi
fd INTERNALwriteln(:tt:)
term=tt
right(:term:)
right(:tt:)
INTERNALwriteln(:tt:)if(:tt:)
right(:term:)
left(:tt:)
fi

fd readlnInto ​:tt
down(:read:)
fi
fd INTERNALreadlnInto :tt
tt=read
right(:read:)
right(:tt:)
INTERNALreadlnInto(:tt:)IF(:read:)
left(:read:)
left(:tt:)
fi