right fill

aa1024 · Apr 14, 2018 · 88cf42e · 88cf42e
1 parent 75bff63
commit 88cf42e
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/libs/str.q b/libs/str.q
@@ -45,6 +45,11 @@ fc:{?[x=lower x;upper x;lower x]}
 /@returns String left padded with space
 sfl:{neg[x]$string y}
 
+/@function sfr @desc Space fill from right 
+/   @param int
+/   @param String
+/@returns String right padded with space
+sfr:{reverse neg[x]$reverse string y}
 
 /@function zfl @desc zero fill
 /   @param int