Formatted numeric output: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,914: / Line 1,914: @@
 =={{header|Quackery}}==
-<syntaxhighlight lang="Quackery">  [ over 0 peek
+<syntaxhighlight lang="Quackery">
+  [ over find swap found ]     is has       (   $ c --> b )
+  [ over 0 peek
     char - = iff
       [ 1 -
@@ Line 1,924: / Line 1,927: @@
     swap join
     swap if
-      [ char - swap join ] ] is left-pad ( $ n --> $ )
+      [ char - swap join ] ]   is left-pad  (   $ n --> $ )
+   [ over char . has not if
+       [ dip [ char . join ] ]
+     over char . swap find
+     dip [ over size ]
++ - -
+     char 0 swap of
+     join ]                    is right-pad (   $ n --> $ )
+  [ dip left-pad right-pad ]   is format    ( $ n n --> $ )
   ' [ $ "7.125"
       $ "-7.125"
       $ "0.125"
-      $ "-0.125"
+      $ "-0.12"
+      $ "7.12"
+      $ "-7.12"
+      $ "0.12"
+      $ "-0.12"
       $ "7"
       $ "-7"
       $ "0" ]
   witheach
-    [ do 5 left-pad echo$ cr ]</syntaxhighlight>
+    [ do 5 3 format echo$ cr ]</syntaxhighlight>
 {{out}}
@@ Line 1,941: / Line 1,958: @@
 -0007.125
 .125
--0000.125
+-0000.120
+.120
--0007
+-0007.120
-</pre>
+.120
+-0000.120
+.000
+-0007.000
+.000</pre>
 =={{header|R}}==