Re: a challenge related to the 15 puzzle « Next Oldest | Next Newest »

 ▼ Allen Unregistered Posts: 562 Threads: 27 Joined: Oct 2006 01-17-2011, 06:03 PM Here's a quick RPL program based on the article you posted above. It uses a flag for parity tracking, and indrect addressing from the stack to scroll through the loops. Here are the program 41c barcodes (including 2 programs to input 2 test matrices.) Credit Note: Program was written using Free42, output to RAW and converted to barcodes using HP41UC program. ```Inputs: Register 00 - 1 (a pointer to first cell) Register 01 - First number of grid ... Register 15 - Last number of grid Register 16 - 00 (assumes the space is in location 16) Outputs: Clear stack except for 1 in ST X if solution exists, 0 otherwise 00 { 53-Byte Prgm } 01>LBL "AQ" 02 CF 01 ' clears the parity flag 03 CLST ' clear stack 04 RCL 00 ' 05>LBL 01 ' Loop for checking results 06 RCL IND ST X 07 X<0? ' Check the pointer to see if it's neg 08 GTO 02 ' if so, go to next loop 09 -1 10 STOĆ IND ST Z ' Otherwise negate and recall next value 11 RCL IND ST Z 12 +/- 13 GTO 01 ' repeat loop 14>LBL 02 ' Flip the parity flag- (starts even) 15 FS? 01 16 FC?C 01 17 SF 01 18>LBL 03 ' begin counting through the values 19 RCL IND 00 20 X=0? ' until you find a positive one to loop on 21 GTO 04 ' 00 value indicates end of matrix 22 X>0? 23 GTO 01 ' new loop found, go to main loop 24 ISG 00 ' increment reg 00 counter 25 CLX ' NOP 26 GTO 03 ' counter to check for the first pos. number 27>LBL 04 ' end program 28 CLST ' cleanup the stack 29 FS? 01 30 1 ' return parity based on Flag 1 31 END ``` Note: edited to add inputs/outputs section Edited: 18 Jan 2011, 9:16 a.m. ▼ Don Shepherd Unregistered Posts: 1,392 Threads: 142 Joined: Jun 2007 01-18-2011, 05:42 PM Great program Allen, thanks. Can you implement this unique algorithm in RPL on the 50g? Don

 Possibly Related Threads… Thread Author Replies Views Last Post Good puzzle for kids to solve on 35s? snaggs 11 3,381 09-18-2013, 10:40 PM Last Post: David Hayden Second Batch of HP-15 LE calculators Namir 6 2,364 07-02-2013, 12:27 PM Last Post: Kimberly Thompson HP-15 LE Key repair question Namir 2 1,454 06-10-2013, 10:42 PM Last Post: Namir Party Puzzle: for your amusement hugh steers 2 1,273 05-28-2013, 03:00 PM Last Post: hugh steers HP 41 Mcode related Questions Michael Fehlhammer 4 1,956 05-10-2013, 07:09 PM Last Post: Michael Fehlhammer The answer to the second semi-mathematical puzzle Mike Reed 3 1,440 02-18-2013, 02:40 AM Last Post: Derek Walker (UK) Answer to Mathematical Puzzle Mike Reed 2 1,223 02-08-2013, 12:11 AM Last Post: LHH OT: a semi mathmatical puzzle 4 u Mike Reed 6 2,020 02-05-2013, 07:50 PM Last Post: Mike Reed Calculator O.T., instead HP related. Luiz C. Vieira (Brazil) 1 1,151 08-17-2012, 06:57 AM Last Post: Frank Boehm (Germany) A new firmware beyond 2.15 for 50g ever? mr-scorpio 3 1,626 07-24-2012, 07:25 AM Last Post: Keith Midson

Forum Jump: