いろんな言語で宿題スレ at TECH

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
550:デフォルトの名無しさん 09/07/23 18:38:58 なんかこのスレ コードばっかで良スレっぽいな 551:デフォルトの名無しさん 09/07/23 19:47:08 >>537 main = do n <- getLine >>= return . read mapM_ (putStrLn . flip replicate '*') [1..n] mapM_ (putStrLn . flip replicate '*') $ reverse [1..n-1] 552:デフォルトの名無しさん 09/07/23 20:11:31 >>548 msub :: (Num a) => [[a]] -> [[a]] -> [[a]] msub = zipWith (zipWith (-)) main = do mapM_ print $ a `msub` b where a = [[6, 3, 4], [5, 1, 2]] b = [[1, 2, 3], [4, 5, 6]] 553:デフォルトの名無しさん 09/07/23 21:22:33 >>543 % Prolog 条件式(Prologの場合,節の選択)なしで切り上げ、思いつきません! 切り下げ(_浮動小数点数,_切り下げられた整数) :- _切り下げられた整数 is truncate(float_integer_part(_浮動少数点数)). 四捨五入(_浮動小数点数,_四捨五入された整数) :- _四捨五入された整数 is truncate(0.5 + float_integer_part(_浮動少数点数)).

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4630日前に更新/314 KB
担当:undef