hyung-hwan/hak
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

renamed hcl to hak

Browse Source
This commit is contained in:
hyung-hwan
2025-09-02 23:58:15 +09:00
parent be77ac8ad2
commit 20d2db0e27
129 changed files with 43690 additions and 43689 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/Magnitude.hak Normal file
View File

@ -0,0 +1,20 @@
class Magnitude: Object {
##fun < (oprnd) { self subclassResponsibility: #< }
fun < (oprnd) { return (self:subclassResponsibility #<) }
fun > (oprnd) { return (oprnd < self) }
fun <= (oprnd) { return ((oprnd < self):not) }
fun >= (oprnd) { return ((self < oprnd):not) }
}
class(#limited) Number: Magnitude {
fun + (oprnd) { return (+ self oprnd) }
fun - (oprnd) { return (- self oprnd) }
fun * (oprnd) { return (* self oprnd) }
fun / (oprnd) { return (/ self oprnd) }
##fun > (oprnd) { return (> self oprnd) }
##fun < (oprnd) { return (< self oprnd) }
##fun >= (oprnd) { return (>= self oprnd) }
##fun <= (oprnd) { return (<= self oprnd) }
}