157 lines
3.9 KiB
AppleScript
157 lines
3.9 KiB
AppleScript
-- Each comma-delimited string is mapped to a list of integers,
|
|
-- and these integer lists are concatenated together into a single list
|
|
|
|
|
|
---------------------- RANGE EXPANSION ---------------------
|
|
|
|
-- expansion :: String -> [Int]
|
|
on expansion(strExpr)
|
|
-- The string (between commas) is split on hyphens,
|
|
-- and this segmentation is rewritten to ranges or minus signs
|
|
-- and evaluated to lists of integer values
|
|
|
|
-- signedRange :: String -> [Int]
|
|
script signedRange
|
|
-- After the first character, numbers preceded by an
|
|
-- empty string (resulting from splitting on hyphens)
|
|
-- and interpreted as negative
|
|
|
|
-- signedIntegerAppended:: [Int] -> String -> Int -> [Int] -> [Int]
|
|
on signedIntegerAppended(acc, strNum, iPosn, xs)
|
|
if strNum ≠ "" then
|
|
if iPosn > 1 then
|
|
set strSign to |λ|(0 < length of (item (iPosn - 1) of xs)) ¬
|
|
of bool("", "-")
|
|
else
|
|
set strSign to "+"
|
|
end if
|
|
|
|
acc & ((strSign & strNum) as integer)
|
|
else
|
|
acc
|
|
end if
|
|
end signedIntegerAppended
|
|
|
|
on |λ|(strHyphenated)
|
|
tupleRange(foldl(signedIntegerAppended, {}, ¬
|
|
splitOn("-", strHyphenated)))
|
|
end |λ|
|
|
end script
|
|
|
|
concatMap(signedRange, splitOn(",", strExpr))
|
|
end expansion
|
|
|
|
|
|
---------------------------- TEST --------------------------
|
|
on run
|
|
|
|
expansion("-6,-3--1,3-5,7-11,14,15,17-20")
|
|
|
|
--> {-6, -3, -2, -1, 3, 4, 5, 7, 8, 9, 10, 11, 14, 15, 17, 18, 19, 20}
|
|
end run
|
|
|
|
|
|
--------------------- GENERIC FUNCTIONS --------------------
|
|
|
|
|
|
-- bool :: a -> a -> Bool -> a
|
|
on bool(tf, ff)
|
|
-- The evaluation of either tf or ff,
|
|
-- depending on a boolean value.
|
|
script
|
|
on |λ|(bln)
|
|
if bln then
|
|
set e to tf
|
|
else
|
|
set e to ff
|
|
end if
|
|
set c to class of e
|
|
if {script, handler} contains c then
|
|
|λ|() of mReturn(e)
|
|
else
|
|
e
|
|
end if
|
|
end |λ|
|
|
end script
|
|
end bool
|
|
|
|
-- concatMap :: (a -> [b]) -> [a] -> [b]
|
|
on concatMap(f, xs)
|
|
script append
|
|
on |λ|(a, b)
|
|
a & b
|
|
end |λ|
|
|
end script
|
|
|
|
foldl(append, {}, map(f, xs))
|
|
end concatMap
|
|
|
|
-- enumFromTo :: Int -> Int -> [Int]
|
|
on enumFromTo(m, n)
|
|
if n < m then
|
|
set d to -1
|
|
else
|
|
set d to 1
|
|
end if
|
|
set lst to {}
|
|
repeat with i from m to n by d
|
|
set end of lst to i
|
|
end repeat
|
|
return lst
|
|
end enumFromTo
|
|
|
|
-- foldl :: (a -> b -> a) -> a -> [b] -> a
|
|
on foldl(f, startValue, xs)
|
|
tell mReturn(f)
|
|
set v to startValue
|
|
set lng to length of xs
|
|
repeat with i from 1 to lng
|
|
set v to |λ|(v, item i of xs, i, xs)
|
|
end repeat
|
|
return v
|
|
end tell
|
|
end foldl
|
|
|
|
-- map :: (a -> b) -> [a] -> [b]
|
|
on map(f, xs)
|
|
tell mReturn(f)
|
|
set lng to length of xs
|
|
set lst to {}
|
|
repeat with i from 1 to lng
|
|
set end of lst to |λ|(item i of xs, i, xs)
|
|
end repeat
|
|
return lst
|
|
end tell
|
|
end map
|
|
|
|
-- Lift 2nd class handler function into 1st class script wrapper
|
|
-- mReturn :: Handler -> Script
|
|
on mReturn(f)
|
|
if class of f is script then
|
|
f
|
|
else
|
|
script
|
|
property |λ| : f
|
|
end script
|
|
end if
|
|
end mReturn
|
|
|
|
-- splitOn :: Text -> Text -> [Text]
|
|
on splitOn(strDelim, strMain)
|
|
set {dlm, my text item delimiters} to {my text item delimiters, strDelim}
|
|
set xs to text items of strMain
|
|
set my text item delimiters to dlm
|
|
return xs
|
|
end splitOn
|
|
|
|
-- range :: (Int, Int) -> [Int]
|
|
on tupleRange(tuple)
|
|
if tuple = {} then
|
|
{}
|
|
else if length of tuple > 1 then
|
|
enumFromTo(item 1 of tuple, item 2 of tuple)
|
|
else
|
|
item 1 of tuple
|
|
end if
|
|
end tupleRange
|