mirror of
https://codeberg.org/ProgramSnail/lang_2023.git
synced 2025-12-06 06:58:45 +00:00
29 lines
675 B
Text
29 lines
675 B
Text
typeclass Copy =
|
|
& copy : Copy -> Copy
|
|
|
|
typeclass (Ord : #Eq) =
|
|
& is_less_then : Ord -> Bool
|
|
|
|
typeclass (D : #A #B #C) 'A 'B =
|
|
& do_something : -> (& 'A & 'B)
|
|
|
|
typeclass E 'A =
|
|
& do_something : -> 'A
|
|
|
|
decl ( == ) ('A : #Ord) : 'A -> 'A -> Bool
|
|
def ( == ) : a b = a.is_equal_to: b
|
|
|
|
decl ( != ) ('A : #Ord) : 'A -> 'A -> Bool
|
|
def ( != ) : a b = not: (a == b)
|
|
|
|
decl ( < ) ('A : #Ord) : 'A -> 'A -> Bool
|
|
def ( < ) : a b = a.is_less_then: b
|
|
|
|
decl ( > ) ('A : #Ord) : 'A -> 'A -> Bool
|
|
def ( > ) : a b = not: (a <= b)
|
|
|
|
decl ( <= ) ('A : #Ord) : 'A -> 'A -> Bool
|
|
def ( <= ) : a b = a < b ||. a == b
|
|
|
|
decl ( >= ) ('A : #Ord) : 'A -> 'A -> Bool
|
|
def ( >= ) : a b = not: (a < b)
|