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

ishideo id:ishideo

sequenceã¨listã«é–¢ã™ã‚‹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}}

Clojure(1.3-1.4)ã®ãƒªã‚¹ãƒˆ/ãƒ™ã‚¯ã‚¿(ã‚·ãƒ¼ã‚±ãƒ³ã‚¹)æ“ä½œé–¢æ•°ä¸€è¦§
ä½•å›žä½¿ã£ã¦ã‚‚ã€æ°—ã¥ã„ãŸã‚‰ã€å¿˜ã‚Œã¦ã—ã¾ã†ãƒªã‚¹ãƒˆ/ãƒ™ã‚¯ã‚¿ç³»é–¢æ•°ã«ã¤ã„ã¦èª¿ã¹ãŸãƒ¡ãƒ¢ã€‚ Clojureã§ã¯ã€ãƒ—ãƒã‚°ãƒ©ãƒ ã®å¤§åŠã¯ã‚·ãƒ¼ã‚±ãƒ³ã‚¹æ“ä½œã«ãªã‚‹å¯èƒ½æ€§ãŒé«˜ã„ç‚ºã‹ã€Clojureã®ã‚·ãƒ¼ã‚±ãƒ³ã‚¹æ“ä½œé–¢æ•°ã¯ã€ã‹ãªã‚Šå……å®Ÿã—ã¦ã„ã¾ã™ãŒã€ãŸãã•ã‚“ã‚ã‚Šã™ãŽã¦ã€ä½¿ã„ã“ãªã›ã¦ã„ã‚‹ã‹ä¸å®‰ã«ãªã‚Šã¾ã™ã€‚ã‚ªãƒ•ã‚£ã‚·ãƒ£ãƒ«ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã«é–¢æ•°ä¸€è¦§ãŒä¹—ã£ã¦ã„ã¾ã™ãŒã€ãƒªã‚¹ãƒˆã¨ãƒ™ã‚¯ã‚¿ã®æ“ä½œã«é™å®šã—ã¦ã¾ã¨ã‚ã¾ã—ãŸã€‚ ã¡ãªã¿ã«ã€ãƒªã‚¹ãƒˆ, ãƒ™ã‚¯ã‚¿ âŠ†Â ã‚·ãƒ¼ã‚±ãƒ³ã‚¹ã§ã™ã€‚ zip(æœ¨æ§‹é€ ), hashmapç‰ã¯æ‰±ã„ã¾ã›ã‚“ã€‚ ä»¥ä¸‹ã®9ç¨®é¡žã«å¤§åˆ¥ã€‚62å€‹ã«ã¤ã„ã¦èª¿ã¹ã¾ã—ãŸ(ã¾ã ã‚ã‚‹ã‹ã‚‚ã—ã‚Œã¾ã›ã‚“)ã€‚ ç”Ÿæˆç³»(7) consç³»(3) getterç³»(21) observerç³»(8) mapç³»(6) reduceç³»(2) filterç³»(3) ãƒªã‚¹ãƒˆå†æ§‹ç¯‰(8) ãƒªã‚¹ãƒˆä¸¦ã³æ›¿ãˆ(4)
ishideo 2017/12/30
clojure

list

vector

sequence

function
ãƒªãƒ³ã‚¯
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