Skip to main content

Today's Friday Quiz problem. (spoilers)

W

ho doesn't enjoy a maths puzzle?

I receive a Friday Quiz that always has a maths puzzle for Q18.  Sometimes it's something you can't calculate, like the smallest number of postage stamps to make up a particular value. The kind I like best are the ones you can solve with equations and test the answer.  Sometimes it's possible to use a spreadsheet or write a computer program. 

Today's Q18 is the latter:

18. What is the lowest 3-digit number that increases in value by 75% when you reverse the order of the digits?

My Minstrel the Forth (Jupiter Ace clone) was out and I've been using this a lot recently, writing a game as well as testing my keyboard interface.

Spoiler alert: if you want to work it out for yourself, look away now. The answer is in the screenshots.

There's definitely room for optimisation (the program is listed at the bottom of this post) but the inability to use nested loops made for a clunkier program and more work to get it working properly. 

I hate to admit it but the BASIC version was way easier to write and is more elegant:   
 com+ 7 *  com- 4 *  =  if
works without floating point, but it's not as readable as 
if com=rev*1.75

I bashed this one out without too much thought and it worked first time.  The only real downside is that it took way longer than the Forth version (even with the Minstrel running at standard 3.25Mhz).   


Comments

  1. r1ckatkinson14 March 2022 at 04:43

    Be interested to hear how much faster the Forth version was, and why this might be!

    Doesn't seem like there's any shorts cuts other than 'brute force' try a load of values and see if they work.

    Good article and use of screen shots.

    ReplyDelete
  2. peahen14 March 2022 at 04:57

    Thanks Rick. That's easy - Forth is compiled, and if it's a good implementation of Forth, it can run at near-assembly speeds. Looking back at the magazines from '82, this is the way that they marketed the Jupiter Ace (speed). In this case, the BASIC version was elegant though, due to the nested loops and floating point maths. I've since learned about using floats in Forth. that would have helped the Forth case, and a friend of mine did take a different approach to me (rather than looping three variables and constructing the forward and reverse numbers, he used one counter from 100-999 and calculated the reverse version from that) that was a much more elegant Forth solution.

    ReplyDelete

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