diff options
Diffstat (limited to 'ipl/packs/loadfunc/btest.icn')
| -rw-r--r-- | ipl/packs/loadfunc/btest.icn | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/ipl/packs/loadfunc/btest.icn b/ipl/packs/loadfunc/btest.icn new file mode 100644 index 0000000..584f5a4 --- /dev/null +++ b/ipl/packs/loadfunc/btest.icn @@ -0,0 +1,10 @@ +# Simple demonstration of standard "bitcount" function + +link cfunc # link standard C functions transparently + +procedure main() + local i + + every i := 500 to 520 do + write(i, " ", bitcount(i)) +end |