lue-bird/elm-typesafe-array/11.0.0

NOTE: the latest version is 34.0.1

Arr

An Arr describes an array where you know more about the amount of elements.

Array.empty |> Array.get 0
--> Nothing


Arr.empty |> Arr.at nat0 FirstToLast
--> compile time error

Is this any useful? Let's look at an example:

0 to 100 joined by a space

joinBy between =
    \before after -> before ++ between ++ after


let
    intStringsAfter =
        Array.fromList (List.range 1 100)
            String.fromInt
in
Array.foldl (joinBy " ") "0" intStringsAfter
--> "0 1 2 3 4 5 ..."


Arr.nats nat100
    |> Arr.map (val >> String.fromInt)
    |> Arr.foldWith FirstToLast (joinBy " ")
--> "0 1 2 3 4 5 ..."

The Array version just seems hacky and is less readable. Arr simply knows more about the length at compile time, so you can e.g. call foldWith without a worry.

type alias Arr length element =
Typed Checked ArrTag Internal (Content length element)

An Arr describes an array where you know more about the amount of elements.

types

  • amount >= 5
Arr (Min Nat5) ...
  • 2 <= amount <= 12
Arr (In Nat2 Nat12) ...
  • = 4
Arr (Only Nat4) ...

as argument types

  • amount >= 4
Arr (In (Nat4Plus minMinus4) max) ...
  • 4 <= amount <= 15
Arr (In (Nat4Plus minMinus4) Nat15) ...
  • = 15
Arr (Only Nat15) ...
  • any amount
Arr range ...

create

fromArray : Array element -> Arr (Min Nat0) element

Create an Arr from an Array. As every Array has >= 0 elements:

Arr.fromArray arrayFromSomewhere
--> : Arr (Min Nat0)


Arr.fromArray
    (Array.fromList [ 0, 1, 2, 3, 4, 5, 6 ])
--> big no


Arr.from7 0 1 2 3 4 5 6
--> ok


Arr.nats nat7
--> big yes

Tell the compiler if you know the amount of elements. Make sure the it knows as much as you!

repeat : Nat (ArgIn min max ifN_) -> element -> Arr (In min max) element

An Arr with a given amount of same elements.

Arr.repeat nat4 'L'
--> Arr.from4 'L' 'L' 'L' 'L'
--> : Arr (In Nat4 (Nat4Plus a)) Char




Arr.repeat atLeast3 'L'
--> : Arr (Min Nat3) Char
Nat (ArgIn minLength (Nat1Plus maxLengthMinus1) lengthIfN_)
-> Arr
(In minLength (Nat1Plus maxLengthMinus1))
(Nat (In Nat0 maxLengthMinus1))

Increasing natural numbers. In the end, there are length numbers.

Arr.nats between2And10
--> : Arr
-->     (In Nat2 (Nat10Plus a))
-->     (Nat (In Nat0 (Nat9Plus a)))


from first length_ =
    Arr.nats length_
        |> Arr.map (InNat.add first)

If you want to use a Nat as the length, but you dont know the maximum, e.g.

Arr.nats (Nat.intAtLeast nat5 someInt) -- error

use minNats.

Nat (ArgIn minLength maxLength lengthIfN_)
-> Arr (In minLength maxLength) (Nat (In Nat0 maxLength))

Increasing natural numbers. In the end, there are length numbers. Use nats if you know the maximum of the length.

Arr.nats nat5


Arr.nats between2And10

If not:

Arr.minNats atLeast10
--> : Arr (Min Nat10)
-->     (Nat (Min Nat10))


from first length_ =
    Arr.minNats length_
        |> Arr.map (MinNat.add first)
Nat (ArgIn min max ifN_)
-> Generator element
-> Generator (Arr (In min max) element)

Generate a given amount of elements and put them in an Arr.

exact

empty : Arr (In Nat0 atLeast0) element

No elements.

Arr.empty
--> : Arr (In Nat0 atLeast0) element
    |> NArr.push ":)"
--> : Arr (In Nat1 (Nat1Plus atLeast0)) String
from1 : element -> Arr (In Nat1 (Nat1Plus a)) element

Create an Arr from exactly 1 elements in this order.

from2 : element -> element -> Arr (In Nat2 (Nat2Plus a)) element

Create an Arr from exactly 2 elements in this order.

from3 : element -> element -> element -> Arr (In Nat3 (Nat3Plus a)) element

Create an Arr from exactly 3 elements in this order.

element
-> element
-> element
-> element
-> Arr (In Nat4 (Nat4Plus a)) element

Create an Arr from exactly 4 elements in this order.

element
-> element
-> element
-> element
-> element
-> Arr (In Nat5 (Nat5Plus a)) element

Create an Arr from exactly 5 elements in this order.

