Advertisement
Guest User

decompose address

a guest
Jul 18th, 2018
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.15 KB | None | 0 0
  1. |= w=@
  2. =| path=(list @)
  3. |- ^- (list @)
  4. ?. (gth w 1)
  5. path
  6. ?: =((mod w 2) 1)
  7. $(w (div (dec w) 2), path [3 path])
  8. $(w (div w 2), path [2 path])
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement