Data update

Task/Hofstadter-Q-sequence/AArch64-Assembly/hofstadter-q-sequence.aarch64

@@ -0,0 +1,181 @@
+/* ARM assembly AARCH64 Raspberry PI 3B */
+/*  program hofstader64.s   */
+
+/*******************************************/
+/* Constantes                              */
+/*******************************************/
+/* for this file see task include a file in language AArch64 assembly*/
+.include "../includeConstantesARM64.inc"
+
+/*******************************************/
+/* macros                             */
+/*******************************************/
+//.include "../../ficmacros64.inc"            // for developper debugging
+
+/*********************************/
+/* Initialized data              */
+/*********************************/
+.data
+szMessDebutPgm:    .asciz "Program 64 bits start. \n"
+szCarriageReturn:  .asciz "\n"
+szMessFinOK:       .asciz "Program normal end. \n"
+szMessErreur:      .asciz "Error  !!!\n"
+szMessHofs:       .asciz "Hofstader numbers :\n"
+szSpace:           .asciz " "
+
+.align 4
+/*********************************/
+/* UnInitialized data            */
+/*********************************/
+.bss
+sZoneConv:               .skip 24
+.align 4
+
+/*********************************/
+/*  code section                 */
+/*********************************/
+.text
+.global main
+main:
+    ldr x0,qAdrszMessDebutPgm
+    bl affichageMess            // start message
+
+    ldr x0,qAdrszMessHofs
+    bl affichageMess
+
+    mov x0,10                   // maxi
+    mov x1,1                    // display number
+    bl genererHofs
+    ldr x0,qAdrszCarriageReturn
+    bl affichageMess
+
+    mov x0,1000                 // maxi
+    mov x1,0                    // display last number
+    bl genererHofs
+    ldr x0,qAdrszCarriageReturn
+    bl affichageMess
+
+    ldr x0,qMax100000            // maxi
+    mov x1,2                     // display counter
+    bl genererHofs
+    bl displayNumber             // display return number
+    ldr x0,qAdrszCarriageReturn
+    bl affichageMess
+
+    ldr x0,qAdrszMessFinOK
+    bl affichageMess
+    b 100f
+99:
+    ldr x0,qAdrszMessErreur     // error
+    bl affichageMess
+    mov x0, #1                  // return code error
+    b 100f
+100:
+    mov x8,EXIT
+    svc #0                      // system call
+qAdrszMessDebutPgm:          .quad szMessDebutPgm
+qAdrszMessFinOK:             .quad szMessFinOK
+qAdrszMessErreur:            .quad szMessErreur
+qAdrsZoneConv:               .quad sZoneConv
+qAdrszMessHofs:              .quad szMessHofs
+qMax100000:                  .quad 100000
+/***************************************************/
+/*   Generation Fibonacci numbers                  */
+/***************************************************/
+/* x0 contains limit number    */
+/* x1 display the last number */
+genererHofs:
+    stp x1,lr,[sp,-16]!
+    stp x2,x3,[sp,-16]!
+    stp x4,x5,[sp,-16]!
+    stp x6,x7,[sp,-16]!
+    stp x8,x9,[sp,-16]!
+    stp x10,x11,[sp,-16]!
+    mov x2,x0
+    lsl x10,x0,3
+    sub sp,sp,x10               // reserve area on stack
+    mov x7,sp
+    mov x4,#0
+    mov x5,#0
+1:                              // init area loop
+    str x4,[x7,x5,lsl #3]
+    add x5,x5,#1
+    cmp x5,x2
+    blt 1b
+    mov x4,#1
+    str x4,[x7]                 // store value 1 in first item
+    str x4,[x7,8]               // store value 1 in second item
+    cmp x1,1                    // display number ?
+    bne 2f
+    mov x0,1                    // display L(1)
+    bl displayNumber
+    mov x0,1                    // display L(2)
+    bl displayNumber
+2:
+    mov x9,0
+    mov x4,#2
+3:
+    sub x3,x4,#1               // L -1
+    ldr x11,[x7,x3,lsl #3]      // load ancien result
+    sub x6,x4,x11
+    ldr x5,[x7,x6,lsl #3]
+    sub x3,x3,#1               // L - 2
+    ldr x8,[x7,x3,lsl #3]      // load ancien result
+    sub x6,x4,x8
+    ldr x8,[x7,x6,lsl #3]
+    add x5,x5,x8
+    str x5,[x7,x4,lsl #3]
+    cmp x5,x11
+    cinc x9,x9,lt
+
+    cmp x1,1
+    bne 4f
+    mov x0,x5
+    bl displayNumber
+4:
+
+    add x4,x4,#1               // increment counter
+    cmp x4,x2                  // end compute ?
+    blt 3b
+    cmp x1,1
+    bge 100f
+    mov x0,x5
+    bl displayNumber
+100:
+    mov x0,x9
+    add sp,sp,x10               // free reserved area
+    ldp x10,x11,[sp],16
+    ldp x8,x9,[sp],16
+    ldp x6,x7,[sp],16
+    ldp x4,x5,[sp],16
+    ldp x2,x3,[sp],16
+    ldp x1,lr,[sp],16
+    ret
+/***************************************************/
+/*   display number                  */
+/***************************************************/
+/* x0 contains number  */
+displayNumber:
+    stp x1,lr,[sp,-16]!
+    stp x2,x3,[sp,-16]!
+    ldr x1,qAdrsZoneConv
+    bl conversion10
+    mov x2,#0
+    add x1,x1,x0
+    strb w2,[x1]
+    ldr x0,qAdrsZoneConv
+    bl affichageMess
+    ldr x0,qAdrszSpace
+    bl affichageMess
+100:
+    ldp x2,x3,[sp],16
+    ldp x1,lr,[sp],16
+    ret
+qAdrszCarriageReturn:         .quad szCarriageReturn
+qAdrszSpace:                  .quad szSpace
+
+/***************************************************/
+/*      ROUTINES INCLUDE                 */
+/***************************************************/
+/* for this file see task include a file in language AArch64 assembly*/
+.include "../includeARM64.inc"

Task/Hofstadter-Q-sequence/Gambas/hofstadter-q-sequence.gambas

@@ -0,0 +1,23 @@
+Public Const limite As Integer = 100000
+Public Q[limite + 1] As Long
+
+Public Sub Main()
+
+  Dim i As Long, cont As Long = 0
+
+  Q[1] = 1
+  Q[2] = 1
+  For i = 3 To limite
+    Q[i] = Q[i - Q[i - 1]] + Q[i - Q[i - 2]]
+    If Q[i] < Q[i - 1] Then cont += 1
+  Next
+
+  Print "Primeros 10 terminos:  ";
+  For i = 1 To 10
+    Print Q[i] & " ";
+  Next
+
+  Print "\nTermino numero 1000:  "; Q[1000]
+  Print "Terminos menores que los anteriores: " & cont
+
+End

Task/Hofstadter-Q-sequence/OxygenBasic/hofstadter-q-sequence.basic

@@ -0,0 +1,26 @@
+uses console
+
+int limite = 100000
+
+dim long Q[100000]
+long i, cont = 0
+
+Q[1] = 1
+Q[2] = 1
+For i = 3 To limite
+    Q[i] = Q[i-Q[i-1]] + Q[i-Q[i-2]]
+    If Q(i) < Q(i-1) Then cont += 1
+Next i
+
+print "Primeros 10 terminos: "
+For i = 1 To 10
+    print Q(i) " ";
+Next i
+print cr
+
+printl "Termino numero 1000:  " Q(1000)
+
+printl "Terminos menores que los anteriores: " cont
+
+printl cr "Enter ..."
+waitkey

Task/Hofstadter-Q-sequence/QB64/hofstadter-q-sequence.qb64

@@ -0,0 +1,20 @@
+Const limite = 100000
+
+Dim As Long Q(limite)
+Q(1) = 1
+Q(2) = 1
+
+cont = 0
+For i = 3 To limite
+    Q(i) = Q(i - Q(i - 1)) + Q(i - Q(i - 2))
+    If Q(i) < Q(i - 1) Then cont = cont + 1
+Next i
+
+Print "First 10 terms:";
+For i = 1 To 10
+    Print Q(i);
+Next i
+
+Print
+Print "Term 1000: "; Q(1000)
+Print "Terms less than preceding in first 100k:"; cont

Task/Hofstadter-Q-sequence/Tailspin/hofstadter-q-sequence-2.tailspin

@@ -0,0 +1,28 @@
+q templates
+  outputFrom is $(1);
+  until is $(2);
+  @ set [1,1];
+  1..$until -> # !
+  when <|$@::length~..> do
+    ..|@ set $@($ - $@($ - 1)) + $@($ - $@($ - 2));
+    $ -> # !
+  when <|$outputFrom..> do
+    $@($) !
+end q
+
+[1,10] -> q -> '$; ' !
+'
+' !
+
+[1000,1000] -> q -> '$;
+' !
+
+countDownSteps templates
+  @ set 0;
+  qs is $;
+  2..$qs::length -> !#
+  $@ !
+  when <|?($qs($) matches <|..~$qs($-1)>)> do @ set $@ + 1;
+end countDownSteps
+
+[[1, 100000] -> q] -> countDownSteps -> 'Less than previous $; times' !