21 lines
413 B
Text
21 lines
413 B
Text
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
|
|
}
|
|
}
|
|
}
|