瑞星面试题：输入十进制数字，用字符串八进制输出

flw

再来一个不用尾递归的版本：

1. flw@debian:~/study$ cat dec2oct.hs
   
2. #!/usr/bin/runhaskell
   
3. 
   
4. import System.Environment
   
5. 
   
6. main :: IO ()
   
7. main = do
   
8.     [decStr] <- getArgs
   
9.     print $ decToOct $ read decStr
   
10. 
    
11. decToOct    :: Integer -> String
    
12. decToOct 0   = "0"
    
13. decToOct dec = decToOct (dec `div` 8) ++ show (dec `mod` 8)
    
14. flw@debian:~/study$ seq 1 10 100 | xargs -i ./dec2oct.hs '{}'
    
15. "01"
    
16. "013"
    
17. "025"
    
18. "037"
    
19. "051"
    
20. "063"
    
21. "075"
    
22. "0107"
    
23. "0121"
    
24. "0133"
    
25. flw@debian:~/study$

复制代码

zjz444

7楼方法很好，不过真的用了很多库函数

Solidus

用static是为了demo简单，呵呵


const char* num_to_str(unsigned int num, size_t radix)
{

                static char buf[1024];
                char *pstr = buf + sizeof(buf) - 1;
                *pstr = 0;
                do{ *--pstr = "0123456789ABCDEF"[num%radix]; }while((num /= radix));

                return pstr;
}



const char* num_to_str(signed int num, size_t radix)
{
                static char buf[1024];
                bool neg = num < 0 ? num = -num : num;
               
                char *pstr = buf + sizeof(buf) - 1;
                *pstr = 0;
                do{ *--pstr = "0123456789ABCDEF"[num%radix]; }while((num /= radix));
                if(neg)*--pstr = '-';
                return pstr;
}

[ 本帖最后由 Solidus 于 2008-8-12 10:00 编辑 ]

Solidus

我很怀疑这玩意是不是瑞星的考题，LZ是不是拿来的作业题啊

blueboy83

同意 jigloo  的方法