Skip to main content

Friday Quiz maths problem 14 Oct 22



I did spend a little time trying to reason it out and arrive at an answer through logic but soon gave up and resorted to my usual method of 'try all the numbers and count how many fit'.

Using my trusty Minstrel Forth (Jupiter Ace clone) I have written a program to cycle through all 10-digit numbers that use 1,2 and 3  and test / count  the number that qualify (adjacent numbers differ by 1)


It's taking a while. As I write this it seems to be running but it'll take a little while longer before I have an answer. Once it's finished and I know it's working properly I'll write my program below for Forth fans.

[update]

The answer is 64 and this week we do have some working.  



My program did eventually come up with the right answer after a bit of debugging and you can see the pattern referred to. The listing is below, please feel free to type it in, or paste it if you have one of my USB keyboard / serial adaptors. 

 I love using recursion. Here I've re-used some words that I'd already created for updating the score in a game. If the word detects that the byte has gone above 9 (or in this case above 3) then it resets that byte, decrements the memory address and calls itself.  It doesn't have a check on the number of recursions it makes, but the main program detects when it's finished (there are 11 bytes in the score table, and when the leftmost ticks over, then the program has finished.)

Note that Jupiter Ace Forth allows you to simply call a word from within that word, some flavours don't allow recursion or use the word RECURSE to call the current word.

 

create score_table 0 c, 0 c, 0 c, 0 c, 0 c, 0 c, 0 c, 0 c, 0 c, 0 c, 0 c,
0 variable total

: inc_recursive ( a--a )
dup dup c@ 1 +
swap c! dup c@ 4 =
if
    dup 1 swap c! 1 - inc_recursive
then ;

: inc_score ( -- )
score_table 10 + inc_recursive drop ;

: qualifies ( a--f )
dup c@ swap 1 + c@ - abs 1 = ;

: num_qualify ( --n )
0 10 1
do
    score_table i + qualifies
    if
        1 +
    then
loop ;

: clear ( -- )
11 0 do
    1 score_table i + c!
loop
0 total !
;

: finished ( --f )
score_table c@ 2 =
;

:  print_score ( -- )
11 1
do
    score_table i + c@ .
loop
cr ;


: run
clear
begin
    inc_score num_qualify 9 =
    if
        total @ 1 + total !
        print_score
    then
    finished
until
cr total @ .
;




 

 

 

 

 

Comments

Post a Comment

Popular posts from this blog

RC2024/10 - my entry

A while ago I made this MIDI module for RC2014: It works but a better design would have its own serial chip and port decoding.  As it is, it provides the MIDI interface and a clock signal for the second SIO2 serial port. This means that it requires a little setting up and will only work for RC2014s with an SIO2 (and port B not already used). I think people might reasonably expect it to be plug-and-play and self-contained, ie do all the serial itself. My challenge to myself is to:  learn how to connect a serial chip (probably 68B50 ACIA) to receive the incoming MIDI and to serialise outgoing MIDI design the module, including the port decoding write a library so that it can easily be used on any RC2014. Potential applications include a MIDI sequencer and using incoming MIDI to trigger notes on the AY or SID sound chips. Entering the Retro Challenge 2024 (aka RC2024/10)  has given me an incentive to get on with this! I'm happy to see several more entries in the RC2014 catego...
3 comments
Read more

IM53 8080 birthday cake

 Each year I've been trying to get more creative with ideas for Spencer's birthday cake. The plan this year was to incorporate LEDs in place of candles. I eventually settled on an Altair / IMSAI / PDP -style computer since those are the type of computers that inspired his RC2014. The IMSAI 8080 has the most colourful switches as well as a name that I could twist. The thought that it could show randomly flashing lights (as if the computer were running) and that it could also play a game of 'kill the bit' was very appealing. A plan formed to use a capacitive touch pad on the cake itself. The first job is to bake the fruitcake. I often use a 7" square tin and one of those cut in half and rearranged makes a cake of suitable proportions.  Even after taking a slice off the faces to make them nice and square, there are still some rounded corners, so after putting on the marzipan, I used more marzipan as a filler to flatten the whole thing. Even though I wanted to end up w...
Post a Comment
Read more

New MSX graphics / sound / joystick module for RC2014 / RCBus

I'm impressed at what Les has packed onto this standard-sized module. It contains an FPGA replacement for the TMS9918A, a YM/AY sound module and joystick interface.  The project is open-source and is here . In MSX terms this is the VDP (vidio display processor) and PSG (programmable sound generator), thus being an alternative for both the J B Langston TMS9918A video module and Ed Brindley's YM/AY sound module and adds two joystick ports to boot. All on a single module for RC2014 or compatible computers. There's no room for the d-sub joystick ports, so headers are provided so that these ribbon cables can be used.  This is a neat solution for those wishing to take advantage of Les' MSX8 system , which loads most MSX rom files along with a modified MSX BIOS from CP/M on a ROMWBW RC2014.  It is hard-wired to the MSX ports for the sound and video, so it won't be suitable for those wanting to run Colecovision ROMs, for example. I'm torn myself between the real TMS ...
Post a Comment
Read more