Re: [連結] Ruby sucks(All those shaky languages..)

[Schelfaniel (Test)]

※ 引述《Schelfaniel (Test)》之銘言：
:   我是覺得 Java 純就語言來說不算難...
:   但是它元件一堆...算是自由軟體業的其中一個大本營...
:   光是 Apache 那邊的東西就夠多了...
:   當然 Sun 自己也提了一堆架構...( 這邊也一堆專有名詞 @@ )
:   我是覺得多學一些語言, 不能算是什麼高手啦...
:   像我比較在碰的, 其實和 godfat 類似, 就是 D, Ruby, Common Lisp...
:   其他比較少碰...之前還碰一下 Haskell 但是實在不太擅長...@_@
:   Haskell 寫個猜數字遊戲 (1-100) 電腦會回報太大還是太小, 都陷入苦境 :QQ
:   ( 當然後來還是寫出來了, 不過不太漂亮就是了 @_@ )
:   會碰這些也是有點碰了一堆商業元件, 想要有點真正回到寫程式的感覺吧 @_@
    先貼初版的給你好了 (二版的等我回去再找找)
    這版的缺點是, 只要輸入不是數字的馬上就 Exception @_@
    ( Lisp 可以用 integerp 來查看它是不是數字, 不過 Haskell 我不知道 :QQ)

    而且它不會計算你輸入過幾次以及目前的可能範圍....
    (如你猜 50, 結果是太大的話, 可能範圍就變成 1-50)
    (不過這個只是在函式參數再多加幾個就可以達成)
    最後是 Haskell 的排版, 以下每行前面的空格是該語言要求要空格...
    我是覺得這樣很容易造成一直往後移...

module Main
where
import IO
import Random

main = do
  hSetBuffering stdin LineBuffering
  num <- randomRIO (1::Int, 100)
  putStrLn "I’m thinking of a number between 1 and 100"
  doGuessing num

doGuessing num = do
  putStrLn "Enter your guess:"
  guess <- getLine
  let guessNum = read guess
  if guessNum < num
    then do putStrLn "Too low!"
            doGuessing num
    else if read guess > num
           then do putStrLn "Too high!"
                   doGuessing num
           else do putStrLn "You Win!"

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 61.220.34.34
推 jaiyalas:感激不盡(大心)~  趕快來研究一下~>///<
推 b6s:看到這個忽然想離題。IIS.SINICA莊副想徵人做functional prog
推 godfat:這個離題遠到太過火了… =.=
→ godfat:所以…幾日後砍掉好了，欲備份請備份
→ Schelfaniel:還有一個方法是把板名改成 Ruby & Functional Languag
→ godfat:這樣怪怪的 @@" btw, 精華區會留一份做記錄
→ Schelfaniel:或是加開屬性為閒聊的文??
→ godfat:本來就有吧？所以應該換標題的，而且也不要太偏某語言
→ Schelfaniel:名稱已修正
→ b6s:版主：抱歉 <(_ _)>
→ godfat:推文不要緊，是本篇完全在講 Haskell 太誇張了 @@