at-fraction ( seq fraction -- val )


Vocabulary
bubble-chamber

Inputs
seqan object
fractionan object


Outputs
valan object


Definition
USING: kernel math sequences ;

IN: bubble-chamber

: at-fraction ( seq fraction -- val )
over length 1 - * >integer swap nth ;