Data update

This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions

View file

@ -1 +1 @@
fib{1: ( -1)+ -2}
fib{1: (+/¨-1 2}

View file

@ -1 +1 @@
+.×/N/2 21 1 1 0
fib{1: (-1)+-2}

View file

@ -1 +1 @@
0 1+.×/N/2 21 1 1 0
+.×/N/2 21 1 1 0

View file

@ -1 +1 @@
.5+(((1+PHI)÷2)*N)÷PHI5*.5
0 1+.×/N/2 21 1 1 0

View file

@ -0,0 +1 @@
.5+(((1+PHI)÷2)*N)÷PHI5*.5

View file

@ -1 +1 @@
{:[x<3;1;_f[x-1]+_f[x-2]]}
{:[x<3;1;+/_f'x-1 2]}

View file

@ -1 +1 @@
{c::.();{v:c[a:`$$x];:[x<3;1;:[_n~v;c[a]:_f[x-1]+_f[x-2];v]]}x}
{c::.();{v:c[a:`$$x];:[x<3;1;_n~v;c[a]:+/_f'x-1 2;v]}x}

View file

@ -0,0 +1,31 @@
%newline { [ LIT2 0a -Console/write ] DEO }
|18 @Console/write
|100
#1400
&loop
DUP #00 SWP fibonacci print/dec newline
INC GTHk ?&loop
POP2
BRK
@fibonacci ( n* -- n!* )
ORAk ?{ JMP2r }
ORAk #01 NEQ ?{ JMP2r }
DUP2 #0001 SUB2 fibonacci STH2
#0002 SUB2 fibonacci
STH2r ADD2
JMP2r
@print/dec ( short* -- )
#000a SWP2 [ LITr ff ]
&get ( -- )
SWP2k DIV2k MUL2 SUB2 STH
POP OVR2 DIV2 ORAk ?&get
POP2 POP2
&put ( -- )
STHr INCk ?{ POP JMP2r }
[ LIT "0 ] ADD .Console/write DEO !&put

View file

@ -0,0 +1,14 @@
const std = @import("std");
pub fn main() !void {
var a: u32 = 1;
var b: u32 = 1;
const target: u32 = 48;
for (3..target + 1) |n| {
const fib = a + b;
std.debug.print("F({}) = {}\n", .{n, fib});
a = b;
b = fib;
}
}