day 18, almost done

This commit is contained in:
sejo 2021-12-18 22:34:22 -06:00
parent b5bfb20e9b
commit 275925c251
4 changed files with 170 additions and 0 deletions

1
18/0 Normal file
View File

@ -0,0 +1 @@
5

154
18/18.awk Normal file
View File

@ -0,0 +1,154 @@
function parse( s ){
delete sl; delete sr
while(length(s)>0){
if(match(s,/^[0-9]+/)){
num[++pindex] = substr(s,RSTART,RLENGTH)
s = substr(s,RSTART+RLENGTH)
continue
}
else if(s~/^\]/){ # ]
l = sl[slp--]
r = pindex
print "left",l,"right",r
num[++pindex] = -1
ile[pindex] = l
iri[pindex] = r
if(slp==0) root = pindex
}
else if(s~/^,/){ # ,
sl[++slp] = pindex
}
s = substr(s,2)
}
}
function parent(id){
for(i in ile)
if(ile[i]==id || iri[i]==id) return i
return -1
}
function levels(id){
i = id
count = 0
if(id==root) return 0
do{
i = parent(i)
if(i<0) return -1
count++
}while(i!=root)
return count
}
function treetostring(id){
if(num[id]<0)
return "[" treetostring(ile[id]) "," treetostring(iri[id]) "]"
else
return num[id]
}
function leftitemi(id){
do{
id--
}while(num[id]<0 && id>0)
return id
}
function rightitemi(id){
do{
id++
}while(num[id]<0 && id<=length(num))
return id
}
function explode(id){
lefti = leftitemi(id)
if(lefti>0){
num[lefti] += num[id]
num[id]=-1
}
righti = rightitemi(id)
rightrighti = rightitemi(righti)
if(rightrighti<=length(num)){
num[rightrighti] += num[righti]
num[righti] = -1
}
p = parent(id)
num[p] = 0
}
function toexplode(){
for(id=1;id<=length(num);id++){
if((num[id]>0) && (levels(id)>4)) return id
}
return -1
}
function dosplit(id){
n = num[id]
nl = int(n/2)
nr = int(n/2) + n%2
num[id] = -1
num[++pindex] = nl
ile[id] = pindex
num[++pindex] = nr
iri[id] = pindex
}
function tosplit(){
for(id=1;id<=pindex;id++){
print id, (num[id]-10>0), num[id]
if((num[id]-10>0)) return id
}
return -1
}
BEGIN{ pindex = 0 }
{
parse( $0 )
if(NR>1){
num[++pindex] = -1
ile[pindex] = proot
iri[pindex] = root
root = pindex
}
proot = root
}
END{
OFS=":"
print pindex, root
# for(i in num)
# print i,num[i],levels(i)
# print "l,r, root:", root
# for(i in ile)
# print i, ile[i], iri[i]
# print num[1], "is at",levels(1),"levels"
print treetostring(root)
c = 0;
do{
ind = toexplode()
print "explode?", ind
if(ind>0){
explode(ind)
print "exploded"
}
ind = tosplit()
print "split?", ind
if(ind>0){
dosplit(ind)
print "split"
}
print treetostring(root)
c++
print toexplode(), tosplit(), c
} while( ((toexplode()>0) || (tosplit()>0)) )
print "done"
}

1
18/6 Normal file
View File

@ -0,0 +1 @@
15

14
18/Makefile Normal file
View File

@ -0,0 +1,14 @@
1t:
awk -f 18.awk test
1i:
awk -f 18.awk input
2t:
awk -f 18_2.awk test
2i:
awk -f 18_2.awk input
paste:
xclip -sel c -o > test