element
-> element
-> element
-> element
-> element
-> element
-> Arr (In Nat6 (Nat6Plus a)) element

Create an Arr from exactly 6 elements in this order.

element
-> element
-> element
-> element
-> element
-> element
-> element
-> Arr (In Nat7 (Nat7Plus a)) element

Create an Arr from exactly 7 elements in this order.

element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> Arr (In Nat8 (Nat8Plus a)) element

Create an Arr from exactly 8 elements in this order.

element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> Arr (In Nat9 (Nat9Plus a)) element

Create an Arr from exactly 9 elements in this order.

element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> Arr (In Nat10 (Nat10Plus a)) element

Create an Arr from exactly 10 elements in this order.

element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> Arr (In Nat11 (Nat11Plus a)) element

Create an Arr from exactly 11 elements in this order.

element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> Arr (In Nat12 (Nat12Plus a)) element

Create an Arr from exactly 12 elements in this order.

element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> Arr (In Nat13 (Nat13Plus a)) element

Create an Arr from exactly 13 elements in this order.

element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> Arr (In Nat14 (Nat14Plus a)) element

Create an Arr from exactly 14 elements in this order.

element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> Arr (In Nat15 (Nat15Plus a)) element

Create an Arr from exactly 15 elements in this order.

element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> element
-> Arr (In Nat16 (Nat16Plus a)) element

Create an Arr from exactly 16 elements in this order.

scan

length : Arr length element -> Nat length

The amount of elements.

at :
Nat (ArgIn indexMin minMinus1 indexIfN_)
-> LinearDirection
-> Arr (In (Nat1Plus minMinus1) max) element
-> element

Element at a valid position.

Arr.from4 1 2 3 4
    |> Arr.at nat1 FirstToLast
--> 2


Arr.from4 1 2 3 4
    |> Arr.at nat1 LastToFirst
--> 3

modify

Nat (ArgIn indexMin minLengthMinus1 indexIfN_)
-> LinearDirection
-> element
-> Arr (In (Nat1Plus minLengthMinus1) max) element
-> Arr (In (Nat1Plus minLengthMinus1) max) element

Set the element at an index in a direction.

Arr.from3 "I" "am" "ok"
    |> Arr.replaceAt nat2 FirstToLast "confusion"
--> Arr.from3 "I" "am" "confusion"


Arr.from3 "I" "am" "ok"
    |> Arr.replaceAt nat1 LastToFirst "feel"
--> Arr.from3 "I" "feel" "ok"
Nat (ArgIn indexMin minLengthMinus1 indexIfN_)
-> LinearDirection
-> (element -> element)
-> Arr (In (Nat1Plus minLengthMinus1) max) element
-> Arr (In (Nat1Plus minLengthMinus1) max) element

Change the element at an index in a direction based on its previous value.

Arr.from3 1 20 30
    |> Arr.updateAt nat0 FirstToLast ((*) 10)
--> Arr.from3 10 20 30


Arr.from3 10 20 -30
    |> Arr.replaceAt nat0 LastToFirst (\x -> -x)
--> Arr.from3 10 20 30

part

Nat (ArgIn minTaken maxTaken takenIfN_)
-> Nat (N maxTaken atLeastMaxTaken (Is maxTakenToMin To min) is_)
-> LinearDirection
-> Arr (In min max) element
-> Arr (In minTaken atLeastMaxTaken) element

This works for both

Arr.from8 0 1 2 3 4 5 6 7
    |> Arr.take nat3 nat3 LastToFirst
--> Arr.from3 5 6 7


Arr.from8 0 1 2 3 4 5 6 7
    |> Arr.take between3To7 nat7 FirstToLast
--> : Arr (In Nat3 Nat7) ...
Nat
(ArgIn (Nat1Plus minGroupSizMinus1) maxGroupSize groupSizeIfN_)
-> LinearDirection
-> Arr (In min max) element
-> { groups :
Arr
(In Nat0 max)
(Arr (In (Nat1Plus minGroupSizMinus1) maxGroupSize) element)
, remaining : Arr (In Nat0 maxGroupSize) element
}

Split the Arr into equal-sized chunks.

{ groups : the Arr divided into equal-sized Arrs
, less : values to one side which aren't enough
}


Arr.from7 1 2 3 4 5 6 7
    |> Arr.groupsOf nat5 FirstToLast
--> { groups = Arr.from1 (Arr.from5 1 2 3 4 5)
--> , remaining = Arr.from2 6 7
--> }

The type of the result isn't as accurate as in the example, though!

transform

map : (aElement -> bElement) -> Arr length aElement -> Arr length bElement

Change every element.

aToZ =
    Arr.nats nat26
        |> Arr.map (val >> inABC)


inABC =
    (+) ('a' |> Char.toCode)
        >> Char.fromCode

