Contents

datatype 'a nestedList =
	  Leaf of 'a			     (* leaf *)
	| Node of 'a nestedList list (* node *)

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

Version data entries

196 entries across 196 versions & 1 rubygems

Version	Path
trackler-2.1.0.53	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.52	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.51	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.50	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.49	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.48	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.47	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.46	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.45	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.44	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.43	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.42	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.41	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.40	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.39	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.38	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.37	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.36	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.34	tracks/sml/exercises/flatten-array/example.sml
trackler-2.1.0.33	tracks/sml/exercises/flatten-array/example.sml