Anonymous user
Arithmetic evaluation: Difference between revisions
→{{header|Elena}}
m (→{{header|JavaScript}}: Move return statement to more logical position) |
|||
Line 941:
=={{header|Elena}}==
<lang elena>#define std'
#define std'basic'*.
#define std'patterns'*.
#define
#define
#subject parse_order.
Line 969 ⟶ 970:
]
#method numeric = theValue~EReal64Convertor
}
Line 981 ⟶ 982:
#method += aNode
[
theLeft := aNode.
$self $setLeftAssigned.
]
Line 992:
[
theRight := aNode.
#shift.
]
Line 1,009 ⟶ 1,008:
]
| [
aNode += self.
^ aNode.
].
Line 1,082 ⟶ 1,080:
[
#var aCode := Int32Value::aChar.
#if control if:(aCode == 41)
[
Line 1,091 ⟶ 1,088:
theCounter += 1.
].
#if(theCounter == 0)?
[ #shift EOF. ^ $self. ].
theParser evaluate:aChar.
]
Line 1,120 ⟶ 1,115:
theToken := SubExpression.
theTopNode := theToken.
$self $setBrackets.
]
Line 1,126 ⟶ 1,120:
theToken := Token.
theTopNode := theToken.
theToken += aChar.
#shift.
].
Line 1,241 ⟶ 1,233:
Console << "%n".
].
].
</lang>
=={{header|Factor}}==
| |||