Contents

datatype 'a nestedList =
	  Elem of 'a
	| List of 'a nestedList list

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

Version data entries

54 entries across 54 versions & 1 rubygems

Version	Path
trackler-2.2.1.4	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.3	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.2	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.1	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.1.0	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.0.6	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.0.5	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.0.4	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.0.3	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.0.2	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.0.1	tracks/sml/exercises/flatten-array/example.sml
trackler-2.2.0.0	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.55	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.54	tracks/sml/exercises/flatten-array/example.sml