Benchmark List.init

Main.elm

module Main exposing (..)

import Benchmark as Bench exposing (Benchmark)
import Benchmark.Runner.Alternative as Runner exposing (Program)


main : Program
main =
    Runner.program suite


suite : Benchmark
suite =
    let
        items =
            List.range 1 1000
    in
    Bench.compare "init"
        "reverse >> drop 1 >> reverse"
        (\_ -> reverseStrategy items)
        "length >> take"
        (\_ -> takeStrategy)


reverseStrategy items =
    case items of
        [] ->
            Nothing

        nonEmptyList ->
            nonEmptyList
                |> List.reverse
                |> List.tail
                |> Maybe.map List.reverse


takeStrategy items =
    List.take (List.length items - 1) items