How to resolve the algorithm Fusc sequence step by step in the BBC BASIC programming language

Published on 12 May 2024 09:40 PM
#Bbc basic

How to resolve the algorithm Fusc sequence step by step in the BBC BASIC programming language

Table of Contents

Problem Statement

The   fusc   integer sequence is defined as:

Note that MathWorld's definition starts with unity, not zero.   This task will be using the OEIS' version   (above).

where   A   is some non-negative integer expressed in binary,   and where   B   is the binary value of   A   reversed.

Fusc numbers are also known as:

Let's start with the solution:

Step by Step solution about How to resolve the algorithm Fusc sequence step by step in the BBC BASIC programming language

Source code in the bbc programming language

      DIM Idx%(4)
      L%=1
      F%=FNfusc(I%)
      PRINT "First 61 numbers:"
      WHILE L% < 5
        IF I% < 61 PRINT;F% ",";
        I%+=1
        F%=FNfusc(I%)
        IF LOGF% > L% Idx%(L%)=I% : L%+=1
      ENDIF
      ENDWHILE

      PRINT CHR$127 ''"Number of digits in sequence increase at:"
      FOR I%=0 TO L%-1
      PRINT ;Idx%(I%) ",";FNfusc(Idx%(I%))
      NEXT
      END

      DEF FNfusc(n%)
      IF n% < 2 THEN =n%
      IF n% AND 1 THEN =FNfusc((n%-1)/2) + FNfusc((n%+1)/2)
      =FNfusc(n%/2)

You may also check:How to resolve the algorithm Identity matrix step by step in the Component Pascal programming language
You may also check:How to resolve the algorithm 99 bottles of beer step by step in the Lambda Prolog programming language
You may also check:How to resolve the algorithm Strip whitespace from a string/Top and tail step by step in the Python programming language
You may also check:How to resolve the algorithm Numbers which are the cube roots of the product of their proper divisors step by step in the Perl programming language
You may also check:How to resolve the algorithm Loops/Break step by step in the Snabel programming language