Convert seconds to compound duration: Difference between revisions

Content added Content deleted
(→‎{{header|AppleScript}}: Simpler closures, updated primitives)
Line 200: Line 200:
-- angloDuration :: Int -> String
-- angloDuration :: Int -> String
on angloDuration(intSeconds)
on angloDuration(intSeconds)
-- weekParts Int -> [Int]
script mf
script mf
-- weekParts Int -> [Int]
on weekParts(intSeconds)
on weekParts(intSeconds)
unitParts(intSeconds, [missing value, 7, 24, 60, 60])
unitParts(intSeconds, [missing value, 7, 24, 60, 60])
Line 311: Line 312:
end script
end script
end if
end if
end mReturn
end mReturn</lang>
</lang>