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
/* | |
* 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 |
/* | |
* 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 |
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
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 |
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 |
.txt_output equ &bb5a | |
.print_hex_byte | |
push af | |
rrca | |
rrca | |
rrca | |
rrca | |
call print_byte_digit | |
pop af |
ПРОЦ СТАРТ() | |
ВЫВОД: 'Привет, Марс!' | |
КОН ПРОЦ |
use v6; | |
my @array = (0, 1, 1, 2, 3, 5, 8, 13); | |
for @array -> $x { | |
say $x; | |
} |
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 !! |
use v6; | |
print 'Fibonacci number: '; | |
for $*IN.get { | |
my @fib = 1, 1, *+* ... *; | |
say "Fibonacci number #$_ is @fib[$_-1]"; | |
} |