関数型プログラミング言語Haskell Part3 at TECH

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
400:デフォルトの名無しさん 05/02/11 11:14:24 >>399 全然違うじゃないか。 それにmainはIO　aの型であるべきもので、使わないほうがいい。 401:デフォルトの名無しさん 05/02/11 11:21:27 誰も書かないから突っ込むけど、 11th,12th,13th そんな私はsort使うためにimport Listするとhugsにレイアウトが違うと怒られる駄目駄目プログラマ。 402:401 05/02/11 11:27:11 importがImportになってた スレ違い御免orz 403:デフォルトの名無しさん 05/02/11 11:28:33 どうもありがとうございます。おかげ様で前のよりはマシになったかと思います。 setRankS :: [Int] -> [(String, Int)] setRankS x = concat [setFirst n | n <- (groupBy (\x y -> snd x == snd y) $ zip [1..] x)] setFirst :: [(Int, Int)] -> [(String, Int)] setFirst ((x, y):xs) = [(addSuffix x, b) | (a, b) <- ((x, y):xs)] 404:デフォルトの名無しさん 05/02/11 11:41:07 >>401 またまた貴重なご指摘ありがとうございます。 addSuffix :: Int -> String addSuffix x | x == 11 = s ++ "th" | x == 12 = s ++ "th" | x == 13 = s ++ "th" | mod x 10 == 1 = s ++ "st" | mod x 10 == 2 = s ++ "nd" | mod x 10 == 3 = s ++ "rd" | otherwise = s ++ "th" where s = show x

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5386日前に更新/259 KB
担当:undef