Skip to main content

Friday Quiz maths question 8 Jul 22

 

How many three-digit numbers are there where the middle digit is lower than both the first digit and the third digit?


My reaction to this is to loop through all of the numbers 100-999 and count the ones that pass the test.

(yes, lines 40 and 45 look a little inelegant with that repetition, but I tried it with a goto (yuk) and gosub and this was the shortest and neatest of my variations.  I wanted to print the qualifying numbers as well as inc'ing the count).


I remember a very similar question in the past, involving 3-digit numbers. I think it was Mr Beckett who used a single loop in Forth and wrote words to separate out the hundreds, tens and units.  (Seemed a little counter-intuitive to me but Forth doesn't allow you access to the indices of three nested loops). So I thought I'd give that a go to see whether it would be more elegant than the BASIC version. 



Here are my 'hundreds', 'tens' and 'units' words (made easier as the default type in Ace Forth is an integer) and the 'run' loop. The zero at the start is my counter, conveniently at the top of the stack at the point where I want to increment it.

As you can see, it arrived at the same answer, 285, so I'm sure that's the right answer.

This leaves me very curious about how the question setter expected people to solve this, if not by an automated 'loop and count'.

Looking at the numbers that both programs produce, it might be possible to go through and reason it out - ie "in the 100's, only 10x will qualify, so that's 9" and so on, but that seems very longwinded.  

Any thoughts on this?

Do you have any alternative programs in other languages / other systems?

Update: 

Thanks to people joining in on twitter, we had this serious improvement on the basic program:

10 for i = 0 to 8

20 for j = i+1 to 9

30 for k = i+1 to 9

.. which removes the need for a test as it only gives numbers where hundreds and units are > tens

Following on from this, and thanks to several friends, it became clear that we can use:

 1^2 + 2^2 etc

The clearest explanation for this is from Mr A, who said:

Middle = 8, Perms = 1 (989)

Middle = 7, Perms = 4 (878, 879, 978, 979)

Middle = 6, Perms = 9 (767, 768, 769, 867, 868, 869, 967, 968, 969)




Comments

  1. Reggie19 July 2022 at 09:35

    Hi. Loving the Quiz questions (and answers). Do you mind me asking where they are published?
    I have built an RC65(C)02 with Tali Forth 2 (65c02 only) so keen to have a go (it's just too tempting to have a peek at your answers first).

    ReplyDelete
    Replies
    1. peahen19 July 2022 at 10:00

      Hi Reggie, glad you enjoy these. The quiz is put together by a friend of a friend, I'm not sure of the protocol for giving the details publicly, but if you write to me at shieladixon@gmail.com I'll let you know.
      I'd love to know more about your computer, have you published the details anywhere?

      Delete

Post a Comment

Popular posts from this blog

ZX81 reversible internal 16k upgrade

T his post is an upvote for Tynemouth Software's  ZX81 reversible Internal 16K RAM upgrade . Their instructions are easy enough for even me to follow and don't involve cutting tracks. This is the ZX81 I've had out on display and used whenever I wanted to. It's an issue 1 and was probably a kit judging by some very untidy assembly. It has a ZX8-CCB  composite video mod and an external keyboard fitted. On board it has two 1k x 4-bit chips.  The ZX81 originally came with 1k on board. Thanks to a trick with compressing the display in ram, that was enough to type and run a small program but you soon felt the limitations. Back in the early 80s, the solution was a 16k ram pack which plugged into the back[1] and this is the way I've been using this particular machine. These ram packs are notorious for 'ram pack wobble'. Even if fastened into place, you can still randomly find your work disappearing. This is a very reliable solution using a more modern 32k chip (half
Post a Comment
Read more

Driving NeoPixels with Z80

I 've long been thinking about a version two   RC2014 LED matrix module . I've had a matrix with a MAX 7219 on a module. It's a nice enhancement. But there's only so much you can do with a single-colour LED array right? Wouldn't it be cool to have RGB LEDs?  At Liverpool MakeFest I saw a wall-sized ping-pong ball NeoPixel display and picked up some NeoPixels with the intention of making one. Possibly driven by my RC2014.  I enjoy learning about protocols and have had some SPI devices working with the RC2014 - bit-banging SPI works really well because it doesn't care about timing. NeoPixels really do care about timing though. From Adafruit's web page about their 8x8  NeoPixel matrix: If there's one thing I want to get across in this blog post, it's don't just accept what you're told . Question everything. Learn about what's going on and find out why you're being told something isn't possible. Get creative with workarounds. I'
Post a Comment
Read more

Making new ROMs for the Vic20 / Vicky Twenty

M y Vicky Twenty is very nearly complete.  As things stand, the board and every single component is new*. The processor and VIAs are newly-manufactured (W65C02 and W65C22).  Obviously the Vic1 chip isn't manufactured today, but there is 'new old' stock about. I have been able to buy a Vic 1, date code 1987 (which seems very late). It obviously hasn't been in a computer before, passes the acetone test and works. The same goes for two of the ROMs - character and BASIC. But I haven't been able to buy a new-old Kernal ROM (901486-07). I am able to borrow one - all of the boards I have, have this particular ROM socketed. I don't know whether all of this indicates that the Kernal has proved less reliable than the other two. I recently bought a TL866 for another project. Of all the retro-computing hardware things I've had to learn to do, making ROMs has been one of the simplest. So far, everything has been very easy and worked first time.  I'm not sure that it&
4 comments
Read more