Создайте предикат, преобразующий строку в список слов, которые упорядочены по длине.

domains
strlist=string*
predicates
getwords(string,string,string,string)
separ(string,strlist)
scan (string,strlist,string)
comparison(string,string,integer)
permutation(strlist,strlist)
bubble(strlist,strlist)
wordstolist(string,strlist)
clauses
 
  getwords(S,W,E,T):-
        frontchar(S,C,S1),
        NOT(C=' '),
        str_char(SS,C),
        concat(W,SS,R),
        getwords(S1,R,E,T),!.
    getwords(S,W,W,R):-
        frontchar(S,_,R).
    getwords(S,W,W,S).
 
 separ(Str,[T|L]):-
        frontchar(Str,S3,S2),
        str_char(S5,S3),
        scan(S2,[T|L],S5),!.
    separ(_,[]).
    scan(Str,[T|L],S):-
        frontchar(Str,S3,S2),
        NOT(S3=' '),
        str_char(S5,S3),
        concat(S,S5,S1),
        scan(S2,[T|L],S1),!.
    scan("",[T|L],S):-
        T=S,separ("",L).
    scan(Str,[T|L],S):-
        T=S,frontchar(Str,_,S2),
        separ(S2,L),!.
        
    comparison("","",0):-!.
    comparison(_,"",1):-!.
    comparison("",_,-1):-!.
    comparison(S1,S2,R):-
        frontchar(S1,C,S1_),
        frontchar(S2,C,S2_),
        comparison(S1_,S2_,R);
        frontchar(S1,C1,_),
        frontchar(S2,C2,_),
        C1<C2,R=-1,!;
        R=1,!.
permutation([X,Y|T],[Y,X|T]):–
                        comparison(X,Y,Z),Z>0,!.
                              
permutation([X|T],[X|T1]):–
                        permutation(T,T1).
                            
bubble(L,L1):–
     permutation(L,LL), 
     !,
     bubble(LL,L1). 
bubble(L,L). 
wordstolist("",_).
wordstolist(str,L):-getwords(str,"",X,str1),
                    separ(X,L1),L=L1,
                    wordstolist(str1,L1).