mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-16 11:22:33 +03:00
28 lines
483 B
Plaintext
28 lines
483 B
Plaintext
id : [32] -> [32]
|
|
id x = rec x
|
|
where rec k = if (k == 0) then 0 else 1 + rec (k + (-1))
|
|
|
|
|
|
inflist = [1 ... ] : [_][8]
|
|
|
|
rc = {x = 3 : [8], y = 5 : [8]}
|
|
|
|
my_true = rc.x
|
|
|
|
tup = (1 : [8], 2 : [8], 3 : [8], 4 : [8])
|
|
|
|
my_3 = tup.2
|
|
|
|
sup = y where y = 3 : [8]
|
|
|
|
|
|
gf28Add : {n} (fin n) => [n][8] -> [8]
|
|
gf28Add ps = sums ! 0
|
|
where sums = [zero] # [ p ^ s | p <- ps | s <- sums ]
|
|
|
|
gex = gf28Add [1,2]
|
|
|
|
sum : [_][8] -> [_][8]
|
|
sum x = rec
|
|
where rec = [ p + q | p <- x | q <- [1,2,3,4] ]
|
|
|