mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-09-23 11:58:47 +03:00
11 lines
363 B
Plaintext
11 lines
363 B
Plaintext
|
any : {n, a} (fin n) => (a -> Bit) -> [n]a -> Bit
|
||
|
|
any f xs = [ f x | x <- xs ] != zero
|
||
|
|
|
||
|
|
all : {n, a} (fin n) => (a -> Bit) -> [n]a -> Bit
|
||
|
|
all f xs = [ f x | x <- xs ] == ~zero
|
||
|
|
|
||
|
|
// all ltTen [0 .. 9] where ltTen x = x < 10
|
||
|
|
// all ltTen [0 .. 10] where ltTen x = x < 10
|
||
|
|
// any ltTen [100 .. 10] where ltTen x = x < 10
|
||
|
|
// any ltTen [100 .. 9] where ltTen x = x < 10
|