fly/fgdata
1
0
Fork 0
Code Activity

add complementary function to bits.string(): bits.value() This is rather

Browse source 
pointless for running fgfs, but can be useful for development and debugging,
and it's just a few lines.
This commit is contained in:
mfranz 2008-10-25 15:03:32 +00:00
parent 6384588444
commit 05cc0f3fda
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
Nasal/bits.nas
View file

@ -34,7 +34,8 @@ var string = func(n, len = 0) {
return '0';
var s = "";
while (n) {
s = ((var v = int(n / 2)) + v != n) ~ s;
var v = int(n / 2);
s = (v + v != n) ~ s;
n = v;
}
for (var i = size(s); i < len; i += 1)
@ -43,3 +44,13 @@ var string = func(n, len = 0) {
}
# returns bit string <s> as number: bits.value("110") -> 6
var value = func(s) {
var n = 0;
var len = size(s);
for (var i = 0; i < len; i += 1)
n += n + (s[i] != `0`);
return n;
}