mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 18:03:36 +00:00
48 lines
1.8 KiB
Mathematica
48 lines
1.8 KiB
Mathematica
%---------------------------------------------------------------------------%
|
||
% vim: ts=4 sw=4 et ft=mercury
|
||
%---------------------------------------------------------------------------%
|
||
|
||
:- module string_sub_string_search.
|
||
:- interface.
|
||
|
||
:- import_module io.
|
||
|
||
:- pred main(io::di, io::uo) is det.
|
||
|
||
%---------------------------------------------------------------------------%
|
||
|
||
:- implementation.
|
||
|
||
:- import_module string.
|
||
|
||
main(!IO) :-
|
||
( if
|
||
string.sub_string_search("", "", 0),
|
||
not string.sub_string_search("", "dog", _),
|
||
not string.sub_string_search("cat", "catdog", _),
|
||
|
||
string.sub_string_search("cat", "", 0),
|
||
string.sub_string_search("cat", "cat", 0),
|
||
string.sub_string_search("cat", "at", 1),
|
||
string.sub_string_search("cat", "t", 2),
|
||
|
||
not string.sub_string_search_start("catcatcat", "cat", -1, _),
|
||
string.sub_string_search_start("catcatcat", "cat", 0, 0),
|
||
string.sub_string_search_start("catcatcat", "cat", 1, 3),
|
||
string.sub_string_search_start("catcatcat", "cat", 2, 3),
|
||
string.sub_string_search_start("catcatcat", "cat", 3, 3),
|
||
string.sub_string_search_start("catcatcat", "cat", 4, 6),
|
||
string.sub_string_search_start("catcatcat", "cat", 5, 6),
|
||
string.sub_string_search_start("catcatcat", "cat", 6, 6),
|
||
not string.sub_string_search_start("catcatcat", "cat", 7, _),
|
||
not string.sub_string_search_start("catcatcat", "cat", 8, _),
|
||
not string.sub_string_search_start("catcatcat", "cat", 9, _),
|
||
not string.sub_string_search_start("catcatcat", "cat", 10, _),
|
||
|
||
string.sub_string_search("cαtcατcat", "cατ", length("cαt"))
|
||
then
|
||
io.write_string("test succeeded\n", !IO)
|
||
else
|
||
io.write_string("test failed\n", !IO)
|
||
).
|