OpenEuphoria

Re: problem with euc on Win10 64bit

• Posted by xecronix Oct 07, 2015
• 1699 views

include std/math.e   
include std/convert.e  
  
function Bin(integer n, sequence s = "")  
  if n > 0 then  
   return Bin(floor(n/2),(mod(n,2) + #30) & s)  
  end if  
  if length(s) = 0 then  
   return to_integer("0")  
  end if  
  return to_integer(s)  
end function  
  
printf(1, "%d\n", Bin(0))  
printf(1, "%d\n", Bin(5))  
printf(1, "%d\n", Bin(50))  
printf(1, "%d\n", Bin(9000))  

[ronald@localhost myeuphoria]$ eui --version 
Euphoria Interpreter v4.1.0 development 
   64-bit Linux, Using System Memory 
   Revision Date: 2015-08-27 10:36:54, Id: 6340:e912a32d9ad5 
[ronald@localhost myeuphoria]$ eui bintest.ex  
0 
101 
110010 
10001100101000 
[ronald@localhost myeuphoria]$ euc bintest.ex  
Build directory: build-796719/ 
Translating code, pass: 1 2 3 4 5 6 7 8 9 10 11  generating 
Compiling with GCC 
Compiling   3% init-.c 
Compiling  11% bintest.c 
Compiling  16% main-.c 
Compiling  22% math.c 
Compiling  27% types.c 
Compiling  32% convert.c 
Compiling  38% search.c 
Compiling  43% filesys.c 
Compiling  49% datetime.c 
Compiling  54% dll.c 
Compiling  59% machine.c 
Compiling  65% memory.c 
Compiling  70% get.c 
Compiling  76% scinot.c 
Compiling  81% fenv.c 
Compiling  86% utils.c 
Compiling  92% sequence.c 
Compiling  97% sort.c 
Linking 100% ../bintest 
[ronald@localhost myeuphoria]$ ./bintest  
0 
0 
0 
0 
[ronald@localhost myeuphoria]$