val refers to Typed.val.

LinearDirection
-> (element -> result -> result)
-> result
-> Arr (In min max) element
-> result

Reduce an Arr in a direction.

Arr.from5 "l" "i" "v" "e"
    |> Arr.fold FirstToLast (++) ""
--> "live"


Arr.from5 "l" "i" "v" "e"
    |> Arr.fold LastToFirst (++) ""
--> "evil"
toArray : Arr length element -> Array element

Convert the Arr to an Array. Just do this in the end. Try to keep extra information as long as you can.

Arr.nats nat5
    |> Arr.map val
    |> Arr.toArray
--> Array.fromList [ 0, 1, 2, 3, 4 ]
LinearDirection
-> (element -> element -> element)
-> Arr (In (Nat1Plus minMinus1) max) element
-> element

A fold where the initial result is the first value.

Arr.foldWith FirstToLast maximum
    (Arr.from3 234 345 543)
--> 543
reverse : Arr length element -> Arr length element

Flip the order of the elements.

Arr.from5 "l" "i" "v" "e"
    |> Arr.reverse
--> Arr.from5 "e" "v" "i" "l"
LinearDirection
-> Nat (ArgIn min max ifN_)
-> element
-> Arr length element
-> Arr (In min max) element

Resize an Arr in a direction, padding with a given value.

Arr.resize LastToFirst nat4 0
    (Arr.from2 1 2)
--> Array.from4 0 0 1 2


Arr.resize LastToFirst nat2 0
    (Array.from3 1 2 3)
--> Array.from2 2 3


Arr.resize FirstToLast nat4 0
    (Array.from2 1 2)
--> Array.from4 1 2 0 0


Arr.resize FirstToLast nat2 0
    (Array.from3 1 2 3)
--> Array.from2 1 2

This is a quick way to gain some type-level knowledge about the length.

map

(a -> b -> combined)
-> Arr length a
-> Arr length b
-> Arr length combined

Combine the elements of 2 Arrs to a new element. If one list is longer, the extra elements are dropped.

teamLifes aBoard bBoard =
    Arr.map2 (\a b -> a.lifes + b.lifes)
        aBoard
        bBoard

The length pf all Arrs must be in the same range.

  • If 1 Arr is a potential Arr (Min ...), you have to
Arr.map2 (\a b -> a.lifes + b.lifes)
    (aBoard |> MinArr.value)
    (bBoard |> MinArr.value)

aBoard, bBoard : Arr (In Nat2 someMax) Field

for every non-Arr (Min ...).

  • If 1 Arr has a higher minimum length, you have to
Arr.map2 (\a b -> a.lifes + b.lifes)
    (aBoard |> Arr.lowerMinLength nat2)
    bBoard

aBoard : Arr (In Nat5 Nat10) Field
(a -> b -> c -> combinedElement)
-> Arr length a
-> Arr length b
-> Arr length c
-> Arr length combinedElement

Works like map2.

(a -> b -> c -> d -> combinedElement)
-> Arr length a
-> Arr length b
-> Arr length c
-> Arr length d
-> Arr length combinedElement

Works like map2.

drop information

Nat (ArgIn lowerMin min lowerIfN_)
-> Arr (In min max) element
-> Arr (In lowerMin max) element

Use a lower minimum length in the type.

[ atLeast3Elements
, atLeast4Elements
]

Elm complains:

But all the previous elements in the list are Arr (Min Nat3) ...

[ atLeast3Elements
, atLeast4Elements
    |> Arr.lowerMinLength nat3
]

restore information

Nat (N max atLeastMax isA_ isB_)
-> Arr (In min max) element
-> Arr (In min atLeastMax) element

Make an Arr with a fixed maximum length fit into functions with require a higher maximum length.

While designing argument annotations as general as possible:

atMost18Elements : Arr (In min Nat18) ...

The argument in atMost18Elements should also fit in atMost19Elements.

atMost19Elements theArgument
--> error :(


atMost19Elements
    (theArgument |> Arr.restoreMaxLength nat18)
--> works

extra

Nat (ArgIn min max ifN_)
-> Codec String element
-> Codec String (Arr (In min max) element)

A Codec to serialize Arrs with a specific amount of elements.

import Serialize




-- we can't start if we have no worlds to choose from!
serializeGameRow :
    Serialize.Codec
        String
        (Arr (Only Nat10) GameField)
serializeGameRow =
    Arr.serialize nat10 serializeGameField


encode : Arr (Only Nat10) GameField -> Bytes
encode =
    Serialize.encodeToBytes serializeGameRow


decode :
    Bytes
    ->
        Result
            (Serialize.Error String)
            (Arr (Only Nat10) GameField)
decode =
    Serialize.decodeFromBytes serializeGameRow