Primes by Trial Division - Little Smalltalk

31 December 2021

Class Benchmark :Object
[
findPrimes: n    | count primes prime |
    count <- 3.
    primes <- List new.
    primes addLast: 2.
    [ primes size < n ] whileTrue: [
        primes detect: [ :prime | count \\ prime = 0 ] ifAbsent: [ primes addLast: count ].
        count <- count + 1. ].
    ^primes
]

Typewritten Software • bear@typewritten.org • Edmonds, WA 98026

Museum

Home

Lab Overview

Retrotechnology Articles

⇒ Primes Benchmark Source

Media Vault

Software Library

Restoration Projects

Artifacts Sought

Related Articles

Primes Benchmark Results

Other Smalltalks

Little Smalltalk

ObjectWorks

Smalltalk/V

Smalltalk-80

VisualAge Smalltalk