解答・コメントを送る方法
コメントを送るには2つの方法があります。
- 匿名でコメントを書くログインせずにコメントを書くことができます。 名前は「匿名」となります。
- アカウントを作成してコメントを書くアカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
投稿ボタンを押す前に以下の文章を確認してください
- 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
- あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
- 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
- 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
- これらのことにあなたはあらかじめ同意したものとみなされます。
Post comment
Post a comment to the following challenge:
全ての組み合わせ
(Nested
Flatten)
As a reply to the following comment: mz: ブランクありで適当なのでコードがダサいか...(#2517) [show]
mz #2517() [ Clean ] Rating0/0=0.00
module crossproduct import StdEnv ($) infixr 1;($) a b :== a b;(>>=) infixl 0;(>>=) a b = \ w -> (\ (x, w) -> b x w ) (a w);liftM m :== \ lst -> \ w -> (m lst, w); join del [x:xs]= (toString x) +++ del +++ (join del xs); join _ [] = ""; :: Elem= ElemChar Char | ElemStr String | ElemInt Int class toElem a where toElem :: a -> Elem instance toElem Int where toElem a = ElemInt a instance toElem Char where toElem a = ElemChar a instance toElem String where toElem a = ElemStr a instance toString Elem where toString (ElemInt a) = toString a toString (ElemStr a) = a toString (ElemChar a) = toString a Start w =snd ((stdio >>= liftM ( fwrites str) >>= fclose) w) where str = join "\n" $ map (join ",") $ crossProduct [] elems2 elems2 = [map toElem [0,1],map toElem ['ab'], map toElem ["Foo","Bar"]] crossProduct :: [Elem] [[Elem]] -> [[Elem]] crossProduct knil [[x:xs]:ys] = crossProduct [x:knil] ys ++ (crossProduct knil [xs:ys]) crossProduct knil [[]:ys] = [] crossProduct knil [] = [knil]Rating0/0=0.00-0+
[ reply ]