retokromer

/*
 *  Copyright (c) 2020 by Reto Kromer
 *
 *  Ackermann function:
 *
 *    A(0,n) = n+1
 *    A(m,0) = A(m-1,1)         if m > 0
 *    A(m,n) = A(m-1,A(m,n-1))  if m > 0 and n > 0
 *
 *    where m and n are non-negative integers

retokromer

/*
 *  Copyright (c) 2020 by Reto Kromer
 *
 *  Ackermann function:
 *
 *    A(0,n) = n+1
 *    A(m,0) = A(m-1,1)         if m > 0
 *    A(m,n) = A(m-1,A(m,n-1))  if m > 0 and n > 0
 *
 *    where m and n are non-negative integers

retokromer

Basilisk II Compilation

On macOS

You need cvs, autoconf and automake. If you don’t have them installed yet, then you can install them e.g. via Homebrew:

brew install cvs
brew install autoconf
brew install automake

retokromer

TITLE "Generate by Resolve"
LUT_3D_SIZE 33

0.0000000000 0.0000000000 0.0117650000
0.0039220000 0.0000000000 0.0117650000
0.0078430000 0.0000000000 0.0117650000
0.0156860000 0.0039220000 0.0156860000
0.0196080000 0.0078430000 0.0156860000
0.0274510000 0.0117650000 0.0156860000
0.0352940000 0.0156860000 0.0156860000

retokromer

TITLE "Generate by Resolve"
LUT_3D_SIZE 33

0.0000000000 0.0000000000 0.0000000000
0.0039220000 0.0000000000 0.0039220000
0.0117650000 0.0000000000 0.0039220000
0.0196080000 0.0039220000 0.0078430000
0.0274510000 0.0078430000 0.0078430000
0.0352940000 0.0156860000 0.0078430000
0.0431370000 0.0196080000 0.0117650000

retokromer

.txt_output equ &bb5a

.print_hex_byte
push af
rrca            
rrca
rrca
rrca
call print_byte_digit
pop af

retokromer

ПРОЦ СТАРТ()
    ВЫВОД: 'Привет, Марс!'
КОН ПРОЦ

retokromer

use v6;

my @array = (0, 1, 1, 2, 3, 5, 8, 13);

for @array -> $x { 
    say $x;
}

retokromer

use v6;

say 'Ackermann function: A(m,n)';
print 'Enter m = ';
my $M = $*IN.get;
print 'Enter n = ';
my $N = $*IN.get;

sub A($m, $n) {
    $m == 0  ??    $n + 1                   !!

retokromer

use v6;

print 'Fibonacci number: ';

for $*IN.get {
    my @fib = 1, 1, *+* ... *;
    say "Fibonacci number #$_ is @fib[$_-1]";
}