cryptol/tests/regression/check26.cry

fst (x, y) = x
snd (x, y) = y
xy = (13, 21)
check26a = (fst xy == xy.0) && (snd xy == xy.1) &&
	   (fst xy == 13) && (snd xy == 21)

xys = [ (x, y) | x <- [ 1 .. 10 ], y <- [ 2 .. 5 ] ]
check26b = [ fst ixy | ixy <- xys ] ==
	   [ x | x <- [ 1 .. 10 ], y <- [ 2 .. 5 ] ]
// endianness difference
check26c = [ fst ixy == snd ixy | ixy <- xys ] == reverse 0x0000084210

check26 = check26a && check26b && check26c
Initial import from internal repo 2014-04-18 02:34:25 +04:00			`fst (x, y) = x`
			`snd (x, y) = y`
			`xy = (13, 21)`
implement 0-based tuple indexing; fixes #82 2014-09-09 19:24:10 +04:00			`check26a = (fst xy == xy.0) && (snd xy == xy.1) &&`
Initial import from internal repo 2014-04-18 02:34:25 +04:00			`(fst xy == 13) && (snd xy == 21)`

			`xys = [ (x, y) \| x <- [ 1 .. 10 ], y <- [ 2 .. 5 ] ]`
			`check26b = [ fst ixy \| ixy <- xys ] ==`
			`[ x \| x <- [ 1 .. 10 ], y <- [ 2 .. 5 ] ]`
			`// endianness difference`
			`check26c = [ fst ixy == snd ixy \| ixy <- xys ] == reverse 0x0000084210`

			`check26 = check26a && check26b && check26c`