aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

27
Task/String-comparison/Elena/string-comparison.elena
View file

@ -1,19 +1,20 @@
#import system.
#import extensions.
import extensions.
#symbol compareStrings = (:val1 :val2)
compareStrings = (:val1 :val2)
[
(val1 == val2)? [ console writeLine:"The strings ":val1:" and ":val2:" are equal". ].
(val1 != val2)? [ console writeLine:"The strings ":val1:" and ":val2:" are not equal". ].
(val1 > val2)? [ console writeLine:"The string ":val1:" is lexically after than ":val2. ].
(val1 < val2)? [ console writeLine:"The string ":val1:" is lexically before than ":val2. ].
(val1 >= val2)? [ console writeLine:"The string ":val1:" is not lexically before than ":val2. ].
(val1 <= val2)? [ console writeLine:"The string ":val1:" is not lexically after than ":val2. ].
if (val1 == val2) [ console printLine("The strings ",val1," and ",val2," are equal") ].
if (val1 != val2) [ console printLine("The strings ",val1," and ",val2," are not equal") ].
if (val1 > val2) [ console printLine("The string ",val1," is lexically after than ",val2) ].
if (val1 < val2) [ console printLine("The string ",val1," is lexically before than ",val2) ].
if (val1 >= val2) [ console printLine("The string ",val1," is not lexically before than ",val2) ].
if (val1 <= val2) [ console printLine("The string ",val1," is not lexically after than ",val2) ].
].
#symbol program =
program =
[
#var s1 := "this".
#var s2 := "that".
compareStrings :s1 :s2.
var s1 := "this".
var s2 := "that".
compareStrings eval(s1,s2).
console readChar.
].