day06

Author: klesouza

2020/Untitled-1.ipynb

@@ -402,6 +402,49 @@
     }
    ]
   },
+  {
+   "cell_type": "code",
+   "execution_count": 1,
+   "metadata": {},
+   "source": [
+    "#!fsharp\n",
+    "#load \"day06.fsx\"\n",
+    "open Day06\n",
+    "\n",
+    "let testData06 = [\n",
+    "    \"abc\"\n",
+    "    \"\"\n",
+    "    \"a\"\n",
+    "    \"b\"\n",
+    "    \"c\"\n",
+    "    \"\"\n",
+    "    \"ab\"\n",
+    "    \"ac\"\n",
+    "    \"\"\n",
+    "    \"a\"\n",
+    "    \"a\"\n",
+    "    \"a\"\n",
+    "    \"a\"\n",
+    "    \"\"\n",
+    "    \"b\"\n",
+    "]\n",
+    "\n",
+    "// testData06\n",
+    "readLines \"06\"\n",
+    "|> day06\n",
+    "|> printf \"%A\""
+   ],
+   "outputs": [
+    {
+     "output_type": "execute_result",
+     "data": {
+      "text/plain": "6504"
+     },
+     "execution_count": 1,
+     "metadata": {}
+    }
+   ]
+  },
   {
    "cell_type": "code",
    "execution_count": 1,

2020/day06.fsx

@@ -0,0 +1,16 @@
+let day06 (arr: seq<string>) =
+    seq {
+        let mutable cSet = Set.empty<char>
+        for x in arr do
+            match x.Length with
+            | 0 -> 
+                yield cSet
+                cSet <- Set.empty<char>
+            | _ -> cSet <- x.ToCharArray() |> Set.ofArray |> (Set.union cSet)
+        yield cSet
+    }
+    |> Seq.map Set.count
+    |> Seq.sum
+
+
+