Программа 8 Ферзей для DM42/Free42

00 { 67-Byte Prgm }    22 X=0?
01▸LBL "NQUEENS"       23 GTO 00
02 CLRG                24 RCL IND 00
03 8                   25 RCL IND 09
04 STO 11              26 -
05▸LBL 00              27 X=0?
06 RCL 00              28 GTO 03
07 RCL 11              29 ABS
08 X=Y?                30 RCL 00
09 GTO 04              31 RCL 09
10 ISG 00              32 -
11 DEG                 33 X≠Y?
12 STO IND 00          34 GTO 02
13▸LBL 01              35▸LBL 03
14 ISG 10              36 DSE IND 00
15 DEG                 37 GTO 01
16 RCL 00              38 DSE 00
17 STO 09              39 GTO 03
18▸LBL 02              40▸LBL 04
19 DSE 09              41 RCL 10
20 DEG                 42 RTN
21 RCL 09              43 END

Программа для теста 8 Ферзей.
После запуска программы (XEQ NQUEENS) ответы в регистрах памяти:
RCL 01 = 8, ..02 = 4, ..03 = 1, ..04 = 3, ..05 = 6, ..06 = 2, ..07 = 7, ..08 = 5

Метки публикаций: 
Undefined

Комментарии

Теплый ламповый мнемокод с метками :) Надеюсь, DM42 позволяет их вводить и двигать непосредственно при вводе с клавиатуры.

клавиши реагируют четко и тоже очень лампово :)

Ну, метки не привязаны к адресу, поэтому при вводе с клавиатуры новой команды она сдвигает метки, код остается рабочий. Поэтому программировать "в поле" на таком кальке одно удовольствие (не будем показывать пальцем, на чем неудобно работать "в поле").

---------------------------
Истина где-то рядом
www.litres.ru/vitaliy-samurov/dozvonitsya-do-devy/

Комманды со временем на DM42 работают? Я для измерения скорости Free42 на разных гаджетах когда-то написал такую программку, которая прогоняет тест указанное (в шаге 05) количество раз и считает время на 1 прогон:

00 { 142-Byte Prgm }
01▸LBL "QUEEN"   23 STO IND "I"    45 GTO 02     
02 TIME          24▸LBL 01         46▸LBL 03     
03 →HR           25 ISG "K"        47 DSE IND "I"
04 STO "T"       26 DEG            48 GTO 01     
05 1ᴇ3           27 RCL "I"        49 DSE "I"    
06 STO "M"       28 STO "J"        50 GTO 03     
07 STO "M0"      29▸LBL 02         51▸LBL 04     
08▸LBL 05        30 DSE "J"        52 RCL "K"    
09 CLRG          31 DEG            53 DSE "M"    
10 0             32 RCL "J"        54 GTO 05     
11 STO "I"       33 X=0?           55 TIME       
12 STO "J"       34 GTO 00         56 →HR        
13 STO "K"       35 RCL IND "I"    57 RCL "T"    
14 8             36 RCL IND "J"    58 -          
15 STO "N"       37 -              59 3600       
16▸LBL 00        38 X=0?           60 ×          
17 RCL "I"       39 GTO 03         61 RCL "M0"   
18 RCL "N"       40 ABS            62 ÷          
19 X=Y?          41 RCL "I"        63 .END.      
20 GTO 04        42 RCL "J"      
21 ISG "I"       43 -            
22 DEG           44 X≠Y?         

Если DM42 понимает raw-файлы Free42, то файл тут: queens.raw

DM42 понимает raw-файлы Free42 и работает со временем. Внизу скриншоты с прогона программы queens.raw с циклом 10 раз (1000 слишком долго) при работе от батареи и от USB:
Работа от батарейРабота от USB

---------------------------
Истина где-то рядом
www.litres.ru/vitaliy-samurov/dozvonitsya-do-devy/

Прошивка 2.10.13 Бета чуть потормознее стала, при прогоне Queens. Зато теперь скриншоты легко снимать:

Queens, батареяQueens, USB

---------------------------
Истина где-то рядом
www.litres.ru/vitaliy-samurov/dozvonitsya-do-devy/

Там ещё графика была и 8-ферзей рисовала расположения на экранчике, как с графикой в DM42 ???

На сегодня с графикой в DM42 точно также как во Free42 (то есть скудно). Ходят слухи и пожелания сообщества о расширении языка для покрытия всего экрана. Это было бы шикарно.
А пока там только стэк, статус-строка время/дата/батарея и пользовательский stand-by экран.

---------------------------
Истина где-то рядом
www.litres.ru/vitaliy-samurov/dozvonitsya-do-devy/