[B! cartesian] ishideoã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

ishideo id:ishideo

cartesianã«é–¢ã™ã‚‹ishideoã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (4)

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

${{author_name}}$
{{author_name}}{{created}}
{{ #comment }}{{ comment }}{{ /comment }}
- {{ label }}

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

Gaucheã§ã‚‚é›†åˆé–¢ä¿‚ã®é–¢æ•°ã‚’æ›¸ã„ã¦ã¿ãŸ - yasuhisa's blog
ã“ã“ã§Rã‚’ä½¿ã£ã¦æ›¸ã„ãŸã‚„ã¤ã‚’Gaucheã‚’ä½¿ã£ã¦æ›¸ã„ã¦ã¿ã¾ã—ãŸã€‚ã“ã£ã¡ã®ã»ã†ãŒç´ ç›´ã ãªã€‚å†å¸°ä½¿ã£ã¦ãƒªã‚¹ãƒˆæ“ä½œã¨ã‹ã¯ã¾ã‚ã„ã„ã‚“ã ã‘ã©ã€æ–‡å—åˆ—ã§å‡ºåŠ›ã™ã‚‹ãŸã‚ã®éƒ¨åˆ†ãŒæ³¥ã ã‘ã©ã€ã¾ã‚ã„ã„ã‹ã€‚ã¦ã‹ã€çµ„ã¿è¾¼ã¿é–¢æ•°ã«å†ªé›†åˆã‚’ç”Ÿæˆã™ã‚‹é–¢æ•°ãŒã‚ã‚‹ã¨ã‹ã™ã”ã™ãŽã‚‹ã‚“ã ã‘ã©ã€‚ ;;;é›†åˆæ—ã¨ã‹ã‚’æ›¸ãå‡ºã™é–¢æ•° (define (write-set set) (if (list? set) (if (any (lambda (x) (list? x)) set) (string-append "{" (string-join (map (lambda (x) (write-set x)) set)",")"}") (string-append "{" ((lambda (x sep) (string-join (map x->string x) sep)) set ",") "}")) (string-append
ishideo 2017/07/25
gauche

scheme

powerset

cartesian

product

util.combinations
ãƒªãƒ³ã‚¯
Haskell é †åˆ—ãƒ»çµ„ã¿åˆã‚ã›ãƒ»ã¹ãé›†åˆãƒ»ç›´ç© - Qiita
>>> import Data.List >>> permutations [1,2,3] [[1,2,3],[2,1,3],[3,2,1],[2,3,1],[3,1,2],[1,3,2]] comb :: Int -> [a] -> [[a]] comb 0 xs = [[]] comb _ [] = [] comb n (x:xs) = [x:y | y <- comb (n-1) xs] ++ comb n xs >>> import Control.Monad >>> replicateM 5 ["a", "b", "c"] [["a","a","a","a","a"],["a","a","a","a","b"],["a","a","a","a","c"],["a","a","a","b","a"],["a","a","a","b","b"],["a","a","a","b","c
ishideo 2017/07/25
haskell

Data.List

list

permutations

comb

sequence

powerset

cartesian

product

qiita
ãƒªãƒ³ã‚¯
ã€Œãƒªã‚¹ãƒˆã®ãƒªã‚¹ãƒˆã«sequenceã‚’é©ç”¨ã™ã‚‹ã¨ç›´ç©ãŒå¾—ã‚‰ã‚Œã‚‹ã€ã®ã¯ãªãœã‹è€ƒãˆã‚‹ - ã‚¨ãƒ³ã‚¸ãƒ‹ã‚¢ã®ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢çš„æ„›æƒ…
æ•™ãˆã¦ãã‚Œã‚‹ã“ã¨ã‚’æœŸå¾…ã—ã¦æ€è€ƒåœæ¢ã—ã¦ã„ã‚‹ã‚ˆã†ã§ã¯ãƒ€ãƒ¡ãƒ€ãƒ¡ãªã®ã§ã€ç†è§£ã§ãã‚‹ã¨ã“ã‚ã¾ã§è€ƒãˆã¦ã¿ã‚‹ã€‚ åŸºæœ¬ã«ç«‹ã¡è¿”ã‚‹ã¨ã€sequenceã®ã‚½ãƒ¼ã‚¹ã¯æ¬¡ã®ã‚ˆã†ã«ãªã£ã¦ã„ã‚‹ã®ãŒã“ã“ã‹ã‚‰ã‚ã‹ã‚‹ã€‚ sequence ms = foldr k (return []) ms where k m m' = do { x <- m; xs <- m'; return (x:xs) } ãã‚Œã»ã©é›£ã—ã„ã‚‚ã®ã§ã¯ãªã„ã€‚å•é¡Œã¯k m m'ã®éƒ¨åˆ†ã€‚ Maybeãƒ¢ãƒŠãƒ‰ã‚„IOãƒ¢ãƒŠãƒ‰ãªã‚‰ã€ä½•ã¨ãªãäºˆæƒ³ã¯ã¤ãã€‚ã“ã‚Œã‚’ãƒªã‚¹ãƒˆ(Listãƒ¢ãƒŠãƒ‰)ã«é©ç”¨ã™ã‚‹ã¨ã©ã†ãªã‚‹ã‹ãŒå•é¡Œã€‚ Prelude> let k m m' = do { x <- m; xs <- m'; return (x:xs) } Prelude> k "01" ["0", "1"] ["00","01","10","11"]ã“ã®çµæžœã‚’è¦‹ã‚Œã°ã€sequenceã§ç›´ç©ãŒ
ishideo 2017/07/25
haskell

sequence

list

cartesian

product
ãƒªãƒ³ã‚¯
ãƒªã‚¹ãƒˆã®ãƒªã‚¹ãƒˆã«sequenceã‚’é©ç”¨ã™ã‚‹ã¨ç›´ç©ãŒå¾—ã‚‰ã‚Œã‚‹ - ã‚¨ãƒ³ã‚¸ãƒ‹ã‚¢ã®ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢çš„æ„›æƒ…
ã©ã†æ›¸ãï¼Ÿorgã®ãŠé¡Œã‚ˆã‚Šã€‚ ãƒªã‚¹ãƒˆã®ãƒªã‚¹ãƒˆã«sequenceã‚’é©ç”¨ã™ã‚‹ã¨ç›´ç©ãŒå¾—ã‚‰ã‚Œã‚‹ã€‚ $ ghci Prelude> sequence [[1,2,3], [4,5,6]] [[1,4],[1,5],[1,6],[2,4],[2,5],[2,6],[3,4],[3,5],[3,6]] Prelude> sequence ["abc", "def"] ["ad","ae","af","bd","be","bf","cd","ce","cf"] ã ã‹ã‚‰ã“ã†ã™ã‚‹ã¨ã€2é€²æ•°(ã®æ–‡å—åˆ—)ã®ãƒªã‚¹ãƒˆãŒä½œã‚Œã‚‹ã€‚ Prelude> sequence $ replicate 4 "01" ["0000","0001","0010","0011","0100","0101","0110","0111","1000","1001","1010","1011","1100","1101","1110","11
ishideo 2017/07/25
haskell

sequence

list

product

cartesian
ãƒªãƒ³ã‚¯
1