プログラミングのお題スレ Part3at TECHプログラミングのお題スレ Part3 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト881:デフォルトの名無しさん 14/06/07 19:33:16.22 y6RJGWR3 >>876 > その前にダメなんだけど。(:->) ダメって？ 882:デフォルトの名無しさん 14/06/07 19:35:01.70 lO6x1Rj4 >>877 Haskell subseq2 [] = [] subseq2 (x:xs) = foldr (\y acc -> [x,y] : acc) (subseq2 xs) xs main = print $ subseq2 "today" -- ["to","td","ta","ty","od","oa","oy","da","dy","ay"] 883:デフォルトの名無しさん 14/06/07 21:19:33.26 uZb6ezHd >>877 Scheme ;;; 手順1 ;;; 文字列strを最初の１文字carと ;;; ２文字目以降の文字列cdrに分ける ;;; 例："today" ;;; str="today" ;;; car = 't ;;; cdr = "oday" ;;; ;;; 手順2 ;;; carと(cdrのn文字目）の組set1を作る ;;; 例 car= 't cdr="oday" ;;; set=("to" "td" "ta" "ty") ;;; ;;; 手順３ ;;; strを２文字目以降に更新する ;;; 例 str="today" -> str="oday" ;;; ;;; もしstrの長さが1以下になったらset1が解答 ;;; そうでなければset1に（手順1から手順3を ;;; 繰り返してできた組を加えたものが答え） ;;; (再帰させる） ttp://codepad.org/kT3XrspK 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch