bug fixed

aa1024 · Apr 14, 2018 · d762570 · d762570
1 parent 88cf42e
commit d762570
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/libs/str.q b/libs/str.q
@@ -49,14 +49,21 @@ sfl:{neg[x]$string y}
 /   @param int
 /   @param String
 /@returns String right padded with space
-sfr:{reverse neg[x]$reverse string y}
+sfr:{x]$reverse string y}
 
 /@function zfl @desc zero fill
 /   @param int
 /   @param String
 /@returns String left padded with zero
 zfl:{"0"^neg[x]$string y}
 
+
+/@function zfr @desc zero fill from right
+/   @param int
+/   @param String
+/@returns String right padded with zero
+zfl:{"0"^reverse neg[x]$reverse string y}
+
 /@function tu @desc to upper
 tu:upper