Задача о хромом короле

@Anaryn · Регистрация: 08.11.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте , ну.. в общем нужно написать программу common lisp'e которая может посчитать количество путей с помощью которых король может добраться с крайнего второго верхнего правого угла к крайнему нижнему левому углу
Король может передвигаться вниз , влево , вправо и вниз (по диагонали)
Нужно решить задачу используя рекурсию , я для начала решил применить функцию cond
Что-то на подобии такого:

Lisp

(defun kingstep (x y f)
cond 
  ((= x 1)1)
  ((= y 1)1)
 )
)

Правда я не уверен правильно ли это и что после этой строки должно быть.
Математически попробовал записать так:
Если x=1 и y=1 , то f=1
f(x,y)= f(x-1 , y-1)+3
Просто только начали учить этот язык , поэтом я глуплю.

@helter · 02.10.2018, 20:45

«Если» будет if. Логическое «и» будет and. Тело функции достаточно прозрачно записывается в виде

Lisp

1
2
3

(if (and (= x 1) (= y 1))
    1
    (+ (f (1- x) (1- y)) 3))

Единственно непрозрачно, что 1- — это функция «отнять один». Вместо (- x 1) обычно пишут (1- x).

Но в этой функции есть баг: она неадекватно реагирует на некорректные аргументы. Кинуть ошибку — это ещё нормально, но, например, если x и y будут отрицательные, она просто не остановится до тех пор, пока стек вызовов не переполнится. Самое красивое решение этой проблемы — в самом начале функции выполнить проверку типов переменных:

Lisp

1 2	(check-type x (integer 1 8)) (check-type y (integer 1 8))

	02.10.2018, 20:45

Задача о хромом короле

Решение