RosettaCodeData/Task/Convert-seconds-to-compound-duration/APL/convert-seconds-to-compound-duration.apl

duration←{
    names←'wk' 'd' 'hr' 'min' 'sec'
    parts←0 7 24 60 60⊤⍵
    fmt←⍕¨(parts≠0)/parts,¨names
    ¯2↓∊fmt,¨⊂', '
}