urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-22 18:31:44 +03:00
Code Issues Packages Projects Releases Wiki Activity

roll/reel with while loops

Browse Source
This commit is contained in:
Paul Driver 2020-08-20 11:58:08 -07:00
parent b0d252fa76
commit e3cafdd464
2 changed files with 49 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
pkg/urbit/jets/b/reel.c
View File

@ -3,36 +3,49 @@
*/ */
#include "all.h" #include "all.h"
static u3_noun
_reel_in(u3j_site* sit_u, u3_noun a, u3_noun b)
{
if ( 0 == a ) {
return b;
}
else if ( c3n == u3du(a) ) {
return u3m_bail(c3__exit);
}
else {
u3_noun gim = u3k(u3h(a));
u3_noun hur = _reel_in(sit_u, u3t(a), b);
return u3j_gate_slam(sit_u, u3nc(gim, hur));
}
}
/* functions /* functions
*/ */
u3_noun u3_noun
u3qb_reel(u3_noun a, u3qb_reel(u3_noun a,
u3_noun b) u3_noun b)
{ {
u3_noun pro; u3_noun pro = u3k(u3x_at(u3x_sam_3, b));
u3j_site sit_u; if ( u3_nul == a ) {
u3j_gate_prep(&sit_u, u3k(b));
pro = _reel_in(&sit_u, a, u3k(u3x_at(u3x_sam_3, b)));
u3j_gate_lose(&sit_u);
return pro; return pro;
} }
else {
u3j_site sit_u;
u3_noun i, t = a;
c3_w j_w, len_w = 0, all_w = 89, pre_w = 55;
u3_noun* vec = u3a_malloc(all_w);
// stuff list into an array
do {
if ( c3n == u3r_cell(t, &i, &t) ) {
u3a_free(vec);
return u3m_bail(c3__exit);
}
else {
if ( len_w == all_w ) {
// grow vec fib-wise
all_w += pre_w;
pre_w = len_w;
vec = u3a_realloc(vec, all_w);
}
vec[len_w++] = i;
}
} while ( u3_nul != t );
// now we can iterate backwards
u3j_gate_prep(&sit_u, u3k(b));
for ( j_w = len_w; j_w > 0; ) {
pro = u3j_gate_slam(&sit_u, u3nc(u3k(vec[--j_w]), pro));
}
u3j_gate_lose(&sit_u);
u3a_free(vec);
return pro;
}
}
u3_noun u3_noun
u3wb_reel(u3_noun cor) u3wb_reel(u3_noun cor)
{ {

27
pkg/urbit/jets/b/roll.c
View File

@ -3,32 +3,25 @@
*/ */
#include "all.h" #include "all.h"
static u3_noun
_roll_in(u3j_site* sit_u, u3_noun a, u3_noun b)
{
if ( 0 == a ) {
return b;
}
else if ( c3n == u3du(a) ) {
return u3m_bail(c3__exit);
}
else {
b = u3j_gate_slam(sit_u, u3nc(u3k(u3h(a)), b));
return _roll_in(sit_u, u3t(a), b);
}
}
/* functions /* functions
*/ */
u3_noun u3_noun
u3qb_roll(u3_noun a, u3qb_roll(u3_noun a,
u3_noun b) u3_noun b)
{ {
u3_noun pro; u3_noun pro = u3k(u3x_at(u3x_sam_3, b));
if ( u3_nul != a ) {
u3j_site sit_u; u3j_site sit_u;
u3_noun i, t = a;
u3j_gate_prep(&sit_u, u3k(b)); u3j_gate_prep(&sit_u, u3k(b));
pro = _roll_in(&sit_u, a, u3k(u3x_at(u3x_sam_3, b))); do {
u3x_cell(t, &i, &t);
pro = u3j_gate_slam(&sit_u, u3nc(u3k(i), pro));
} while ( u3_nul != t );
u3j_gate_lose(&sit_u); u3j_gate_lose(&sit_u);
}
return pro; return pro;
} }
u3_noun u3_noun