elm-static-array

Use Arrays with fixed length! All checks are done in compile time. Is this possible? Yes it is! The magic word is Phantom types.

The package contains three types:

• StaticArray a - A wrapper type over (a,Array a) representing a non-empty array. Length is known in compile time.
• Index n - A wrapper type over Int. Allows values between 0 and n. It is essentially a Range type. Checks are done in run time but the max-value is known in compile time.
• Length n - A wrapper type over Int. Values can not be changed in run time. The value is known in compile type, thus making the magic happen.

Pros

• Length is checked in compile time by using phantom types.
• Wrapper Types ensure that no performance is lost.
• Convert Custom Types into Int and back without needing a dead branch in the case distinction.

Cons

• Construction is a bit slower (should be neglectable for most cases).
• If you don't know why this package is useful, you should not be using it.

Examples

Construction

import StaticArray.Length as Length
import StaticArray

  (0,[1,2,3,4,5])
  |> StaticArray.fromList (Length.five |> Length.plus1)
  |> StaticArray.toList
  --> [0,1,2,3,4,5]

Appending Elements

import StaticArray.Length as Length exposing (Length)
import StaticArray.Index exposing (OnePlus,Five,Ten,TwoPlus)
import StaticArray
import Array

twelve : Length (TwoPlus Ten)
twelve =
  Length.ten |> Length.plus2

array1 : { head : Int, length : Length (OnePlus Five), tail : Array.Array Int }
array1 =
  (0,[1,2,3,4,5])
  |> StaticArray.fromList Length.six
  |> StaticArray.toRecord

array2 : { head : Int, length : Length (OnePlus Five), tail : Array.Array Int }
array2 =
  (6,[7,8,9,10,11])
  |> StaticArray.fromList Length.six
  |> StaticArray.toRecord

StaticArray.fromRecord
  { length = twelve
  , head = array1.head
  , tail = Array.append (array1.tail |> Array.push array2.head) array2.tail
  }
  |> StaticArray.toList
  --> [0,1,2,3,4,5,6,7,8,9,10,11]

Notice that we can NOT do addition in compile time, therefore we need to construct 6+6 manually.

Removing Elements

import StaticArray.Length as Length exposing (Length)
import StaticArray.Index exposing (Five,OnePlus)
import StaticArray exposing (StaticArray)

array : StaticArray (OnePlus Five) Int
array =
  StaticArray.fromList Length.six (0,[1,2,3,4,5])

array
  |> StaticArray.resize (Length.six |> Length.minus1)
  --> StaticArray.fromList Length.five (0,[1,2,3,4])

Avoiding index out of bounds errors

import StaticArray.Length as Length
import StaticArray.Index as Index exposing (Index)
import StaticArray exposing (StaticArray)

array : StaticArray Five Int
array =
  StaticArray.fromList Length.five (0,[1,2,3,4])

fifthIndex : Index Five
fifthIndex =
  array |> Index.last (Array |> StaticArray.length)

array
  |> StaticArray.resize Length.one
  |> StaticArray.get fifthIndex --COMPILER ERROR

Converting into/from Int

import StaticArray.Length as Length
import StaticArray.Index as Index exposing (Two)
import StaticArray exposing (StaticArray)

type Food =
  Apples
  | Oranges

asArray : StaticArray Two Food
asArray =
  StaticArray.fromList Length.two (Apples,[Oranges])

toInt : Food -> Int
toInt food =
  case food of
    Apples -> 0
    Oranges -> 1

fromInt : Int -> Food
fromInt int =
  asArray
    |> StaticArray.get (int |> Index.fromModBy Length.two)

Apples
  |> toInt
  |> fromInt
  --> Apples

No dead branch needed.

Mapping with Index

import StaticArray
import StaticArray.Length as Length
import StaticArray.Index as Index

StaticArray.initialize Length.five (\n -> n * n)
  |> StaticArray.indexedMap (\idx -> \sqr -> (Index.toInt idx, sqr))
  |> StaticArray.toList
  --> [(0, 0), (1, 1), (2, 4), (3, 9), (4, 16)]