Define a primitive data type: Difference between revisions

Line 718:
 
=={{header|Lasso}}==
<lang Lasso>define littleintdint => type {
data private value
Line 727:
}
 
public +(rhs::integer) => littleintdint(.value + #rhs)
public -(rhs::integer) => littleintdint(.value - #rhs)
public *(rhs::integer) => littleintdint(.value * #rhs)
public /(rhs::integer) => littleintdint(.value / #rhs)
public %(rhs::integer) => littleintdint(.value % #rhs)
 
public asstring() => string(.value)
Line 737:
}
 
littleintdint(1) // 1
littleintdint(10) // 10
 
littleintdint(0) // Error: 0 less than 1
littleintdint(2) - 5 // Error: -3 less than 1
 
littleintdint(11) // Error: 11 greater than 10
littleintdint(10) + 1 // Error: 11 greater than 10
littleintdint(10) * 2 // Error: 20 greater than 10
</lang>
 
Anonymous user