Skip to content

Instantly share code, notes, and snippets.

@vijfhoek

vijfhoek/day02.c

Created December 3, 2021 13:46
Show Gist options
  • Save vijfhoek/6a42b0bc1cc894e83c68743e919ac339 to your computer and use it in GitHub Desktop.
Save vijfhoek/6a42b0bc1cc894e83c68743e919ac339 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
day02.c
/* Generated from day02.scm by the CHICKEN compiler
http://www.call-cc.org
Version 5.1.0 (rev 8e62f718)
linux-unix-gnu-x86-64 [ 64bit dload ptables ]
command line: day02.scm -output-file day02.c
uses: library eval expand extras data-structures
*/
#include "chicken.h"
static C_PTABLE_ENTRY *create_ptable(void);
C_noret_decl(C_library_toplevel)
C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_eval_toplevel)
C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_expand_toplevel)
C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_extras_toplevel)
C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_data_2dstructures_toplevel)
C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret;
static C_TLS C_word lf[25];
static double C_possibly_force_alignment;
static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,17),40,112,97,114,115,101,45,108,105,110,101,32,108,105,110,101,41,0,0,0,0,0,0,0};
static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,14),40,112,97,114,115,101,32,105,110,112,117,116,115,41,0,0};
static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,31),40,112,97,114,116,49,45,100,105,114,101,99,116,105,111,110,32,104,101,97,100,32,116,97,105,108,32,104,32,100,41,0};
static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,22),40,112,97,114,116,49,32,100,105,114,101,99,116,105,111,110,115,32,104,32,100,41,0,0};
static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,43),40,112,97,114,116,50,45,100,105,114,101,99,116,105,111,110,32,104,101,97,100,32,116,97,105,108,32,104,111,114,105,122,32,100,101,112,116,104,32,97,105,109,41,0,0,0,0,0};
static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,34),40,112,97,114,116,50,32,100,105,114,101,99,116,105,111,110,115,32,104,111,114,105,122,32,100,101,112,116,104,32,97,105,109,41,0,0,0,0,0,0};
static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0};
C_noret_decl(f_296)
static void C_ccall f_296(C_word c,C_word *av) C_noret;
C_noret_decl(f_299)
static void C_ccall f_299(C_word c,C_word *av) C_noret;
C_noret_decl(f_302)
static void C_ccall f_302(C_word c,C_word *av) C_noret;
C_noret_decl(f_305)
static void C_ccall f_305(C_word c,C_word *av) C_noret;
C_noret_decl(f_308)
static void C_ccall f_308(C_word c,C_word *av) C_noret;
C_noret_decl(f_311)
static void C_ccall f_311(C_word c,C_word *av) C_noret;
C_noret_decl(f_313)
static void C_ccall f_313(C_word c,C_word *av) C_noret;
C_noret_decl(f_317)
static void C_ccall f_317(C_word c,C_word *av) C_noret;
C_noret_decl(f_328)
static void C_ccall f_328(C_word c,C_word *av) C_noret;
C_noret_decl(f_338)
static void C_ccall f_338(C_word c,C_word *av) C_noret;
C_noret_decl(f_342)
static void C_ccall f_342(C_word c,C_word *av) C_noret;
C_noret_decl(f_355)
static void C_ccall f_355(C_word c,C_word *av) C_noret;
C_noret_decl(f_359)
static void C_ccall f_359(C_word c,C_word *av) C_noret;
C_noret_decl(f_365)
static void C_ccall f_365(C_word c,C_word *av) C_noret;
C_noret_decl(f_420)
static void C_ccall f_420(C_word c,C_word *av) C_noret;
C_noret_decl(f_447)
static void C_ccall f_447(C_word c,C_word *av) C_noret;
C_noret_decl(f_510)
static void C_ccall f_510(C_word c,C_word *av) C_noret;
C_noret_decl(f_538)
static void C_ccall f_538(C_word c,C_word *av) C_noret;
C_noret_decl(f_541)
static void C_ccall f_541(C_word c,C_word *av) C_noret;
C_noret_decl(f_544)
static void C_ccall f_544(C_word c,C_word *av) C_noret;
C_noret_decl(f_550)
static void C_ccall f_550(C_word c,C_word *av) C_noret;
C_noret_decl(f_554)
static void C_ccall f_554(C_word c,C_word *av) C_noret;
C_noret_decl(f_558)
static void C_ccall f_558(C_word c,C_word *av) C_noret;
C_noret_decl(C_toplevel)
C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret;
/* k294 */
static void C_ccall f_296(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_296,2,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_299,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_eval_toplevel(2,av2);}}
/* k297 in k294 */
static void C_ccall f_299(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_299,2,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_302,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_expand_toplevel(2,av2);}}
/* k300 in k297 in k294 */
static void C_ccall f_302(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_302,2,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_305,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_extras_toplevel(2,av2);}}
/* k303 in k300 in k297 in k294 */
static void C_ccall f_305(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_305,2,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_308,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_data_2dstructures_toplevel(2,av2);}}
/* k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_308(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_308,2,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_311,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("day02.scm:4: chicken.load#load-extension"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[21]);
C_word *av2;
if(c >= 5) {
av2=av;
} else {
av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[21]+1);
av2[1]=t2;
av2[2]=lf[22];
av2[3]=lf[23];
av2[4]=lf[24];
tp(5,av2);}}
/* k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_311(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,7)))){
C_save_and_reclaim((void *)f_311,2,av);}
a=C_alloc(21);
t2=C_mutate((C_word*)lf[0]+1 /* (set! parse-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_313,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp));
t3=C_mutate((C_word*)lf[3]+1 /* (set! parse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_338,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp));
t4=C_mutate((C_word*)lf[5]+1 /* (set! part1-direction ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_365,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp));
t5=C_mutate((C_word*)lf[7]+1 /* (set! part1 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_420,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[12]+1 /* (set! part2-direction ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_447,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp));
t7=C_mutate((C_word*)lf[14]+1 /* (set! part2 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_510,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp));
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_538,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("day02.scm:50: parse"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[3]);
C_word *av2;
if(c >= 3) {
av2=av;
} else {
av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[3]+1);
av2[1]=t8;
av2[2]=C_SCHEME_END_OF_LIST;
tp(3,av2);}}
/* parse-line in k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_313(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_313,3,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_317,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("day02.scm:7: chicken.string#string-split"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[2]);
C_word *av2=av;
av2[0]=*((C_word*)lf[2]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}
/* k315 in parse-line in k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_317(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_317,2,av);}
a=C_alloc(4);
t2=C_i_car(t1);
t3=t2;
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_328,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=C_i_cdr(t1);
t6=C_i_car(t5);
C_trace(C_text("day02.scm:8: scheme#string->number"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1));
C_word *av2;
if(c >= 3) {
av2=av;
} else {
av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[1]+1);
av2[1]=t4;
av2[2]=t6;
tp(3,av2);}}
/* k326 in k315 in parse-line in k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_328(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_328,2,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
/* parse in k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_338(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_338,3,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_342,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("day02.scm:11: chicken.io#read-line"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[4]);
C_word *av2=av;
av2[0]=*((C_word*)lf[4]+1);
av2[1]=t3;
tp(2,av2);}}
/* k340 in parse in k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_342(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_342,2,av);}
a=C_alloc(4);
t2=C_eofp(t1);
if(C_truep(C_i_not(t2))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_355,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("day02.scm:13: parse-line"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]);
C_word *av2;
if(c >= 3) {
av2=av;
} else {
av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[0]+1);
av2[1]=t3;
av2[2]=t1;
tp(3,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
/* k353 in k340 in parse in k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_355(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_355,2,av);}
a=C_alloc(4);
t2=t1;
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_359,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("day02.scm:13: parse"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[3]);
C_word *av2;
if(c >= 3) {
av2=av;
} else {
av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[3]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
/* k357 in k353 in k340 in parse in k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_359(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_359,2,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
/* part1-direction in k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_365(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(c!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_365,6,av);}
a=C_alloc(29);
t6=C_i_car(t2);
t7=C_i_cdr(t2);
t8=C_i_car(t7);
if(C_truep(C_i_equalp(t6,lf[6]))){
t9=C_s_a_i_plus(&a,2,t4,t8);
C_trace(C_text("day02.scm:20: part1"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[7]);
C_word *av2=av;
av2[0]=*((C_word*)lf[7]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=t9;
av2[4]=t5;
tp(5,av2);}}
else{
if(C_truep(C_i_equalp(t6,lf[8]))){
t9=C_s_a_i_plus(&a,2,t5,t8);
C_trace(C_text("day02.scm:22: part1"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[7]);
C_word *av2=av;
av2[0]=*((C_word*)lf[7]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
av2[4]=t9;
tp(5,av2);}}
else{
if(C_truep(C_i_equalp(t6,lf[9]))){
t9=C_s_a_i_minus(&a,2,t5,t8);
C_trace(C_text("day02.scm:24: part1"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[7]);
C_word *av2=av;
av2[0]=*((C_word*)lf[7]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
av2[4]=t9;
tp(5,av2);}}
else{
C_trace(C_text("day02.scm:25: chicken.format#format"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[10]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[10]+1);
av2[1]=t1;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[11];
tp(4,av2);}}}}}
/* part1 in k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_420(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,5)))){
C_save_and_reclaim((void *)f_420,5,av);}
a=C_alloc(33);
t5=C_i_nullp(t2);
if(C_truep(C_i_not(t5))){
t6=C_i_car(t2);
t7=C_i_cdr(t2);
C_trace(C_text("day02.scm:29: part1-direction"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[5]);
C_word *av2;
if(c >= 6) {
av2=av;
} else {
av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[5]+1);
av2[1]=t1;
av2[2]=t6;
av2[3]=t7;
av2[4]=t3;
av2[5]=t4;
tp(6,av2);}}
else{
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_s_a_i_times(&a,2,t3,t4);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
/* part2-direction in k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_447(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
if(c!=7) C_bad_argc_2(c,7,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(91,c,5)))){
C_save_and_reclaim((void *)f_447,7,av);}
a=C_alloc(91);
t7=C_i_car(t2);
t8=C_i_cdr(t2);
t9=C_i_car(t8);
if(C_truep(C_i_equalp(t7,lf[13]))){
t10=C_s_a_i_plus(&a,2,t4,t9);
t11=C_s_a_i_times(&a,2,t6,t9);
t12=C_s_a_i_plus(&a,2,t5,t11);
C_trace(C_text("day02.scm:37: part2"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]);
C_word *av2=av;
av2[0]=*((C_word*)lf[14]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=t10;
av2[4]=t12;
av2[5]=t6;
tp(6,av2);}}
else{
if(C_truep(C_i_equalp(t7,lf[15]))){
t10=C_s_a_i_plus(&a,2,t6,t9);
C_trace(C_text("day02.scm:39: part2"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]);
C_word *av2=av;
av2[0]=*((C_word*)lf[14]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
av2[4]=t5;
av2[5]=t10;
tp(6,av2);}}
else{
if(C_truep(C_i_equalp(t7,lf[16]))){
t10=C_s_a_i_minus(&a,2,t6,t9);
C_trace(C_text("day02.scm:41: part2"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]);
C_word *av2=av;
av2[0]=*((C_word*)lf[14]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
av2[4]=t5;
av2[5]=t10;
tp(6,av2);}}
else{
C_trace(C_text("day02.scm:42: chicken.format#format"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[10]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[10]+1);
av2[1]=t1;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[17];
tp(4,av2);}}}}}
/* part2 in k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_510(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,6)))){
C_save_and_reclaim((void *)f_510,6,av);}
a=C_alloc(33);
t6=C_i_nullp(t2);
if(C_truep(C_i_not(t6))){
t7=C_i_car(t2);
t8=C_i_cdr(t2);
C_trace(C_text("day02.scm:46: part2-direction"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[12]);
C_word *av2;
if(c >= 7) {
av2=av;
} else {
av2=C_alloc(7);
}
av2[0]=*((C_word*)lf[12]+1);
av2[1]=t1;
av2[2]=t7;
av2[3]=t8;
av2[4]=t3;
av2[5]=t4;
av2[6]=t5;
tp(7,av2);}}
else{
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_s_a_i_times(&a,2,t3,t4);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
/* k536 in k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_538(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_538,2,av);}
a=C_alloc(7);
t2=t1;
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_541,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_558,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("day02.scm:51: part1"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[7]);
C_word *av2;
if(c >= 5) {
av2=av;
} else {
av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[7]+1);
av2[1]=t4;
av2[2]=t2;
av2[3]=C_fix(0);
av2[4]=C_fix(0);
tp(5,av2);}}
/* k539 in k536 in k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_541(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_541,2,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_544,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_554,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("day02.scm:52: part2"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]);
C_word *av2;
if(c >= 6) {
av2=av;
} else {
av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[14]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=C_fix(0);
av2[4]=C_fix(0);
av2[5]=C_fix(0);
tp(6,av2);}}
/* k542 in k539 in k536 in k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_544(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_544,2,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_550,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("chicken.base#implicit-exit-handler"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[18]);
C_word *av2=av;
av2[0]=*((C_word*)lf[18]+1);
av2[1]=t2;
tp(2,av2);}}
/* k548 in k542 in k539 in k536 in k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_550(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_550,2,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)C_fast_retrieve_proc(t2))(2,av2);}}
/* k552 in k539 in k536 in k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_554(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_554,2,av);}
C_trace(C_text("day02.scm:52: chicken.format#format"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[10]+1));
C_word *av2;
if(c >= 5) {
av2=av;
} else {
av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[10]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[19];
av2[4]=t1;
tp(5,av2);}}
/* k556 in k536 in k309 in k306 in k303 in k300 in k297 in k294 */
static void C_ccall f_558(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_558,2,av);}
C_trace(C_text("day02.scm:51: chicken.format#format"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[10]+1));
C_word *av2;
if(c >= 5) {
av2=av;
} else {
av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[10]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[20];
av2[4]=t1;
tp(5,av2);}}
/* toplevel */
static C_TLS int toplevel_initialized=0;
C_main_entry_point
void C_ccall C_toplevel(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);}
else C_toplevel_entry(C_text("toplevel"));
C_check_nursery_minimum(C_calculate_demand(3,c,2));
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void*)C_toplevel,c,av);}
toplevel_initialized=1;
if(C_unlikely(!C_demand_2(108))){
C_save(t1);
C_rereclaim2(108*sizeof(C_word),1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,25);
lf[0]=C_h_intern(&lf[0],10, C_text("parse-line"));
lf[1]=C_h_intern(&lf[1],21, C_text("scheme#string->number"));
lf[2]=C_h_intern(&lf[2],27, C_text("chicken.string#string-split"));
lf[3]=C_h_intern(&lf[3],5, C_text("parse"));
lf[4]=C_h_intern(&lf[4],20, C_text("chicken.io#read-line"));
lf[5]=C_h_intern(&lf[5],15, C_text("part1-direction"));
lf[6]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007forward"));
lf[7]=C_h_intern(&lf[7],5, C_text("part1"));
lf[8]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004down"));
lf[9]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002up"));
lf[10]=C_h_intern(&lf[10],21, C_text("chicken.format#format"));
lf[11]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005que~%"));
lf[12]=C_h_intern(&lf[12],15, C_text("part2-direction"));
lf[13]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007forward"));
lf[14]=C_h_intern(&lf[14],5, C_text("part2"));
lf[15]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004down"));
lf[16]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002up"));
lf[17]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005que~%"));
lf[18]=C_h_intern(&lf[18],34, C_text("chicken.base#implicit-exit-handler"));
lf[19]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014part2 = ~A~%"));
lf[20]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014part1 = ~A~%"));
lf[21]=C_h_intern(&lf[21],27, C_text("chicken.load#load-extension"));
lf[22]=C_h_intern(&lf[22],6, C_text("srfi-1"));
lf[23]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001srfi-1#\376\377\016"));
lf[24]=C_h_intern(&lf[24],7, C_text("require"));
C_register_lf2(lf,25,create_ptable());{}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_296,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_library_toplevel(2,av2);}}
#ifdef C_ENABLE_PTABLES
static C_PTABLE_ENTRY ptable[25] = {
{C_text("f_296:day02_2escm"),(void*)f_296},
{C_text("f_299:day02_2escm"),(void*)f_299},
{C_text("f_302:day02_2escm"),(void*)f_302},
{C_text("f_305:day02_2escm"),(void*)f_305},
{C_text("f_308:day02_2escm"),(void*)f_308},
{C_text("f_311:day02_2escm"),(void*)f_311},
{C_text("f_313:day02_2escm"),(void*)f_313},
{C_text("f_317:day02_2escm"),(void*)f_317},
{C_text("f_328:day02_2escm"),(void*)f_328},
{C_text("f_338:day02_2escm"),(void*)f_338},
{C_text("f_342:day02_2escm"),(void*)f_342},
{C_text("f_355:day02_2escm"),(void*)f_355},
{C_text("f_359:day02_2escm"),(void*)f_359},
{C_text("f_365:day02_2escm"),(void*)f_365},
{C_text("f_420:day02_2escm"),(void*)f_420},
{C_text("f_447:day02_2escm"),(void*)f_447},
{C_text("f_510:day02_2escm"),(void*)f_510},
{C_text("f_538:day02_2escm"),(void*)f_538},
{C_text("f_541:day02_2escm"),(void*)f_541},
{C_text("f_544:day02_2escm"),(void*)f_544},
{C_text("f_550:day02_2escm"),(void*)f_550},
{C_text("f_554:day02_2escm"),(void*)f_554},
{C_text("f_558:day02_2escm"),(void*)f_558},
{C_text("toplevel:day02_2escm"),(void*)C_toplevel},
{NULL,NULL}};
#endif
static C_PTABLE_ENTRY *create_ptable(void){
#ifdef C_ENABLE_PTABLES
return ptable;
#else
return NULL;
#endif
}
/*
o|replaced variables: 53
o|removed binding forms: 14
o|removed binding forms: 44
o|simplifications: ((##core#call . 37))
o| call simplifications:
o| scheme#null? 2
o| scheme#* 3
o| scheme#equal? 6
o| scheme#- 2
o| scheme#+ 5
o| scheme#eof-object?
o| scheme#not 3
o| scheme#cons
o| scheme#cdr 5
o| scheme#car 8
o| scheme#list
o|contracted procedure: k322
o|contracted procedure: k334
o|contracted procedure: k330
o|contracted procedure: k361
o|contracted procedure: k346
o|contracted procedure: k367
o|contracted procedure: k416
o|contracted procedure: k370
o|contracted procedure: k376
o|contracted procedure: k383
o|contracted procedure: k389
o|contracted procedure: k396
o|contracted procedure: k402
o|contracted procedure: k409
o|contracted procedure: k443
o|contracted procedure: k425
o|contracted procedure: k432
o|contracted procedure: k436
o|contracted procedure: k449
o|contracted procedure: k506
o|contracted procedure: k452
o|contracted procedure: k458
o|contracted procedure: k465
o|contracted procedure: k473
o|contracted procedure: k469
o|contracted procedure: k479
o|contracted procedure: k486
o|contracted procedure: k492
o|contracted procedure: k499
o|contracted procedure: k533
o|contracted procedure: k515
o|contracted procedure: k522
o|contracted procedure: k526
o|simplifications: ((let . 9))
o|removed binding forms: 33
o|replaced variables: 20
o|removed binding forms: 9
*/
/* end of file */
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment