Idris2-boot/tests/idris2/perf001/Big.idr

import Data.Vect

test : Vect 33 Int -> IO Int
test bytes_list = do
  let int1 = (index 0 bytes_list * 8) +
             (index 1 bytes_list * 4) +
             (index 2 bytes_list * 2) + (index 3 bytes_list)
  let int2 = (index 4 bytes_list * 8) + (index 5 bytes_list * 4) + (index 6 bytes_list * 2) + (index 7 bytes_list)
  let int3 = (index 8 bytes_list * 8) + (index 9 bytes_list * 4) + (index 10 bytes_list * 2) + (index 11 bytes_list)
  let int4 = (index 12 bytes_list * 8) + (index 13 bytes_list * 4) + (index 14 bytes_list * 2) + (index 15 bytes_list)
  let int5 = (index 12 bytes_list * 8) + (index 13 bytes_list * 4) + (index 14 bytes_list * 2) + (index 15 bytes_list)
  let int6 = (index 12 bytes_list * 8) + (index 13 bytes_list * 4) + (index 14 bytes_list * 2) + (index 15 bytes_list)
  let int7 = (index 12 bytes_list * 8) + (index 13 bytes_list * 4) + (index 14 bytes_list * 2) + (index 15 bytes_list)
  let int8 = (index 12 bytes_list * 8) + (index 13 bytes_list * 4) + (index 14 bytes_list * 2) + (index 15 bytes_list)
  let int9 = (index 12 bytes_list * 8) + (index 13 bytes_list * 4) + (index 14 bytes_list * 2) + (index 15 bytes_list)
  let int10 = (index 12 bytes_list * 8) + (index 13 bytes_list * 4) + (index 14 bytes_list * 2) + (index 15 bytes_list)
  pure int1
Change elaboration of lets Elaborate the scope of a let without the computational behaviour, meaning that `let x = v in e` is equivalent to `(\x => e) v`. This makes things more consistent (in that let bindings already don't propagate inside case or with blocks) at the cost of not being able to rely on the computational behaviour in types. More importantly, it removes a significant potential source of slowness. Fixes #58 If you need the computational behaviour, you can use a local function definition instead. 2019-07-28 15:40:51 +03:00			`import Data.Vect`

			`test : Vect 33 Int -> IO Int`
			`test bytes_list = do`
Remove trailing whitespace from Idris sources. This is the result of running the command: $ find . -name '*.idr' -type f -exec sed -i -E 's/\s+$//' {} + I confirmed before running it that this would not affect any markdown formatting in documentation comments. 2019-10-26 00:24:25 +03:00			`let int1 = (index 0 bytes_list * 8) +`
			`(index 1 bytes_list * 4) +`
Change elaboration of lets Elaborate the scope of a let without the computational behaviour, meaning that `let x = v in e` is equivalent to `(\x => e) v`. This makes things more consistent (in that let bindings already don't propagate inside case or with blocks) at the cost of not being able to rely on the computational behaviour in types. More importantly, it removes a significant potential source of slowness. Fixes #58 If you need the computational behaviour, you can use a local function definition instead. 2019-07-28 15:40:51 +03:00			`(index 2 bytes_list * 2) + (index 3 bytes_list)`
			`let int2 = (index 4 bytes_list * 8) + (index 5 bytes_list * 4) + (index 6 bytes_list * 2) + (index 7 bytes_list)`
			`let int3 = (index 8 bytes_list * 8) + (index 9 bytes_list * 4) + (index 10 bytes_list * 2) + (index 11 bytes_list)`
			`let int4 = (index 12 bytes_list * 8) + (index 13 bytes_list * 4) + (index 14 bytes_list * 2) + (index 15 bytes_list)`
			`let int5 = (index 12 bytes_list * 8) + (index 13 bytes_list * 4) + (index 14 bytes_list * 2) + (index 15 bytes_list)`
			`let int6 = (index 12 bytes_list * 8) + (index 13 bytes_list * 4) + (index 14 bytes_list * 2) + (index 15 bytes_list)`
			`let int7 = (index 12 bytes_list * 8) + (index 13 bytes_list * 4) + (index 14 bytes_list * 2) + (index 15 bytes_list)`
			`let int8 = (index 12 bytes_list * 8) + (index 13 bytes_list * 4) + (index 14 bytes_list * 2) + (index 15 bytes_list)`
			`let int9 = (index 12 bytes_list * 8) + (index 13 bytes_list * 4) + (index 14 bytes_list * 2) + (index 15 bytes_list)`
			`let int10 = (index 12 bytes_list * 8) + (index 13 bytes_list * 4) + (index 14 bytes_list * 2) + (index 15 bytes_list)`
			`pure int1`