Smap

Choose the version you want to view.

Current version:Version message:

fixed 0 to 1

Click on a tag to show all related programs.

tour knight heavyass computation

Click on the badge to open the comment window for viewing and writing comments.

No comments yet.

Created by JohnnyDaleLonack on January 20, 2015 (last modified on January 20, 2015)

0 users favorited this

Description: -

Source code (Latest version):

horse n = horseMoves 1 1 [[1,1]] (n+1) (n*n)

notContained _ [] = True
notContained x (y:ys) | x/=y = notContained x ys
		      | x==y = False

horseMoves _ _ out _ 1 = out

horseMoves rx cx out n p	| ry>0 && ry<n && cy>0 && cy<n && notContained [ry,cy] out = horseMoves ry cy (out++[[ry,cy]]) n (p-1)
				where ry=rx+2
			    	      cy=cx+1

horseMoves rx cx out n p	| ry>0 && ry<n && cy>0 && cy<n && notContained [ry,cy] out = horseMoves ry cy (out++[[ry,cy]]) n (p-1)
				where ry=rx+2
				      cy=cx-1

horseMoves rx cx out n p	| ry>0 && ry<n && cy>0 && cy<n && notContained [ry,cy] out = horseMoves ry cy (out++[[ry,cy]]) n (p-1)
				where ry=rx-2
				      cy=cx+1

horseMoves rx cx out n p	| ry>0 && ry<n && cy>0 && cy<n && notContained [ry,cy] out = horseMoves ry cy (out++[[ry,cy]]) n (p-1)
				where ry=rx-2
				      cy=cx-1

horseMoves rx cx out n p	| ry>0 && ry<n && cy>0 && cy<n && notContained [ry,cy] out = horseMoves ry cy (out++[[ry,cy]]) n (p-1)
				where ry=rx+1
				      cy=cx+2

horseMoves rx cx out n p	| ry>0 && ry<n && cy>0 && cy<n && notContained [ry,cy] out = horseMoves ry cy (out++[[ry,cy]]) n (p-1)
				where ry=rx+1
				      cy=cx-2

horseMoves rx cx out n p	| ry>0 && ry<n && cy>0 && cy<n && notContained [ry,cy] out = horseMoves ry cy (out++[[ry,cy]]) n (p-1)
				where ry=rx-1
				      cy=cx+2

horseMoves rx cx out n p	| ry>0 && ry<n && cy>0 && cy<n && notContained [ry,cy] out = horseMoves ry cy (out++[[ry,cy]]) n (p-1)
				where ry=rx-1
				      cy=cx-2
main = horse 4

Options

Versions

2 versions

Tags

4 tags

Comments

0 comments »

KnightsTour

implemented in Curry