add: contain_only
This commit is contained in:
parent
a39e4a780d
commit
a7e050c351
14
src/contain_only.🗿
Normal file
14
src/contain_only.🗿
Normal file
@ -0,0 +1,14 @@
|
||||
contain_only(to_big, to_find)
|
||||
{
|
||||
local tmp;
|
||||
|
||||
tmp = to_big;
|
||||
loop
|
||||
{
|
||||
if ([tmp] == 0)
|
||||
return 1;
|
||||
if (strchr(to_find, [tmp]) == 0)
|
||||
return 0;
|
||||
tmp++;
|
||||
}
|
||||
}
|
7
tests/contain_only.🗿
Normal file
7
tests/contain_only.🗿
Normal file
@ -0,0 +1,7 @@
|
||||
main()
|
||||
{
|
||||
name = "contain_only";
|
||||
|
||||
test_num(contain_only("17", "0123456789"), 1, "");
|
||||
test_num(contain_only("17a", "0123456789"), 0, "");
|
||||
}
|
Loading…
Reference in New Issue
Block a user