Data update

Task/Formatted-numeric-output/Maxima/formatted-numeric-output.maxima

@@ -0,0 +1 @@
+printf(false,"~9,3,,,'0F",7.125);

Task/Formatted-numeric-output/Quackery/formatted-numeric-output.quackery

@@ -0,0 +1,37 @@
+  [ over find swap found ]     is has       (   $ c --> b )
+
+  [ over 0 peek
+    char - = iff
+      [ dip [ behead drop ]
+        true unrot ]
+    else [ false unrot ]
+    over char . swap find
+    -  char 0 swap of
+    swap join
+    swap iff char -
+    else space
+    swap join ]                is left-pad  (   $ n --> $ )
+
+   [ over char . has not if
+       [ dip [ char . join ] ]
+     over char . swap find
+     dip [ over size ]
+     1+ - -
+     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.12"
+      $ "7.12"
+      $ "-7.12"
+      $ "0.12"
+      $ "-0.12"
+      $ "7"
+      $ "-7"
+      $ "0" ]
+  witheach
+    [ do 5 3 format echo$ cr ]