Smalltalk é a linguagem orientada a objetos por excelência.Desenvolvida na década de 1960, baseada na linguagem Simula, muitos paradigmas modernos foram criados por essa equipe do MIT.
Segue aqui um exemplo aplicado de Smalltalk: busca por números primos.
O algoritmo é baseado no crivo de Aristóstenes, que consiste em, a cada primo encontrado, eliminar seus múltiplos até o fim do conjunto.
Vamos começar declarando as variáveis locais
count, com a contagem de primos encontrados, max, que conterá o tamanho do conjunto, e primeList, uma lista – na verdade dicionário – dos números marcados como não-primos:| count max primeList |
count := 0.
max := 5000.
primeList := Dictionary new.Começamos então com nenhum primo conhecido (0) e um conjunto de cinco mil (5000) números. Vamos agora informar ao dicionário que 1 não é primo e pedir para limpar o
Transcript – área (stream) onde será exibido o resultado:primeList at: 1 put: false.
Transcript clear.É preciso agora criar um ciclo (loop) de 2 até o máximo de números do conjunto:
2 to: max do: [ :i |Para cada
i, é preciso verificar se é verdadeiro – se o número não existe na lista (ifAbsent:), ele não é múltiplo de nenhum dos números antecessores, portanto é primo (true): (primeList at: i ifAbsent: true) ifTrue: [Se o número é primo, devemos:
- exibi-lo no
Transcript; - incrementar o contador;
- marcar todos seus múltiplos como não-primos
Fechando os colchetes já abertos, o código fica assim:
Transcript show: i printString; tab.
count := count + 1.
i * 2 to: max by: i do: [ :j |
primeList at: j put: false
]
]
].Resta agora somente exibir a contagem:
Transcript
cr;
show: 'Quantidade de primos: ', count printString;
cr.Repara que, quando várias mensagens são enviada ao mesmo objeto, elas são separadas por ponto-e-vírgula (
;).Alguns comentários:
- Quando um número recebe a mensagem
#printString, ele retorna uma representação string para exibição. Transcripttrata a mensagem#tabexibindo uma tabulação e a mensagem#crexibindo uma mudança de linha.- Quando um número recebe a mensagem
#to:do:, reitera de forma parecida comforde C. - A mensagem
#to:by:do:funciona como#to:do:, mas acrescenta o passo. - A mensagem
#at:put:faz o dicionários associar um par chave-valor ou mudar o valor associado a uma chave. - A mensagem
#at:ifAbsent:faz o dicionário retornar o valor associado a uma chave, ou um valor padrão. - A mensagem
#ifTrue:é enviada a um objeto booleano, que executa o bloco de código somente se o objeto for verdadeiro. Outras mensagens similares são:#ifFalse:,#ifTrue:ifFalse:e#ifFalse:ifTrue:.
Bem, espero que esse pequeno tutorial seja de alguma ajuda, se não para o mercado, para expandir conhecimentos.
[]'s
Cacilhas, La Batalema
Este vai ser um artigo mais leve… =D
CC-BY: Os textos deste blog podem ser reporduzidos contanto que sejam informados autor e origem.