Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.07.2018, 21:50   #1
Конский Щавель
Новичок
Джуниор
 
Регистрация: 16.07.2018
Сообщений: 1
По умолчанию Гидра Бухгольца на PascalABC.NET

Нужно написать программу, вычисляющую срок жизни гидры Бухгольца по соответствующему алгоритму. На вход подается дерево из скобок и на его основании строится последовательность из деревьев (каждое дерево выводится отдельно) в конце программа должна (теоретически) вывести число шагов. У меня не хватает мозгов для этого

Вот неполная реализация на Ruby:


s=->t{*v,u=t;t==1?[]:v<<s[u]}
r=->t{*v,u=t;$b=t[0][0]?$b:t;u==1?v<<s[$b]:u[0]?v+[r[u]]*$c:v}
$c=2
a=[],[[],[]]
(print a,"\n";$c+=1;a=r[a])while a[0]
$c


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

надеюсь, кто-то сможет помочь

Последний раз редактировалось Конский Щавель; 16.07.2018 в 22:45.
Конский Щавель вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Преобразование кода из C в PascalABC.NET (символы и строки) - PascalABC.NET ParkerVans Помощь студентам 5 05.12.2017 10:09
PascalABC.Net now2 Помощь студентам 2 27.03.2014 21:03
PascalABC.NET v1ktor Паскаль, Turbo Pascal, PascalABC.NET 0 21.06.2011 13:58
PascalABC.net gogomon93 Помощь студентам 5 17.04.2011 18:48