include missing Util functions

steveman7 · Oct 13, 2023 · d15a655 · d15a655
1 parent 01dabc5
commit d15a655
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/APLSource/Util-1/round-0.aplf b/APLSource/Util-1/round-0.aplf
@@ -0,0 +1 @@
+ round←{⍺←1 ⋄ ⍺×⌊0.5+⍵÷⍺}
diff --git a/APLSource/Util-1/to-0.aplf b/APLSource/Util-1/to-0.aplf
@@ -0,0 +1,9 @@
+ to←{⍝
+   ⍝⍺ Start
+   ⍝⍵ End[Step]
+   ⍝← Start ... End
+     ⎕IO←0
+     ⍺←1
+     end step←2↑⍵,1
+     n←⌈1+(end-⍺)÷step
+     ⍺+step×⍳n}