git.iko.soy/rowtype-yoga/purescript-backend-optimizer
on main help sign in
rowtype-yoga/purescript-backend-optimizer/backend-es/test-snapshots/src/Snapshot.STArray02.purs
27 lines 771 B history raw
1module Snapshot.STArray02 where
3import Prelude
5import Data.Array.ST as STArray
7test1 :: Array Int -> Array Int
8test1 inp = STArray.run do
9 arr <- STArray.new
10 n <- STArray.push 1 arr
11 _ <- STArray.pushAll [ 1, n ] arr
12 _ <- STArray.pushAll inp arr
13 _ <- STArray.pushAll ([1, 2, 3] <> inp) arr
14 _ <- STArray.pushAll (inp <> [2, 3, 4]) arr
15 _ <- STArray.pushAll ([1, 2, 3] <> inp <> [5, 6, 7]) arr
16 pure arr
18test2 :: Array Int -> Array Int
19test2 inp = STArray.run do
20 arr <- STArray.new
21 n <- STArray.unshift 1 arr
22 _ <- STArray.unshiftAll [ 1, n ] arr
23 _ <- STArray.unshiftAll inp arr
24 _ <- STArray.unshiftAll ([1, 2, 3] <> inp) arr
25 _ <- STArray.unshiftAll (inp <> [2, 3, 4]) arr
26 _ <- STArray.unshiftAll ([1, 2, 3] <> inp <> [5, 6, 7]) arr
27 pure arr