You are here
Программа 8 Ферзей для DM42/Free42
ср, 14/06/2017 - 09:58 - Vitasam
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
Метки публикаций:
»
- Vitasam's blog
- Log in or register to post comments
- 12830 просмотров
Комментарии
Теплый
Теплый ламповый мнемокод с метками :) Надеюсь, DM42 позволяет их вводить и двигать непосредственно при вводе с клавиатуры.
Да, лампово (+)
клавиши реагируют четко и тоже очень лампово :)
Ну, метки не привязаны к адресу, поэтому при вводе с клавиатуры новой команды она сдвигает метки, код остается рабочий. Поэтому программировать "в поле" на таком кальке одно удовольствие (не будем показывать пальцем, на чем неудобно работать "в поле").
Комманды со временем на DM42
Комманды со временем на 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 и работает со временем
DM42 понимает raw-файлы Free42 и работает со временем. Внизу скриншоты с прогона программы queens.raw с циклом 10 раз (1000 слишком долго) при работе от батареи и от USB:
Прошивка 2.10.13 Бета чуть потормознее стала
Прошивка 2.10.13 Бета чуть потормознее стала, при прогоне Queens. Зато теперь скриншоты легко снимать:
Графика
Там ещё графика была и 8-ферзей рисовала расположения на экранчике, как с графикой в DM42 ???
Графика в DM42
На сегодня с графикой в DM42 точно также как во Free42 (то есть скудно). Ходят слухи и пожелания сообщества о расширении языка для покрытия всего экрана. Это было бы шикарно.
А пока там только стэк, статус-строка время/дата/батарея и пользовательский stand-by экран.