次世代言語議論スレ[Go Rust Kotlin Scala]第4世代at TECH次世代言語議論スレ[Go Rust Kotlin Scala]第4世代 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト300:デフォルトの名無しさん 17/05/07 14:53:43.84 38Z51qvh.net >>299 キャットドア問題って言いたいだけだろお前 すでに答えは出てるし、そもそも問題の把握すら出来てないじゃないか？ 301:デフォルトの名無しさん 17/05/07 14:58:24.43 EXP2lJkU.net >>240 >>276 ライブラリ使うのとかはありかな？ 主旨から外れるかもしれないが、こんなのどうだろう import System.Environment import Data.Conduit import qualified Data.Conduit.Text as CT import qualified Data.Conduit.Binary as CB import Control.Monad.Trans.Resource import qualified Data.Text as T import Control.Monad.IO.Class (MonadIO) searchSink :: (Monad m, MonadIO m) => T.Text -> Sink T.Text m Bool searchSink w = do n <- await return $ case n of Nothing -> False Just s -> T.isInfixOf w s main :: IO () main = do (file:word:_) <- getArgs x <- runResourceT $ CB.sourceFile file $= CT.decode CT.utf8 $$ searchSink (T.pack word) print x 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch