feat(strings): add hstr() (hollerith)

packages/strings/src/hollerith.ts

@@ -0,0 +1,18 @@
+import { Stringer } from "./api";
+
+/**
+ * Formats given value `x` as Fortran style Hollerith string.
+ *
+ * ```
+ * hstr("abc")  // "3Habc"
+ * hstr(123.45) // "6H123.45"
+ * hstr("")     // "0H"
+ * hstr(null)   // ""
+ * ```
+ *
+ * https://en.wikipedia.org/wiki/Hollerith_constant
+ *
+ * @param x
+ */
+export const hstr: Stringer<any> = (x) =>
+    x != null ? ((x = x.toString()), `${x.length}H${x}`) : "";

packages/strings/src/index.ts

@@ -3,6 +3,7 @@ export * from "./case";
 export * from "./center";
 export * from "./float";
 export * from "./format";
+export * from "./hollerith";
 export * from "./pad-left";
 export * from "./pad-right";
 export * from "./parse";