ref: 7501b4951959d10ccff953d7a208b12ef22ded42
parent: c2ae93aefedd1cdb29d09d900b62d3127b14677f
author: qwx <qwx@sciops.net>
date: Fri Apr 1 01:04:49 EDT 2022
pheap: complex printing shit
--- a/pheap.c
+++ b/pheap.c
@@ -2,6 +2,42 @@
#include <libc.h>
#include "asif.h"
+/* Fredman, M.L., Sedgewick, R., Sleator, D.D. et al. The pairing
+ * heap: A new form of self-adjusting heap. Algorithmica 1, 111–129
+ * (1986). */
+
+static void
+printright(Pairheap *p, int level)
+{+ int i, j;
+ Pairheap *q;
+
+ if(p == nil)
+ return;
+ fprint(2, "(\n");
+ for(i=0; i<level; i++)
+ fprint(2, "\t");
+ for(q=p, j=0; q!=nil; q=q->right, j++){+ fprint(2, "[%#p,%.5f]", q, q->n);
+ printright(q->left, level+1);
+ }
+ fprint(2, "\n");
+ for(i=0; i<level-1; i++)
+ fprint(2, "\t");
+ fprint(2, ")");
+}
+static void
+printqueue(Pairheap *p)
+{+ if(debuglevel == 0)
+ return;
+ if(p == nil)
+ return;
+ fprint(2, "pheap ");
+ printright(p, 1);
+ fprint(2, "\n");
+}
+
static Pairheap *
mergequeue(Pairheap *a, Pairheap *b)
{