- 933 名前：デフォルトの名無しさん [2019/11/02(土) 21:32:51.49 ID:0iFQzt0L.net]
- >>899
最後の2例にも対応した。
function lg($x) {[Math]::log10($x)}
function pow($x, $y) {[Math]::pow($x, $y)}
function tetrconv($a)
{
$k = $a[-1]
foreach ($i in -2..-$a.count) {
if ($k -gt 10) {break}
$k = pow $a[$i] $k
}
if ($i - 1 -ge -$a.count) {$k *= lg $a[$i - 1]}
if ($i - 2 -ge -$a.count) {$k += lg (lg $a[$i - 2])}
while ($k -gt 10) {
$k = lg $k
$i++
}
if ($i += $a.count) {$i++}
$b = @(10) * $i + [Math]::round($k, 3)
($a -join "^") + " = " + ($b -join "^")
}
tetrconv (@(3) * 6)
tetrconv (@(2.718) * 4 + 7.705)
tetrconv (5.0e50, 6.0e60, 7.0e70, 8.0e80, 9.0e90)
tetrconv (@(1.1) * 5)
|
 |
