mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-16 11:22:33 +03:00
e001310299
Fixes #138
9 lines
224 B
Plaintext
9 lines
224 B
Plaintext
down: [16][4]
|
|
down = [ 1+d | d <- tail down ] # [0]
|
|
|
|
down': [16][4]
|
|
down' = [ 1+(down' @ i) | i <- [1 .. 15] ] # [0]
|
|
|
|
take_some: {n,k,t} (n>=k) => [n]t -> [k]t
|
|
take_some xs = takes where takes = [ x | x <- xs | _ <- takes ]
|