VPF::swi prolog,пара задач - Форум программистов

stan90

Дата 28.10.2011, 02:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 136
Регистрация: 12.11.2009

Репутация: нет
Всего: нет

подскажите пожалуйста:
1).как сформировать новую строку на основе исходной, взяв из нее каждый 3й символ.
2). Сгенерировать бинарное дерево произвольного вида с заданным количеством
элементов.
Подсказка: для генерации случайных значений использовать ф-ю random(X).
второе делаю вот так,но не работает,пишет no.

Код


tree_insert(X, nil,tr(X, nil, nil)).  
      
tree_insert(X,tr(X,L,R),tr(X,L,R)):-!.  
      
tree_insert(X,tr(K,L,R),tr(K,L1,R)):- 
        X<K,!,  
        tree_insert(X,L,L1).  
         
tree_insert(X,tr(K,L,R),tr(K,L,R1)):- 
        tree_insert(X,R,R1).  

tree_gen(0,nil):-!. 
tree_gen (N,T):- 
       random(100,X1),  
       N1 is N-1, 
       tree_gen (N1,T1),  
       tree_insert(X1,T1,T).

заранее спасибо.

Фантом

Дата 29.10.2011, 13:47 (ссылка)

(нет голосов)

Загрузка ...

Вы это прекратите!

Профиль
Группа: Участник Клуба
Сообщений: 1516
Регистрация: 23.3.2008

Репутация: 6
Всего: 49

Первая задача делается так (несколько топорно, конечно, можно было бы написать и более универсальный вариант, с выборкой произвольного символа):

Код


threel([],[]).
threel([_],[]).
threel([_,_],[]).
threel([_|[_|[C|A]]],[C|B]):-threel(A,B).

threes(A,B):-name(A,Al),threel(Al,Bl),name(B,Bl).

threes, в принципе, нужен только для "интерфейса" - чтобы переделывать строковые атомы в строки-списки и обратно.

А вот со вторым, честно говоря, трудно понять, что Вы хотели сделать в той или иной строчке, соответственно, трудно сказать, что там неправильно.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Prolog \| Следующая тема »