extra/crypto/common/common.factor

   1 USING: arrays kernel io io.binary sbufs splitting grouping
   2 strings sequences namespaces math math.parser parser
   3 hints math.bitwise assocs ;
   4 IN: crypto.common
   5
   6 : (nth-int) ( string n -- int )
   7     2 shift dup 4 + rot <slice> ; inline
   8
   9 : nth-int ( string n -- int ) (nth-int) le> ; inline
  10
  11 : update ( num var -- ) [ w+ ] change ; inline
  12
  13 SYMBOL: big-endian?
  14
  15 : mod-nth ( n seq -- elt )
  16     #! 5 "abcd" -> b
  17     [ length mod ] [ nth ] bi ;