PowerShell :: Técnica Russa de Multiplicação

Mais uma curiosidade Matemática.

Muito Interessante esse "script" em PowerShell que demonstra a metodologia Russa de Multiplicação.

Obtive essa iguaria em: The PowerShell Guy

function Invoke-RussianMultiply ([int]$a,[int]$b) { $r = 0 do { "$a x $b" if (($a%2) -and ($a -gt 0)) {$r+=$b;"`t+$b";$a--} $a = $a/2 $b = $b*2 } until ($a -eq 0) "result : $r" }

A saida, no console do PowerShell, Seria algo do tipo: Invoke-RussianMultiply 340 125

PS C:\Documents and Settings\marinaldo.jesus\Meus documentos> Invoke-RussianMultiply 340 125 340 x 125 170 x 250 85 x 500 +500 42 x 1000 21 x 2000 +2000 10 x 4000 5 x 8000 +8000 2 x 16000 1 x 32000 +32000 result : 42500

Tranquilo para implementar em Advpl.

[]s
иαldσ dj

...