Contents

module AllYourBase exposing (..)

import List


fromBase : Int -> List Int -> Maybe Int
fromBase base =
    let
        f x m =
            case m of
                Nothing ->
                    Nothing

                Just n ->
                    if x >= 0 && x < base then
                        Just (n * base + x)
                    else
                        Nothing
    in
        List.foldl f (Just 0)


toBase : Int -> Int -> List Int
toBase base =
    let
        divMod a b =
            ( a // b, a % b )

        swap ( a, b ) =
            ( b, a )

        unfold f b =
            case f b of
                Just ( a, b_ ) ->
                    a :: unfold f b_

                Nothing ->
                    []

        f x =
            case x of
                0 ->
                    Nothing

                _ ->
                    Just (swap (divMod x base))
    in
        List.reverse << (unfold f)


rebase : Int -> List Int -> Int -> Maybe (List Int)
rebase inBase digits outBase =
    let
        length =
            List.length digits

        numZeros =
            List.length (List.filter (\x -> x == 0) digits)
    in
        if inBase < 2 || outBase < 2 || length == 0 || length == numZeros then
            Nothing
        else
            case fromBase inBase digits of
                Just v ->
                    Just (toBase outBase v)

                Nothing ->
                    Nothing

Version data entries

60 entries across 60 versions & 1 rubygems

Version	Path
trackler-2.2.1.104	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.103	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.102	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.101	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.100	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.99	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.98	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.97	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.96	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.95	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.94	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.93	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.92	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.91	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.90	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.89	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.88	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.87	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.86	tracks/elm/exercises/all-your-base/AllYourBase.example.elm
trackler-2.2.1.85	tracks/elm/exercises/all-your-base/AllYourBase.example.elm