Contents

datatype 'a tree = Empty | Elem of 'a | List of 'a tree list

fun flatten Empty     = []
  | flatten (Elem x)  = [x]
  | flatten (List xs) = List.concat (map flatten xs)

Version data entries

134 entries across 134 versions & 1 rubygems

Version	Path
trackler-2.2.1.180	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.179	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.178	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.177	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.176	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.175	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.174	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.173	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.172	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.171	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.170	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.169	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.167	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.166	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.165	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.164	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.163	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.162	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.161	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.160	tracks/sml/exercises/flatten-array/example.sml