add: contain_only

This commit is contained in:
starnakin 2023-07-24 08:55:10 +02:00
parent a39e4a780d
commit a7e050c351
2 changed files with 21 additions and 0 deletions

14
src/contain_only.🗿 Normal file
View 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
View File

@ -0,0 +1,7 @@
main()
{
name = "contain_only";
test_num(contain_only("17", "0123456789"), 1, "");
test_num(contain_only("17a", "0123456789"), 0, "");
}