readlist([H|T]:- readint(H),!, readlist(T).
readlist [ ]).
,
. : . , , (stol_stul,l1,m1). symbol. , (stol), string. , . , , , . , , , .
readln(Str), readchar(Ch), write().
. , .
Domains
simvol=char
simvol_imya=symbol
str=string
. - .
Goal
write( ), readchar(Ch), write(Ch= ,Ch, ), nl,
write( ),readln(Str), write(Str= ,Str, ), nl,
write( ),readln(Sym),
write(Sym, Sym, ), nl.
:
frontchar(String,FrontChar,RestString)(string,char,string) (i,o,o) (i,i,o) (i,o,i) (i,i,i) (o,i,i) | String : FrontChar RestString. |
fronttoken(String,Token,RestString) (string,string,string) (i,o,o) (i,i,o) (i,o,i)(i,i,i)(o,i,i) | String Token RestString ( , ). |
frontstr(Lenght,InpString,StartString,RestString)(integer,string,string,string) - (i,i,o,o) | InpString StartString Lenght . RestString. |
concat(String1,String2,String3) (string,string,string) - (i,i,o) (i,o,i) (o,i,i) (i,i,i) | : String3 = String1 + String2. |
str_len(String,Length) (string,integer) - (i,i) (i,o) (o,i) | . |
isname(StringParam) (string) - (i) | , StringParam , -. , . |
format(OutputVariable,FormatString,Variable|Constant*) - (o,i,i) | FormatString Variable|Constant* OutputVariable |
- , :
|
|
-,
,
( - ).
. , , . - , , .
str_list("",[]).
str_list(S,[H|T]): frontchar(S,H,S1), str_list(S1,T).
/* */
/* H S, S1 */
/* T , , S1*/
. .