Hits for wojcek

hints.elm

import Html exposing (..)
import List exposing (..)

multiSnd : number -> (List (a, number) -> List (a, number))
multiSnd k =
  map (\(a, b) -> (a, b*k))

multiSnd3 = multiSnd 3
multiSnd4 = multiSnd 4

permuteWithSelf : List a -> List (a, a)
permuteWithSelf list =
  let
      forHead h prevRes =
        foldr (\a acc -> (h, a)::acc) prevRes list
  in
     foldr (\a acc -> forHead a acc) [] list

main : Html msg
main =
  permuteWithSelf [1..100] |> toString |> text