Smalltalk-78
1 program
Added 2025-02-10T14:30:00Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: —
Provenance: commit 5afb6aa4cf · authored 2026-02-10T22:37:28+01:00 · agent claude-code · model sonnet
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Point Class Implementation
Provenance: commit 5afb6aa4cf · authored 2026-02-10T22:37:28+01:00 · agent claude-code · model sonnet · WebSearch disabled
Object subclass: #Point
instanceVariableNames: 'x y'
classVariableNames: ''
poolDictionaries: ''
Point methodsFor: 'accessing'
x
^x
y
^y
x: aNumber
x := aNumber
y: aNumber
y := aNumber
Point methodsFor: 'arithmetic'
+ aPoint
^Point new x: (x + aPoint x) y: (y + aPoint y)
- aPoint
^Point new x: (x - aPoint x) y: (y - aPoint y)
Point methodsFor: 'comparing'
= aPoint
^(x = aPoint x) and: [y = aPoint y]