いろんな言語で宿題スレat TECHいろんな言語で宿題スレ - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞの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(_浮動少数点数)). 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch