#!/usr/local/bin/bc -l ## Find the nearest sum of powers of 2, 3, and 5 to make a number define print235(x) { auto max5,lx,ni,nj,n,found,diff,near,sn,si,sj,sk; max5 = l(x)/l(5)+1 found = 0 near = x; for(i=0;i<=max5;i++){ ni=5^i nj=ni for(j=0;x>nj;j++){ nj=ni+3^j n=nj for(k=0;x>n;k++){ n = nj+2^k;#print "n: ",0*n,", i: ",i,", j: ",j,", k: ",k,"\n"; diff = x-n;if(diff<0)diff=-diff if(diff