BlackTDN Search

sexta-feira, 3 de setembro de 2010

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

...

2 comentários:

  1. Cara, vc conhece muito de ADVPL.
    Estou começando a engatinhar agora, tenho um ano de ADVPL, atualmente trabalho na TOTVS UnBH.
    Gostaria de chegar a um nível perto do seu. Tenho estudado bastante pelo TDN. Você poderia me dar alguma ajuda?

    Att,
    Sergio

    ResponderExcluir
  2. Sérgio,

    Obrigado pelo elogio. Com certeza o estudo irá te ajudar muito. O meu blog, de certa forma, já é uma ajuda. Se tiver alguma dúvida específica pode postar nos comentários que, se estiver à minha altura farei um esforço pra responder.

    []s
    иαldσ dj

    ResponderExcluir