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

Another update from ingydotnet^djgoku

Browse source
This commit is contained in:
Ingy döt Net 2015-11-18 06:14:39 +00:00
parent 91df62d461
commit 948b86eafa
7604 changed files with 108452 additions and 22726 deletions
Download patch file Download diff file Expand all files Collapse all files

19
Task/String-comparison/Elena/string-comparison.elena Normal file
View file

@ -0,0 +1,19 @@
#import system.
#import extensions.
#symbol 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. ].
].
#symbol program =
[
#var s1 := "this".
#var s2 := "that".
compareStrings :s1 :s2.
].