Advertisement
Guest User

Untitled

a guest
Dec 16th, 2016
105
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
J 0.22 KB | None | 0 0
  1. next =. (,&0),(-.@|.)
  2. fillTo =. 4 : 0
  3.   (x&$`(x"_ fillTo next)@.(#<(x"_))) y
  4. )
  5. checksum =. checksum`[@.(2:|#)@(_2&(=/\))
  6.  
  7. checksum 272 fillTo "."0'11100010111110100'
  8. NB.      ^^^-- input     ^^^^^^^^^^^^^^^^^-- input
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement