Prolog

[vak]

Для любитилей языка Пролог. Алан Майкрофт, профессор Кембриджа, написал миниатюрный интерпретатор Prolog в 250 строчек на Си++: prolog.cpp

Comments

[spamsink]

(c) 2000. И, что характерно, комментарий с текстом тестовой программы собственно на языке Пролог отсутствует. Вот такие они, профессора Кембриджа.

[vak]

Я замечал, что профессора не очень любят писать комментарии в коде. Их задача - продавать свои лекции или книги, а код служит только для завлечения.

Я вот тут отрефакторил слегка: https://gist.github.com/sergev/65683bcf9127f559077a52314261ec16

[vak]

Программа выдаёт следующее:

=======Append with normal clause order:
solve@0: app(_5,_6,cons(1,cons(2,cons(3,nil))))
  try:app(nil,_7,_7) :- true
I = nil
J = cons(1,cons(2,cons(3,nil)))
  try:app(cons(_8,_9),_10,cons(_8,_11)) :- app(_9,_10,_11)
    solve@1: app(_9,_6,cons(2,cons(3,nil)))
      try:app(nil,_12,_12) :- true
I = cons(1,nil)
J = cons(2,cons(3,nil))
      try:app(cons(_13,_14),_15,cons(_13,_16)) :- app(_14,_15,_16)
        solve@2: app(_14,_6,cons(3,nil))
          try:app(nil,_17,_17) :- true
I = cons(1,cons(2,nil))
J = cons(3,nil)
          try:app(cons(_18,_19),_20,cons(_18,_21)) :- app(_19,_20,_21)
            solve@3: app(_19,_6,nil)
              try:app(nil,_22,_22) :- true
I = cons(1,cons(2,cons(3,nil)))
J = nil
              try:app(cons(_23,_24),_25,cons(_23,_26)) :- app(_24,_25,_26)
              nomatch.

=======Append with reversed normal clause order:
solve@0: app(_5,_6,cons(1,cons(2,cons(3,nil))))
  try:app(cons(_27,_28),_29,cons(_27,_30)) :- app(_28,_29,_30)
    solve@1: app(_28,_6,cons(2,cons(3,nil)))
      try:app(cons(_31,_32),_33,cons(_31,_34)) :- app(_32,_33,_34)
        solve@2: app(_32,_6,cons(3,nil))
          try:app(cons(_35,_36),_37,cons(_35,_38)) :- app(_36,_37,_38)
            solve@3: app(_36,_6,nil)
              try:app(cons(_39,_40),_41,cons(_39,_42)) :- app(_40,_41,_42)
              nomatch.
              try:app(nil,_43,_43) :- true
I = cons(1,cons(2,cons(3,nil)))
J = nil
          try:app(nil,_44,_44) :- true
I = cons(1,cons(2,nil))
J = cons(3,nil)
      try:app(nil,_45,_45) :- true
I = cons(1,nil)
J = cons(2,cons(3,nil))
  try:app(nil,_46,_46) :- true
I = nil
J = cons(1,cons(2,cons(3,nil)))

[spamsink]

Я не настолько хорошо знаю Пролог, чтобы разобрать, что имелось в виду. Впрочем, реализованный в подобном стиле алгоритм сопоставления Рефала, наверное, тоже вряд ли будет выглядеть более понятно.

[vak]

Я вчера потратил пару часов, чтобы разобраться в коде. Пролог - один из языков, которые невозможно понять, не разобрав реализацию. Тут делается сопоставление образцов попарно. Математики называют этот алгоритм унификацией.

https://en.wikipedia.org/wiki/Unification_(computer_science)

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

В первой части сравниваем шаблон

app(I, J, [1, 2, 3])

последовательно с шаблонами

app(nil, X, X).
app([X|L], M, [X|N]); app(L, M, N).

Здесь I, J, X, L, M, N - переменные с произвольным значением, как звёздочка в шелле.

Первое сравнение проходит удачно: I получает значение nil, а J = [1, 2, 3].
Второе сравнение обламывается на каком-то уровне.

[vak]

Выложил на гитхаб: https://github.com/sergev/prolog-am

С выделением памяти профессор обращается несколько фривольно.

[malobukov]

Осталось на Прологе написать миниатюрный интерпретатор C++ (на глаз примерно 250 тысяч строк) и получится вечный двигатель.