Convert seconds to compound duration: Difference between revisions
Convert seconds to compound duration (view source)
Revision as of 17:58, 1 August 2016
, 7 years ago→{{header|AppleScript}}
Line 186:
{{Trans|JavaScript}}
<lang AppleScript>on run
intercalate(linefeed, ¬
map(test, ¬
Line 199 ⟶ 198:
-- DURATION STRINGS
-- angloDuration :: Int -> String
Line 205 ⟶ 206:
on formatted(a, lstPair)
set q to item 1 of lstPair
if q > 0 then
{(q as string) & space & item 2 of lstPair} & a
Line 224:
on weekParts(intSeconds)
script mf
-- partList Record
on partList(a, x
set intRest to remaining of a
|