GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-08-18 02:10:31 +03:00
Code Issues Projects Releases Wiki Activity

Update old cryptol-1 syntax in example code.

Browse Source
This commit is contained in:
Brian Huffman 2019-06-20 10:54:06 -07:00
parent 030349f6de
commit 7da982ab2d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
docs/ProgrammingCryptol/misc/Misc.tex
View File

@ -33,8 +33,8 @@ call {\tt riffle} with a sequence that has an odd number of elements?
\begin{Answer}\ansref{ex:misc:riffle}
\begin{code}
riffle xs = join [| [x y] || x <- fh || y <- sh |]
where [fh sh] = split xs;
riffle xs = join [ [x, y] | x <- fh | y <- sh ]
where [fh, sh] = split xs
\end{code}
The Cryptol type-checker will {\em not} allow passing an odd number of
elements to {\tt riffle}. To see the error message, issue: {\tt riffle
@ -50,8 +50,8 @@ elements to {\tt riffle}. To see the error message, issue: {\tt riffle
we will just use 8-bit numbers.
\begin{code}
riffle8 : [52][8] -> Bit;
theorem riffle8: {deck}. decks @ 8 == deck
where decks = [deck] # [| riffle d || d <- decks |];
property riffle8 deck = decks @ 8 == deck
where decks = [deck] # [ riffle d | d <- decks ]
\end{code}
\end{Answer}