{"id":5267,"date":"2025-01-10T08:36:06","date_gmt":"2025-01-10T07:36:06","guid":{"rendered":"https:\/\/www.islandwalking.com\/wordpress\/?p=5267"},"modified":"2025-01-10T08:36:06","modified_gmt":"2025-01-10T07:36:06","slug":"tower-of-hanoi-on-a-hp-41cv","status":"publish","type":"post","link":"https:\/\/www.islandwalking.com\/wordpress\/tower-of-hanoi-on-a-hp-41cv\/","title":{"rendered":"Tower of Hanoi on a HP-41CV"},"content":{"rendered":"

It was much more fun to program this on my old HP calculator (not necessarily an optimal solution, but I wrote this around 40 years ago, my very first version…):<\/p>\n

\n
LBL \"HANOI\"\r\n\"N?\"\r\nPROMPT\r\nSTO 01\r\n\"A\"\r\nASTO 02\r\n\"B\"\r\nASTO 03\r\n\"C\"\r\nASTO 04\r\n10\r\nSTO 00\r\nXEQ \"INFIX\"\r\nSTOP\r\nLBL \"INFIX\"\r\n1\r\nRCL 01\r\nX=Y?\r\nGTO 01\r\nXEQ \"PUSH\"\r\nRCL 02\r\nXEQ \"PUSH\"\r\nRCL 03\r\nXEQ \"PUSH\"\r\nRCL 04\r\nXEQ \"PUSH\"\r\n1\r\nST- 01\r\nRCL 04\r\nX<> 03\r\nSTO 04\r\nXEQ \"INFIX\"\r\nXEQ \"POP\"\r\nSTO 04\r\nXEQ \"POP\"\r\nSTO 03\r\nXEQ \"POP\"\r\nSTO 02\r\nXEQ \"POP\"\r\nSTO 01\r\nLBL 01\r\nCLA\r\nARCL 02\r\n>\"-\"\r\nARCL 03\r\nAVIEW\r\n1\r\nRCL 01\r\nX=Y?\r\nRTN\r\nXEQ \"PUSH\"\r\nRCL 02\r\nXEQ \"PUSH\"\r\nRCL 03\r\nXEQ \"PUSH\"\r\nRCL 04\r\nXEQ \"PUSH\"\r\n1\r\nST- 01\r\nRCL 04\r\nX<> 02\r\nSTO 04\r\nXEQ \"INFIX\"\r\nXEQ \"POP\"\r\nSTO 04\r\nXEQ \"POP\"\r\nSTO 03\r\nXEQ \"POP\"\r\nSTO 02\r\nXEQ \"POP\"\r\nSTO 01\r\nEND<\/pre>\n
LBL \"PUSH\"\r\nSTO IND 00\r\n1\r\nST+ 00\r\nRTN\r\nLBL \"POP\"\r\n1\r\nST- 00\r\nRCL IND 00\r\nEND<\/pre>\n<\/blockquote>\n
I called the pegs “A”, “B” and “C” this time:<\/p>\n
\"\"<\/a> \"\"<\/a> \"\"<\/a> \"\"<\/a> \"\"<\/a> \"\"<\/a> \"\"<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
It was much more fun to program this on my old HP calculator (not necessarily an optimal solution, but I wrote this around 40 years ago, my very first version…): LBL “HANOI” “N?” PROMPT STO 01 “A” ASTO 02 “B” ASTO 03 “C” ASTO 04 10 STO 00 XEQ “INFIX” STOP LBL “INFIX” 1 RCL … Continue reading »<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-5267","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"_links":{"self":[{"href":"https:\/\/www.islandwalking.com\/wordpress\/wp-json\/wp\/v2\/posts\/5267","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.islandwalking.com\/wordpress\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.islandwalking.com\/wordpress\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.islandwalking.com\/wordpress\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.islandwalking.com\/wordpress\/wp-json\/wp\/v2\/comments?post=5267"}],"version-history":[{"count":1,"href":"https:\/\/www.islandwalking.com\/wordpress\/wp-json\/wp\/v2\/posts\/5267\/revisions"}],"predecessor-version":[{"id":5275,"href":"https:\/\/www.islandwalking.com\/wordpress\/wp-json\/wp\/v2\/posts\/5267\/revisions\/5275"}],"wp:attachment":[{"href":"https:\/\/www.islandwalking.com\/wordpress\/wp-json\/wp\/v2\/media?parent=5267"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.islandwalking.com\/wordpress\/wp-json\/wp\/v2\/categories?post=5267"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.islandwalking.com\/wordpress\/wp-json\/wp\/v2\/tags?post=5267"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}