functionalscript 0.0.305 → 0.0.306

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "functionalscript",
-  "version": "0.0.305",
+  "version": "0.0.306",
   "description": "FunctionalScript is a functional subset of JavaScript",
   "main": "index.js",
   "scripts": {

package/types/function/operator/index.js

@@ -13,6 +13,9 @@
 /** @type {(separator: string) => Fold<string>} */
 const join = separator => prior => value => `${prior}${separator}${value}`
 
+/** @type {Fold<string>} */
+const concat = a => b => `${a}${b}`
+
 /** @type {Fold<number>} */
 const addition = a => b => a + b
 
@@ -26,8 +29,8 @@ const addition = a => b => a + b
 const logicalNot = v => !v
 
 /**
- * @template T 
- * @typedef {Binary<T, T, boolean>} Equal 
+ * @template T
+ * @typedef {Binary<T, T, boolean>} Equal
  */
 
 /** @type {<T>(a: T) => (b: T) => boolean} */
@@ -93,4 +96,6 @@ module.exports = {
     foldToScan,
     /** @readonly */
     counter,
+    /** @readonly */
+    concat,
 }

package/types/list/index.js

@@ -297,6 +297,20 @@ const equalZip = e => a => b => () => {
 /** @type {<T>(e: operator.Equal<T>) => (a: List<T>) => (b: List<T>) => boolean} */
 const equal = e => a => b => every(equalZip(e)(a)(b))
 
+/** @type {(s: string) => List<number>} */
+const toCharCodes = s => {
+    /** @type {(i: number) => List<number>} */
+    const at = i => () => {
+        const r = s.charCodeAt(i)
+        if (isNaN(r)) { return undefined }
+        return { first: r, tail: at(i + 1) }
+    }
+    return at(0)
+}
+
+/** @type {(x: List<number>) => string} */
+const fromCharCodes = x => fold(operator.concat)('')(map(String.fromCharCode)(x))
+
 module.exports = {
     /** @readonly */
     empty: undefined,
@@ -374,4 +388,8 @@ module.exports = {
     zip,
     /** @readonly */
     equal,
+    /** @readonly */
+    toCharCodes,
+    /** @readonly */
+    fromCharCodes,
 }

package/types/list/test.js

@@ -234,6 +234,12 @@ const stringify = sequence => json.stringify(sort)(_.toArray(sequence))
     if (result !== false) { throw result }
 }
 
+{
+    const r = _.toCharCodes("Hello world!")
+    const x = _.fromCharCodes(r)
+    if (x !== "Hello world!") { throw x }
+}
+
 // stress tests
 
 const stress = () => {