RosettaCodeData/Task/Search-a-list/Maple/search-a-list.maple
2018-06-22 20:57:24 +00:00

10 lines
449 B
Text

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: