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

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Search-a-list/Aime/search-a-list.aime
View file

@ -5,13 +5,13 @@ search(list l, text s)
i = 0;
while (i < ~l) {
if (!compare(l[i], s)) {
if (l[i] == s) {
break;
}
i += 1;
}
o_(s, " is ", i == ~l ? "not in the haystack" : cat("at ", itoa(i)), "\n");
o_(s, " is ", i == ~l ? "not in the haystack" : "at " + itoa(i), "\n");
}
integer

17
Task/Search-a-list/Julia/search-a-list.julia
View file

@ -1,13 +1,4 @@
julia> findfirst(x -> x=="yes", {"no","?","yes","maybe","yes"})
3
julia> indexin({"yes"},{"no","?","yes","maybe","yes"})
1-element Array{Int64,1}:
5
julia> findin({"no","?","yes","maybe","yes"},{"yes"})
2-element Array{Int64,1}:
3
5
julia> find(x -> x=="yes", {"no","?","yes","maybe","yes"})
2-element Array{Int64,1}:
3
5
@show findfirst(["no", "?", "yes", "maybe", "yes"], "yes")
@show indexin(["yes"], ["no", "?", "yes", "maybe", "yes"])
@show findin(["no", "?", "yes", "maybe", "yes"], ["yes"])
@show find(["no", "?", "yes", "maybe", "yes"] .== "yes")

10
Task/Search-a-list/Maple/search-a-list.maple Normal file
View file

@ -0,0 +1,10 @@
haystack := ["Zig","Zag","Wally","Ronald","Bush","Krusty","Charlie","Bush","Bozo"]:
occurences := ListTools:-SearchAll(needle,haystack):
try
#first occurence
printf("The first occurence is at index %d\n", occurences[1]);
#last occurence, note that StringTools:-SearchAll()retuns a list of all occurences positions
printf("The last occurence is at index %d\n", occurences[-1]);
catch :
print("Erros: Needle not found in the haystack"):
end try: