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

35
Task/String-matching/Elena/string-matching.elena
View file

@ -1,22 +1,25 @@
#define system'routines.
#define extensions.
// --- Program ---
#import system.
#import extensions.
#symbol program =
[
literalControl starting:"hello" &with:"hel" ?
[
consoleEx writeLine:"hello starts with hel".
].
#var s := "abcd".
literalControl ending:"hello" &with:"llo" ?
[
consoleEx writeLine:"hello ends with llo".
].
console writeLine:s:" starts with ab: ":(s startingWith:"ab" literal).
console writeLine:s:" starts with cd: ":(s startingWith:"cd" literal).
literalControl contain:"el" &in:"hello" ?
[
consoleEx writeLine:"hello contains el".
].
console writeLine:s:" ends with ab: ":(s endingWith:"ab" literal).
console writeLine:s:" ends with cd: ":(s endingWith:"cd" literal).
console writeLine:s:" contains ab: ":(s containing:"ab" literal).
console writeLine:s:" contains bc: ":(s containing:"bc" literal).
console writeLine:s:" contains cd: ":(s containing:"cd" literal).
console writeLine:s:" contains az: ":(s containing:"az" literal).
console writeLine:s:" index of az: ":(s indexOf:"az" &at:0 literal).
console writeLine:s:" index of cd: ":(s indexOf:"cd" &at:0 literal).
console writeLine:s:" index of bc: ":(s indexOf:"bc" &at:0 literal).
console writeLine:s:" index of ab: ":(s indexOf:"ab" &at:0 literal).
console readChar.
].