|
|
1.2 ! paf 1: @main[] ! 2: ...^oneOf[a;a,b,c]...<br> ! 3: #...^oneOf[a;ax,b,c]...<br> ! 4: ...^oneWord[word]...<br> ! 5: #...^oneWord[wo rd]...<br> ! 6: ! 7: ! 8: @oneOf[s;list][t] выдаёт строку, если строка она есть в списке(разделенном запятыми) ! 9: $t[^list.lsplit[,]] ! 10: ^if(!^t.locate[piece;$s]){^throw[user;$s;unknown]} ! 11: $result[$s] ! 12: ! 13: @oneWord[s] ! 14: ^if(^s.match[\W]){^throw[user.data;$s;not word]}{$s}