есть методы

mashi 22.11.2005 14:33 / 22.11.2005 14:37

1.

@bin2dec[b][i]
$result(0)
^for[i](0;^b.length[]-1){
	$result($result + (^b.mid(^b.length[]-1-$i;1)<<$i) )
}

2. А это тот самый lib.p/@dec2bin[], о котором уже упоминали

@dec2bin[in][n]
$n(32768)
$result[^while($n>=1){^if($in & $n)(1;0)^n.div(2)}]

---