Sort a list of object identifiers: Difference between revisions

Content added Content deleted
Line 187: Line 187:
-- sortedIdentifiers :: [String] -> [String]
-- sortedIdentifiers :: [String] -> [String]
on sortedIdentifiers(xs)
on sortedIdentifiers(xs)
script compareIdentifiers
script listCompare
on |λ|(x, y)
on |λ|(x, y)
script go
script go
Line 203: Line 203:
map(intercalate("."), ¬
map(intercalate("."), ¬
sortBy(compareIdentifiers, ¬
sortBy(listCompare, ¬
map(compose(curry(my map)'s ¬
map(compose(curry(my map)'s ¬
|λ|(my readint), splitOn(".")), xs)))
|λ|(my readint), splitOn(".")), xs)))