aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Convert-seconds-to-compound-duration/Uiua/convert-seconds-to-compound-duration.uiua
View file

@ -1,9 +1,9 @@
# Builds a string representation of a time period
Units ← {"second" "minute" "hour" "day" "week"}
Units ← {"second" "minute" "hour" "day" "week"}
Durations ← [60 60 24 7 9999]
Parts ← ⇌◌∧(⊙⊂⊃(⌊÷|◿))Durations⊙[] # seconds -> [S M H D W]
Sunit ← /⍚$"_ _"⍥⍜(⊡1|⍚⊂⊙@s)≠□"1"⊢. # Stringify a unit
String ← /◇$"_, _"⇌≡Sunit▽⊃(±|⍉⇌⊟Units°⋕) Parts
≡(&p$"_s \t= _"⟜(□String))[7259 86400 6000000 14000000 31449599 31449601]
Parts ← ⇌◌∧(⊙⊂⊃(⌊÷|◿))Durations⊙[] # seconds -> [S M H D W]
Sunit ← /⍚$"_ _"⍥⍜(⊡1|⍚⊂⊙@s)≠□"1"⊢. # Stringify a unit, add plurals.
String ← /◇$"_, _"⇌≡Sunit▽⊃(±|⍉⇌⊟Units°⋕) Parts # Build full string.
≡(&p$"_s \t= _"⟜String)[7259 86400 6000000 14000000 31449599 31449601]