langs a-z

Task/Look-and-say-sequence/PowerShell/look-and-say-sequence.psh

@@ -0,0 +1,21 @@
+function Get-LookAndSay ($n = 1) {
+    $re = [regex] '(.)\1*'
+    $ret = ""
+    foreach ($m in $re.Matches($n)) {
+        $ret += [string] $m.Length + $m.Value[0]
+    }
+    return $ret
+}
+
+function Get-MultipleLookAndSay ($n) {
+    if ($n -eq 0) {
+        return @()
+    } else {
+        $a = 1
+        $a
+        for ($i = 1; $i -lt $n; $i++) {
+            $a = Get-LookAndSay $a
+            $a
+        }
+    }
+}