on master help sign in
471 files changed+168239−2346
since splitsnapshots
unifiedsplit
.circleci/config.yml+218 .ghci+1 .github/workflows/haskell.yml+258 .github/workflows/packdiff.yml+39 .github/workflows/regression-check.yml+165 .gitignore+21 .hlint.ignore+40 .hlint.yaml+93 .packcheck.ignore+36 .travis.yml−92 CHANGELOG.md+1 CONTRIBUTING.md+1 LICENSE+69−1 README.md+1−17 Setup.hs+6 appveyor.yml+75−19 asyncly.cabal−149 benchmark/Main.hs−238 benchmark/NanoBenchmarks.hs+127 benchmark/README.md+1 benchmark/Streamly/Benchmark/Data/Array.hs+140 benchmark/Streamly/Benchmark/Data/Array/Common.hs+185 benchmark/Streamly/Benchmark/Data/Array/CommonImports.hs+16 benchmark/Streamly/Benchmark/Data/Array/Generic.hs+119 benchmark/Streamly/Benchmark/Data/Array/SmallArray.hs+95 benchmark/Streamly/Benchmark/Data/Array/Stream.hs+309 benchmark/Streamly/Benchmark/Data/Fold.hs+541 benchmark/Streamly/Benchmark/Data/Fold/Window.hs+191 benchmark/Streamly/Benchmark/Data/MutArray.hs+300 benchmark/Streamly/Benchmark/Data/Parser.hs+887 benchmark/Streamly/Benchmark/Data/ParserK.hs+437 benchmark/Streamly/Benchmark/Data/Ring/Unboxed.hs+69 benchmark/Streamly/Benchmark/Data/Serialize.hs+591 benchmark/Streamly/Benchmark/Data/Serialize/RecCompatible.hs+24 benchmark/Streamly/Benchmark/Data/Serialize/RecNonCompatible.hs+21 benchmark/Streamly/Benchmark/Data/Serialize/TH.hs+76 benchmark/Streamly/Benchmark/Data/Stream.hs+114 benchmark/Streamly/Benchmark/Data/Stream/Common.hs+518 benchmark/Streamly/Benchmark/Data/Stream/Concurrent.hs+20 benchmark/Streamly/Benchmark/Data/Stream/ConcurrentCommon.hs+208 benchmark/Streamly/Benchmark/Data/Stream/ConcurrentEager.hs+25 benchmark/Streamly/Benchmark/Data/Stream/ConcurrentInterleaved.hs+25 benchmark/Streamly/Benchmark/Data/Stream/ConcurrentOrdered.hs+25 benchmark/Streamly/Benchmark/Data/Stream/Eliminate.hs+748 benchmark/Streamly/Benchmark/Data/Stream/Exceptions.hs+371 benchmark/Streamly/Benchmark/Data/Stream/Expand.hs+563 benchmark/Streamly/Benchmark/Data/Stream/Generate.hs+278 benchmark/Streamly/Benchmark/Data/Stream/Lift.hs+146 benchmark/Streamly/Benchmark/Data/Stream/Reduce.hs+588 benchmark/Streamly/Benchmark/Data/Stream/Split.hs+244 benchmark/Streamly/Benchmark/Data/Stream/StreamD.hs+658 benchmark/Streamly/Benchmark/Data/Stream/StreamK.hs+934 benchmark/Streamly/Benchmark/Data/Stream/StreamKAlt.hs+455 benchmark/Streamly/Benchmark/Data/Stream/ToStreamK.hs+938 benchmark/Streamly/Benchmark/Data/Stream/Transform.hs+687 benchmark/Streamly/Benchmark/Data/Unfold.hs+856 benchmark/Streamly/Benchmark/FileSystem/Handle.hs+52 benchmark/Streamly/Benchmark/FileSystem/Handle/Read.hs+305 benchmark/Streamly/Benchmark/FileSystem/Handle/ReadWrite.hs+214 benchmark/Streamly/Benchmark/Prelude/Adaptive.hs+143 benchmark/Streamly/Benchmark/Prelude/Ahead.hs+135 benchmark/Streamly/Benchmark/Prelude/Async.hs+204 benchmark/Streamly/Benchmark/Prelude/Concurrent.hs+111 benchmark/Streamly/Benchmark/Prelude/Merge.hs+298 benchmark/Streamly/Benchmark/Prelude/Parallel.hs+240 benchmark/Streamly/Benchmark/Prelude/Rate.hs+110 benchmark/Streamly/Benchmark/Prelude/WAsync.hs+186 benchmark/Streamly/Benchmark/Prelude/WSerial.hs+369 benchmark/Streamly/Benchmark/Prelude/ZipAsync.hs+97 benchmark/Streamly/Benchmark/Prelude/ZipSerial.hs+187 benchmark/Streamly/Benchmark/Unicode/Char.hs+90 benchmark/Streamly/Benchmark/Unicode/Parser.hs+107 benchmark/Streamly/Benchmark/Unicode/Stream.hs+349 benchmark/Streamly/Benchmark/Unicode/Utf8.hs+55 benchmark/Streamly/Benchmark/Unicode/data/AllChars.txt+216 benchmark/Streamly/Benchmark/Unicode/data/Deutsch.txt+153 benchmark/Streamly/Benchmark/Unicode/data/Devanagari.txt+699 benchmark/Streamly/Benchmark/Unicode/data/English.txt+58 benchmark/Streamly/Benchmark/Unicode/data/Japanese.txt+855 benchmark/Streamly/Benchmark/Unicode/data/Korean.txt+493 benchmark/Streamly/Benchmark/Unicode/data/Vietnamese.txt+402 benchmark/bench-runner/Main.hs+183 benchmark/bench-runner/bench-runner.cabal+42 benchmark/bench-runner/cabal.project+4 benchmark/bench-runner/default.nix+164 benchmark/lib/Streamly/Benchmark/Common.hs+257 benchmark/lib/Streamly/Benchmark/Common/Handle.hs+228 benchmark/lib/Streamly/Benchmark/Prelude.hs+597 benchmark/streamly-benchmarks.cabal+778 bin/ghc.sh+45 bin/mk-hscope.sh+46 bin/mk-tags.sh+25 bin/repl+3 bin/run-ci.sh+334 bin/run-repl-quick.sh+113 cabal.project+5 cabal.project.O0+24 cabal.project.Werror+17 cabal.project.Werror-nocode+21 cabal.project.coverage+14 cabal.project.doctest+24 cabal.project.ghc-head+35 cabal.project.hpc-coveralls+9 cabal.project.packdiff+9 cabal.project.report+30 cabal.project.streamly+10 configure+4317 configure.ac+23 core/Changelog.md+1 core/LICENSE+322 core/Setup.hs+6 core/configure+4349 core/configure.ac+17 core/docs/ApiChangelogs/0.1.0-0.2.0.txt+1471 core/docs/ApiChangelogs/0.1.0.txt+405 core/docs/ApiChangelogs/0.2.0-0.2.2.txt+306 core/docs/Changelog.md+97 core/docs/Readme.md+1 core/jsbits/clock.js+31 core/src/DocTestDataArray.hs+22 core/src/DocTestDataFold.hs+27 core/src/DocTestDataMutArray.hs+10 core/src/DocTestDataMutArrayGeneric.hs+10 core/src/DocTestDataParser.hs+20 core/src/DocTestDataParserK.hs+15 core/src/DocTestDataStream.hs+39 core/src/DocTestDataStreamK.hs+21 core/src/DocTestDataUnfold.hs+12 core/src/DocTestFileSystemHandle.hs+15 core/src/DocTestUnicodeParser.hs+9 core/src/DocTestUnicodeStream.hs+12 core/src/DocTestUnicodeString.hs+5 core/src/Streamly/Console/Stdio.hs+30 core/src/Streamly/Data/Array.hs+167 core/src/Streamly/Data/Array/Generic.hs+51 core/src/Streamly/Data/Fold.hs+415 core/src/Streamly/Data/MutArray.hs+110 core/src/Streamly/Data/MutArray/Generic.hs+70 core/src/Streamly/Data/MutByteArray.hs+106 core/src/Streamly/Data/Parser.hs+247 core/src/Streamly/Data/ParserK.hs+139 core/src/Streamly/Data/Stream.hs+746 core/src/Streamly/Data/StreamK.hs+194 core/src/Streamly/Data/Unfold.hs+233 core/src/Streamly/FileSystem/Dir.hs+23 core/src/Streamly/FileSystem/File.hs+60 core/src/Streamly/FileSystem/Handle.hs+117 core/src/Streamly/Internal/BaseCompat.hs+37 core/src/Streamly/Internal/Console/Stdio.hs+228 core/src/Streamly/Internal/Control/Exception.hs+38 core/src/Streamly/Internal/Control/ForkIO.hs+50 core/src/Streamly/Internal/Control/Monad.hs+26 core/src/Streamly/Internal/Data/Array.hs+1018 core/src/Streamly/Internal/Data/Array/ArrayMacros.h+43 core/src/Streamly/Internal/Data/Array/Generic.hs+342 core/src/Streamly/Internal/Data/Array/Stream.hs+725 core/src/Streamly/Internal/Data/Array/Type.hs+1148 core/src/Streamly/Internal/Data/Binary/Parser.hs+399 core/src/Streamly/Internal/Data/Binary/Stream.hs+383 core/src/Streamly/Internal/Data/Builder.hs+82 core/src/Streamly/Internal/Data/Either/Strict.hs+57 core/src/Streamly/Internal/Data/Fold.hs+33 core/src/Streamly/Internal/Data/Fold/Chunked.hs+379 core/src/Streamly/Internal/Data/Fold/Combinators.hs+2452 core/src/Streamly/Internal/Data/Fold/Container.hs+783 core/src/Streamly/Internal/Data/Fold/Step.hs+83 core/src/Streamly/Internal/Data/Fold/Tee.hs+184 core/src/Streamly/Internal/Data/Fold/Type.hs+2099 core/src/Streamly/Internal/Data/Fold/Window.hs+357 core/src/Streamly/Internal/Data/IOFinalizer.hs+101 core/src/Streamly/Internal/Data/IORef/Unboxed.hs+101 core/src/Streamly/Internal/Data/IsMap.hs+60 core/src/Streamly/Internal/Data/List.hs+234 core/src/Streamly/Internal/Data/Maybe/Strict.hs+57 core/src/Streamly/Internal/Data/MutArray.hs+207 core/src/Streamly/Internal/Data/MutArray/Generic.hs+947 core/src/Streamly/Internal/Data/MutArray/Stream.hs+145 core/src/Streamly/Internal/Data/MutArray/Type.hs+3318 core/src/Streamly/Internal/Data/MutByteArray.hs+251 core/src/Streamly/Internal/Data/MutByteArray/Type.hs+321 core/src/Streamly/Internal/Data/Parser.hs+3621 core/src/Streamly/Internal/Data/Parser/Tee.hs+617 core/src/Streamly/Internal/Data/Parser/Type.hs+1452 core/src/Streamly/Internal/Data/ParserK.hs+16 core/src/Streamly/Internal/Data/ParserK/Type.hs+752 core/src/Streamly/Internal/Data/Pipe.hs+273 core/src/Streamly/Internal/Data/Pipe/Type.hs+443 core/src/Streamly/Internal/Data/Producer.hs+81 core/src/Streamly/Internal/Data/Producer/Source.hs+303 core/src/Streamly/Internal/Data/Producer/Type.hs+186 core/src/Streamly/Internal/Data/Refold/Type.hs+251 core/src/Streamly/Internal/Data/Ring.hs+619 core/src/Streamly/Internal/Data/Ring/Generic.hs+185 core/src/Streamly/Internal/Data/SVar/Type.hs+540 core/src/Streamly/Internal/Data/Serialize/TH.hs+530 core/src/Streamly/Internal/Data/Serialize/TH/Bottom.hs+475 core/src/Streamly/Internal/Data/Serialize/TH/Common.hs+70 core/src/Streamly/Internal/Data/Serialize/TH/RecHeader.hs+411 core/src/Streamly/Internal/Data/Serialize/Type.hs+317 core/src/Streamly/Internal/Data/Stream.hs+42 core/src/Streamly/Internal/Data/Stream/Container.hs+310 core/src/Streamly/Internal/Data/Stream/Eliminate.hs+849 core/src/Streamly/Internal/Data/Stream/Exception.hs+501 core/src/Streamly/Internal/Data/Stream/Generate.hs+1191 core/src/Streamly/Internal/Data/Stream/Lift.hs+129 core/src/Streamly/Internal/Data/Stream/Nesting.hs+3024 core/src/Streamly/Internal/Data/Stream/Step.hs+39 core/src/Streamly/Internal/Data/Stream/StreamD.hs+16 core/src/Streamly/Internal/Data/Stream/Top.hs+480 core/src/Streamly/Internal/Data/Stream/Transform.hs+1971 core/src/Streamly/Internal/Data/Stream/Transformer.hs+183 core/src/Streamly/Internal/Data/Stream/Type.hs+2220 core/src/Streamly/Internal/Data/StreamK.hs+1730 core/src/Streamly/Internal/Data/StreamK/Alt.hs+244 core/src/Streamly/Internal/Data/StreamK/Transformer.hs+79 core/src/Streamly/Internal/Data/StreamK/Type.hs+2153 core/src/Streamly/Internal/Data/Time/Clock.hs+180 core/src/Streamly/Internal/Data/Time/Clock/Darwin.c+36 core/src/Streamly/Internal/Data/Time/Clock/Type.hsc+252 core/src/Streamly/Internal/Data/Time/Clock/Windows.c+115 core/src/Streamly/Internal/Data/Time/Clock/config-clock.h+11 core/src/Streamly/Internal/Data/Time/TimeSpec.hsc+152 core/src/Streamly/Internal/Data/Time/Units.hs+411 core/src/Streamly/Internal/Data/Tuple/Strict.hs+46 core/src/Streamly/Internal/Data/Unbox.hs+908 core/src/Streamly/Internal/Data/Unbox/TH.hs+498 core/src/Streamly/Internal/Data/Unfold.hs+1077 core/src/Streamly/Internal/Data/Unfold/Enumeration.hs+543 core/src/Streamly/Internal/Data/Unfold/Type.hs+999 core/src/Streamly/Internal/FileSystem/Dir.hs+510 core/src/Streamly/Internal/FileSystem/File.hs+678 core/src/Streamly/Internal/FileSystem/Handle.hs+704 core/src/Streamly/Internal/FileSystem/Path.hs+515 core/src/Streamly/Internal/System/IO.hs+58 core/src/Streamly/Internal/Unicode/Array.hs+104 core/src/Streamly/Internal/Unicode/Parser.hs+627 core/src/Streamly/Internal/Unicode/Stream.hs+1123 core/src/Streamly/Internal/Unicode/String.hs+158 core/src/Streamly/Unicode/Parser.hs+69 core/src/Streamly/Unicode/Stream.hs+110 core/src/Streamly/Unicode/String.hs+30 core/src/assert.hs+6 core/src/config.h.in+57 core/src/inline.hs+27 core/streamly-core.cabal+534 default.nix+150 docs/Developer/Benchmarks.md+342 docs/Developer/Contributing.md+271 docs/Developer/Github.link+1 docs/Developer/MAINTAINING.md+422 docs/Developer/Tests.md+139 docs/Developer/ci-tests.md+64 docs/Developer/container-api.md+124 docs/Developer/cps-vs-direct.rst+328 docs/Developer/dfa-bytes.png docs/Developer/dfa-classes.png docs/Developer/dfa-rearr.png docs/Developer/linked-lists.md+32 docs/Developer/module-organization.md+250 docs/Developer/optimization-guidelines.md+370 docs/Developer/overview.md+24 docs/Developer/paths.rst+253 docs/Developer/related-packages.md+71 docs/Developer/resources.md+45 docs/Developer/roadmap.md+36 docs/Developer/unicode.md+224 docs/Developer/utf8-decoder.md+603 docs/Documentation.md+5 docs/Setup.hs+6 docs/User/Explanatory/Overview.md+468 docs/User/Explanatory/design.md+42 docs/User/Explanatory/monad-transformers.md+65 docs/User/Explanatory/performance.md+7 docs/User/Explanatory/streaming-pradigms.rst+117 docs/User/Explanatory/unified-abstractions.md+275 docs/User/HowTo/Compiling.md+145 docs/User/HowTo/Examples.link+1 docs/User/HowTo/faq.md+94 docs/User/HowTo/interoperation.md+11 docs/User/HowTo/optimizing.md+98 docs/User/HowTo/streamly-vs-async.md+237 docs/User/HowTo/streamly-vs-list-time.svg+3 docs/User/HowTo/streamly-vs-lists.md+267 docs/User/Project/ApiChangelogs/0.8.3-0.9.0.txt+175 docs/User/Project/ApiChangelogs/0.8.3.txt+261 docs/User/Project/ApiChangelogs/0.9.0-0.10.0.txt+424 docs/User/Project/CONTRIBUTORS.md+164 docs/User/Project/Changelog.md+662 docs/User/Project/Credits.md+43 docs/User/Project/Github.link+1 docs/User/Project/README.md+141 docs/User/Project/Roadmap.link+1 docs/User/Project/Upgrading-0.8-to-0.9.md+384 docs/User/Tutorials/ConcurrentStreams.hs+771 docs/User/Tutorials/Examples.link+1 docs/User/Tutorials/ReactiveProgramming.hs+126 docs/User/Tutorials/Tutorial.hs+521 docs/User/Tutorials/before-you-begin.md+77 docs/User/Tutorials/getting-started.md+225 docs/User/Tutorials/haskell-lazy-evaluation.md+215 docs/User/Tutorials/quick-overview.md+517 docs/User/Tutorials/why-haskell-streamly.md+91 docs/User/resources.md+18 docs/streamly-docs.cabal+49 examples/README.md+2−5 examples/circle-mouse.hs−86 examples/echo-loop.hs−18 examples/fastest.hs−20 examples/game.hs−42 examples/listdir.hs−19 examples/loops.hs−88 examples/map-reduce.hs−6 examples/mergesort.hs−38 examples/nested-loops.hs−22 examples/parallel-loops.hs−20 hie.yaml+177 src/Asyncly.hs−172 src/Asyncly/AsyncT.hs−760 src/Asyncly/Time.hs−64 src/Streamly/Data/Array/Foreign.hs+119 src/Streamly/Data/Fold/Prelude.hs+65 src/Streamly/Data/Fold/Tee.hs+16 src/Streamly/Data/SmallArray.hs+34 src/Streamly/Data/Stream/MkType.hs+115 src/Streamly/Data/Stream/Prelude.hs+232 src/Streamly/Internal/Control/Concurrent.hs+77 src/Streamly/Internal/Control/ForkLifted.hs+66 src/Streamly/Internal/Data/Atomics.hs+80 src/Streamly/Internal/Data/Channel.hs+19 src/Streamly/Internal/Data/Channel/Dispatcher.hs+294 src/Streamly/Internal/Data/Channel/Types.hs+817 src/Streamly/Internal/Data/Channel/Worker.hs+375 src/Streamly/Internal/Data/Cont.hs+36 src/Streamly/Internal/Data/Fold/Async.hs+133 src/Streamly/Internal/Data/Fold/Concurrent.hs+57 src/Streamly/Internal/Data/Fold/Concurrent/Channel.hs+112 src/Streamly/Internal/Data/Fold/Concurrent/Channel/Type.hs+331 src/Streamly/Internal/Data/Fold/Prelude.hs+19 src/Streamly/Internal/Data/Fold/SVar.hs+79 src/Streamly/Internal/Data/IOFinalizer/Lifted.hs+74 src/Streamly/Internal/Data/IsMap/HashMap.hs+42 src/Streamly/Internal/Data/SVar.hs+537 src/Streamly/Internal/Data/SVar/Dispatch.hs+739 src/Streamly/Internal/Data/SVar/Pull.hs+164 src/Streamly/Internal/Data/SVar/Worker.hs+544 src/Streamly/Internal/Data/SmallArray.hs+195 src/Streamly/Internal/Data/SmallArray/Type.hs+760 src/Streamly/Internal/Data/Stream/Ahead.hs+776 src/Streamly/Internal/Data/Stream/Async.hs+1064 src/Streamly/Internal/Data/Stream/Common.hs+105 src/Streamly/Internal/Data/Stream/Concurrent.hs+903 src/Streamly/Internal/Data/Stream/Concurrent/Channel.hs+109 src/Streamly/Internal/Data/Stream/Concurrent/Channel/Append.hs+1046 src/Streamly/Internal/Data/Stream/Concurrent/Channel/Consumer.hs+127 src/Streamly/Internal/Data/Stream/Concurrent/Channel/Dispatcher.hs+417 src/Streamly/Internal/Data/Stream/Concurrent/Channel/Interleave.hs+252 src/Streamly/Internal/Data/Stream/Concurrent/Channel/Operations.hs+294 src/Streamly/Internal/Data/Stream/Concurrent/Channel/Type.hs+172 src/Streamly/Internal/Data/Stream/Instances.hs+168 src/Streamly/Internal/Data/Stream/IsStream.hs+56 src/Streamly/Internal/Data/Stream/IsStream/Combinators.hs+236 src/Streamly/Internal/Data/Stream/IsStream/Common.hs+747 src/Streamly/Internal/Data/Stream/IsStream/Eliminate.hs+1035 src/Streamly/Internal/Data/Stream/IsStream/Enumeration.hs+594 src/Streamly/Internal/Data/Stream/IsStream/Exception.hs+284 src/Streamly/Internal/Data/Stream/IsStream/Expand.hs+1158 src/Streamly/Internal/Data/Stream/IsStream/Generate.hs+640 src/Streamly/Internal/Data/Stream/IsStream/Lift.hs+150 src/Streamly/Internal/Data/Stream/IsStream/Reduce.hs+1627 src/Streamly/Internal/Data/Stream/IsStream/Top.hs+749 src/Streamly/Internal/Data/Stream/IsStream/Transform.hs+1595 src/Streamly/Internal/Data/Stream/IsStream/Type.hs+783 src/Streamly/Internal/Data/Stream/Lifted.hs+335 src/Streamly/Internal/Data/Stream/MkType.hs+641 src/Streamly/Internal/Data/Stream/Parallel.hs+546 src/Streamly/Internal/Data/Stream/Prelude.hs+19 src/Streamly/Internal/Data/Stream/SVar.hs+18 src/Streamly/Internal/Data/Stream/SVar/Eliminate.hs+405 src/Streamly/Internal/Data/Stream/SVar/Generate.hs+294 src/Streamly/Internal/Data/Stream/Serial.hs+456 src/Streamly/Internal/Data/Stream/Time.hs+950 src/Streamly/Internal/Data/Stream/Zip.hs+174 src/Streamly/Internal/Data/Stream/ZipAsync.hs+134 src/Streamly/Internal/Data/Unfold/Exception.hs+214 src/Streamly/Internal/Data/Unfold/Prelude.hs+17 src/Streamly/Internal/Data/Unfold/SVar.hs+161 src/Streamly/Internal/FileSystem/Event.hs+245 src/Streamly/Internal/FileSystem/Event/Darwin.h+63 src/Streamly/Internal/FileSystem/Event/Darwin.hs+1086 src/Streamly/Internal/FileSystem/Event/Darwin.m+294 src/Streamly/Internal/FileSystem/Event/Linux.hs+1294 src/Streamly/Internal/FileSystem/Event/Windows.hs+640 src/Streamly/Internal/FileSystem/FD.hs+585 src/Streamly/Internal/FileSystem/FDIO.hs+216 src/Streamly/Internal/Network/Inet/TCP.hs+494 src/Streamly/Internal/Network/Socket.hs+545 src/Streamly/Internal/System/IOVec.hs+132 src/Streamly/Internal/System/IOVec/Type.hsc+83 src/Streamly/Internal/Unicode/Char.hs+328 src/Streamly/Internal/Unicode/Utf8.hs+73 src/Streamly/Network/Inet/TCP.hs+92 src/Streamly/Network/Socket.hs+155 src/Streamly/Prelude.hs+1247 src/assert.hs+6 src/config.h.in+43 src/inline.hs+27 stack.yaml+14−6 streamly.cabal+559 targets/Targets.hs+213 targets/cabal.project+1 targets/default.nix+163 targets/streamly-targets.cabal+12 test/Main.hs−464 test/README.md+1 test/Streamly/Test/Data/Array.hs+276 test/Streamly/Test/Data/Array/Common.hs+101 test/Streamly/Test/Data/Array/CommonImports.hs+13 test/Streamly/Test/Data/Array/Generic.hs+65 test/Streamly/Test/Data/Array/Stream.hs+113 test/Streamly/Test/Data/Fold.hs+815 test/Streamly/Test/Data/Fold/Window.hs+67 test/Streamly/Test/Data/List.hs+220 test/Streamly/Test/Data/MutArray.hs+152 test/Streamly/Test/Data/Parser.hs+1379 test/Streamly/Test/Data/ParserK.hs+841 test/Streamly/Test/Data/Ring/Unboxed.hs+53 test/Streamly/Test/Data/Serialize.hs+306 test/Streamly/Test/Data/Serialize/CompatV0.hs+46 test/Streamly/Test/Data/Serialize/CompatV1.hs+48 test/Streamly/Test/Data/Serialize/TH.hs+82 test/Streamly/Test/Data/SmallArray.hs+29 test/Streamly/Test/Data/Stream.hs+33 test/Streamly/Test/Data/Stream/Concurrent.hs+363 test/Streamly/Test/Data/Unbox.hs+347 test/Streamly/Test/Data/Unbox/TH.hs+146 test/Streamly/Test/Data/Unfold.hs+701 test/Streamly/Test/FileSystem/Event.hs+28 test/Streamly/Test/FileSystem/Event/Common.hs+422 test/Streamly/Test/FileSystem/Event/Darwin.hs+86 test/Streamly/Test/FileSystem/Event/Linux.hs+163 test/Streamly/Test/FileSystem/Event/Windows.hs+51 test/Streamly/Test/FileSystem/Handle.hs+228 test/Streamly/Test/Network/Inet/TCP.hs+144 test/Streamly/Test/Network/Socket.hs+160 test/Streamly/Test/Prelude.hs+188 test/Streamly/Test/Prelude/Ahead.hs+137 test/Streamly/Test/Prelude/Async.hs+147 test/Streamly/Test/Prelude/Concurrent.hs+507 test/Streamly/Test/Prelude/Fold.hs+201 test/Streamly/Test/Prelude/Parallel.hs+121 test/Streamly/Test/Prelude/Rate.hs+248 test/Streamly/Test/Prelude/Serial.hs+741 test/Streamly/Test/Prelude/Top.hs+224 test/Streamly/Test/Prelude/WAsync.hs+222 test/Streamly/Test/Prelude/WSerial.hs+184 test/Streamly/Test/Prelude/ZipAsync.hs+70 test/Streamly/Test/Prelude/ZipSerial.hs+73 test/Streamly/Test/Serialize/Serializable.hs+237 test/Streamly/Test/Unicode/Char.hs+133 test/Streamly/Test/Unicode/Parser.hs+231 test/Streamly/Test/Unicode/Stream.hs+190 test/Streamly/Test/Unicode/extra/NormalizationTest.txt+9 test/Streamly/Test/Unicode/ucd/NormalizationTest.txt+18908 test/lib/Streamly/Test/Common.hs+66 test/lib/Streamly/Test/Prelude/Common.hs+1757 test/streamly-tests.cabal+593 test/test-runner/Main.hs+33 test/test-runner/cabal.project+4 test/test-runner/default.nix+164 test/test-runner/test-runner.cabal+41 test/version-bounds.hs+4
.circleci/config.ymlnew file+218
@@ -0,0 +1,218 @@
1+version: 2.1
2+
3+#-----------------------------------------------------------------------------
4+# packcheck-0.7.0
5+# Packcheck global environment variables
6+#-----------------------------------------------------------------------------
7+
8+env: &env
9+ environment:
10+ # ------------------------------------------------------------------------
11+ # Common options
12+ # ------------------------------------------------------------------------
13+ # GHC_OPTIONS: "-Werror"
14+ # For updating see: https://downloads.haskell.org/~ghcup/
15+ GHCUP_VERSION: 0.1.20.0
16+ CABAL_REINIT_CONFIG: "y"
17+ LC_ALL: "C.UTF-8"
18+
19+ # ------------------------------------------------------------------------
20+ # What to build
21+ # ------------------------------------------------------------------------
22+ # DISABLE_TEST: "y"
23+ # DISABLE_BENCH: "y"
24+ # DISABLE_DOCS: "y"
25+ # DISABLE_SDIST_BUILD: "y"
26+ # DISABLE_DIST_CHECKS: "y"
27+
28+ # ------------------------------------------------------------------------
29+ # stack options
30+ # ------------------------------------------------------------------------
31+ # Note requiring a specific version of stack using STACKVER may fail due to
32+ # github API limit while checking and upgrading/downgrading to the specific
33+ # version.
34+ #STACKVER: "1.6.5"
35+ STACK_UPGRADE: "y"
36+ #RESOLVER: "lts-12"
37+
38+ # ------------------------------------------------------------------------
39+ # cabal options
40+ # ------------------------------------------------------------------------
41+ CABAL_CHECK_RELAX: "y"
42+ CABAL_BUILD_OPTIONS: "-j1 --flag limit-build-mem"
43+
44+ # ------------------------------------------------------------------------
45+ # Where to find the required tools
46+ # ------------------------------------------------------------------------
47+ PATH: /sbin:/usr/sbin:/bin:/usr/bin
48+
49+ # ------------------------------------------------------------------------
50+ # Location of packcheck.sh (the shell script invoked to perform CI tests ).
51+ # ------------------------------------------------------------------------
52+ # You can either commit the packcheck.sh script at this path in your repo or
53+ # you can use it by specifying the PACKCHECK_REPO_URL option below in which
54+ # case it will be automatically copied from the packcheck repo to this path
55+ # during CI tests. In any case it is finally invoked from this path.
56+ PACKCHECK: "./packcheck.sh"
57+ # If you have not committed packcheck.sh in your repo at PACKCHECK
58+ # then it is automatically pulled from this URL.
59+ PACKCHECK_GITHUB_URL: "https://raw.githubusercontent.com/composewell/packcheck"
60+ PACKCHECK_GITHUB_COMMIT: "f6cfd7b7a33b4bf6fd63cce6a3fb3d26f5031403"
61+
62+executors:
63+ amd64-executor:
64+ docker:
65+ - image: ubuntu:latest
66+ x86-executor:
67+ docker:
68+ - image: i386/ubuntu:focal
69+
70+#-----------------------------------------------------------------------------
71+# Common utility stuff, not to be modified usually
72+#-----------------------------------------------------------------------------
73+
74+preinstall: &preinstall
75+ run: |
76+ apt-get update
77+ # required for https/cache save and restore
78+ apt-get install -y ca-certificates
79+
80+ # Alternative way of installing ghc and cabal, directly from
81+ # haskell.org instead of using ghcup. NOTE: this is for Debian
82+ # only and is debian release specific.
83+ # gnupg is required for apt-key to work
84+ #apt-get install -y gnupg
85+ #apt-key adv --keyserver keyserver.ubuntu.com --recv-keys BA3CBA3FFE22B574
86+ #echo "deb http://downloads.haskell.org/debian buster main" >> /etc/apt/sources.list
87+ #apt-get update
88+
89+ # required for outbound https for stack and for stack setup
90+ apt-get install -y netbase xz-utils make
91+ apt-get install -y zlib1g-dev
92+
93+ # For ghcup to install ghc
94+ if test -n "$GHCUP_VERSION"
95+ then
96+ apt-get install -y gcc
97+ apt-get install -y g++
98+ fi
99+
100+ # libgmp required by ghc for linking
101+ apt-get install -y libgmp-dev
102+ apt-get install -y libtinfo-dev
103+
104+ # Required by cabal when git URL is specified in project file
105+ apt-get install -y git
106+
107+ # Required for and by packcheck
108+ apt-get install -y curl
109+
110+ # Get packcheck if needed
111+ if test ! -e "$PACKCHECK"
112+ then
113+ if test -z "$PACKCHECK_GITHUB_COMMIT"
114+ then
115+ die "PACKCHECK_GITHUB_COMMIT is not specified."
116+ fi
117+ PACKCHECK_URL=${PACKCHECK_GITHUB_URL}/${PACKCHECK_GITHUB_COMMIT}/packcheck.sh
118+ curl --fail -sL -o "$PACKCHECK" $PACKCHECK_URL || exit 1
119+ chmod +x $PACKCHECK
120+ elif test ! -x "$PACKCHECK"
121+ then
122+ chmod +x $PACKCHECK
123+ fi
124+
125+restore: &restore
126+ # Needs to happen after installing ca-certificates
127+ restore_cache:
128+ keys:
129+ - v1-{{ .Environment.CIRCLE_JOB }}-{{ .Branch }}
130+ # Fallback to master branch's cache.
131+ - v1-{{ .Environment.CIRCLE_JOB }}-master
132+ # Fallback to any branch's cache.
133+ - v1-{{ .Environment.CIRCLE_JOB }}-
134+
135+save: &save
136+ save_cache:
137+ key: v1-{{ .Environment.CIRCLE_JOB }}-{{ .Branch }}
138+ paths:
139+ - ~/.local
140+ - ~/.cabal
141+ - ~/.stack
142+ - ~/.ghcup
143+
144+#-----------------------------------------------------------------------------
145+# Build matrix
146+#-----------------------------------------------------------------------------
147+
148+jobs:
149+ cabal-ghc-8_6_5:
150+ <<: *env
151+ executor: amd64-executor
152+ steps:
153+ - checkout
154+ - *restore
155+ - *preinstall
156+ - run:
157+ environment:
158+ GHCVER: "8.6.5"
159+ CABAL_VERSION: "3.6.2.0"
160+ CABAL_PROJECT: "cabal.project"
161+ DISABLE_SDIST_BUILD: "yes"
162+ CABAL_BUILD_OPTIONS: "--flag debug --flag -opt"
163+ command: |
164+ bash -c "$PACKCHECK cabal"
165+ - *save
166+ cabal-ghc-9_8_1-docspec:
167+ <<: *env
168+ executor: amd64-executor
169+ steps:
170+ - checkout
171+ - *restore
172+ - *preinstall
173+ - run:
174+ environment:
175+ GHCVER: "9.8.1"
176+ CABAL_VERSION: "3.10.1.0"
177+ CABAL_PROJECT: "cabal.project.doctest"
178+ DISABLE_SDIST_BUILD: "y"
179+ DISABLE_TEST: "y"
180+ DISABLE_BENCH: "y"
181+ DISABLE_DOCS: "y"
182+ ENABLE_DOCSPEC: "y"
183+ DOCSPEC_URL: https://github.com/phadej/cabal-extras/releases/download/cabal-docspec-0.0.0.20210111/cabal-docspec-0.0.0.20210111.xz
184+ DOCSPEC_OPTIONS: "--timeout 60 --check-properties --property-variables xs"
185+ command: |
186+ bash -c "$PACKCHECK cabal"
187+ - *save
188+ hlint-trailing-spaces:
189+ <<: *env
190+ executor: amd64-executor
191+ steps:
192+ - checkout
193+ - *restore
194+ - *preinstall
195+ - run:
196+ name: hlint and trailing spaces
197+ environment:
198+ DISABLE_SDIST_BUILD: "yes"
199+ HLINT_VERSION: 3.6.1
200+ HLINT_OPTIONS: lint
201+ HLINT_TARGETS: core/src src test benchmark
202+ command: |
203+ bash -c "$PACKCHECK hlint" || exit 1
204+ echo "Checking trailing spaces..."
205+ count=$(find . -name "*.hs" -exec grep -H '\ $' {} \; | tee /dev/tty | wc -l)
206+ exit $count
207+ - *save
208+
209+workflows:
210+ version: 2
211+ build:
212+ jobs:
213+ #- cabal-ghc-8_6_5:
214+ # name: 8.6.5-debug-unoptimized
215+ - cabal-ghc-9_8_1-docspec:
216+ name: ghc-9.8.1-docspec
217+ - hlint-trailing-spaces:
218+ name: hlint and trailing spaces
.ghcinew file+1
@@ -0,0 +1 @@
1+:set -fobject-code
.github/workflows/haskell.ymlnew file+258
@@ -0,0 +1,258 @@
1+name: Haskell CI
2+
3+on:
4+ push:
5+ branches:
6+ - master
7+ pull_request:
8+
9+jobs:
10+ build:
11+ name: GHC ${{matrix.name}}
12+ env:
13+ # packcheck environment variables
14+ LC_ALL: C.UTF-8
15+ BUILD: ${{ matrix.build }}
16+ # For updating see: https://downloads.haskell.org/~ghcup/
17+ GHCUP_VERSION: 0.1.20.0
18+ DOCSPEC_URL: https://github.com/phadej/cabal-extras/releases/download/cabal-docspec-0.0.0.20210111/cabal-docspec-0.0.0.20210111.xz
19+ DOCSPEC_OPTIONS: "--timeout 60 --check-properties --property-variables xs"
20+ GHCUP_GHC_OPTIONS: ${{ matrix.ghcup_ghc_options }}
21+ GHCVER: ${{ matrix.ghc_version }}
22+ CABALVER: ${{ matrix.cabal_version }}
23+ DISABLE_DOCS: ${{ matrix.disable_docs }}
24+ ENABLE_DOCSPEC: ${{ matrix.enable_docspec }}
25+ DISABLE_TEST: ${{ matrix.disable_test }}
26+ DISABLE_BENCH: ${{ matrix.disable_bench }}
27+ DISABLE_DIST_CHECKS: ${{ matrix.disable_dist_checks }}
28+ SDIST_OPTIONS: ${{ matrix.sdist_options }}
29+ DISABLE_SDIST_BUILD: ${{ matrix.disable_sdist_build }}
30+
31+ # Cabal options
32+ CABAL_REINIT_CONFIG: y
33+ # Github has machines with 2 CPUS and 6GB memory so the cabal jobs
34+ # default (ncpus) is good, this can be checked from the packcheck
35+ # output in case it changes.
36+ CABAL_BUILD_OPTIONS: ${{ matrix.cabal_build_options }} --flag limit-build-mem
37+ CABAL_BUILD_TARGETS: ${{ matrix.cabal_build_targets }}
38+ CABAL_PROJECT: ${{ matrix.cabal_project }}
39+ CABAL_CHECK_RELAX: y
40+
41+ # Stack options
42+ STACK_UPGRADE: "y"
43+ RESOLVER: ${{ matrix.resolver }}
44+ STACK_YAML: ${{ matrix.stack_yaml }}
45+ STACK_BUILD_OPTIONS: ${{ matrix.stack_build_options }}
46+
47+ # packcheck location and revision
48+ PACKCHECK: "./packcheck.sh"
49+ PACKCHECK_GITHUB_URL: "https://raw.githubusercontent.com/composewell/packcheck"
50+ PACKCHECK_GITHUB_COMMIT: "v0.7.0"
51+
52+ # Pull token from "secrets" setting of the github repo
53+ COVERALLS_TOKEN: ${{ secrets.COVERALLS_TOKEN }}
54+ COVERAGE: ${{ matrix.coverage }}
55+
56+ # hlint
57+ HLINT_VERSION: 3.6.1
58+ HLINT_OPTIONS: "lint"
59+ HLINT_TARGETS: "core/src src test benchmark"
60+
61+ # Subdir
62+ SUBDIR: ${{ matrix.subdir }}
63+
64+ runs-on: ${{ matrix.runner }}
65+ continue-on-error: ${{ matrix.ignore_error }}
66+ strategy:
67+ fail-fast: true
68+ matrix:
69+ # The order is important to optimize fail-fast.
70+ name:
71+ - 9.8.1-Werror
72+ # - 9.8.1-docspec
73+ # - 8.10.7-coverage
74+
75+ # Note: if cabal.project is not specified benchmarks and tests won't
76+ # run. But we need at least one test where we test without
77+ # cabal.project because that is how hackage would build it.
78+ include:
79+ - name: head
80+ ghc_version: head
81+ # The URL may change, to find a working URL go to https://gitlab.haskell.org/ghc/ghc/-/jobs/
82+ # Find a debian10/11/12 job, click on a passed/failed status, at the
83+ # end of the output you will find the tar.xz name, put that tar
84+ # name after "raw/", and put the job name after "job=".
85+ # Also see https://github.com/mpickering/ghc-artefact-nix/blob/master/gitlab-artifact.nix
86+ #
87+ # May also use ghcup for installing ghc head version, use the
88+ # version "LatestNightly", and the following config:
89+ # ghcup config add-release-channel https://ghc.gitlab.haskell.org/ghcup-metadata/ghcup-nightlies-0.0.7.yaml
90+ ghcup_ghc_options: "-u https://gitlab.haskell.org/ghc/ghc/-/jobs/artifacts/master/raw/ghc-x86_64-linux-deb10-int_native-validate.tar.xz?job=x86_64-linux-deb10-int_native-validate"
91+ runner: ubuntu-latest
92+ build: cabal
93+ cabal_version: 3.10.2.0
94+ cabal_project: cabal.project.ghc-head
95+ disable_sdist_build: "y"
96+ ignore_error: true
97+ # Note: use linux for warning build for convenient dev testing
98+ - name: 9.8.1-Werror
99+ ghc_version: 9.8.1
100+ runner: ubuntu-latest
101+ build: cabal
102+ cabal_version: 3.10.1.0
103+ disable_sdist_build: "y"
104+ cabal_project: cabal.project.Werror
105+ ignore_error: false
106+ #- name: 9.8.1-docspec
107+ # ghc_version: 9.8.1
108+ # runner: ubuntu-latest
109+ # build: cabal
110+ # cabal_version: 3.10.1.0
111+ # cabal_project: cabal.project.doctest
112+ # disable_test: "y"
113+ # disable_bench: "y"
114+ # disable_docs: "y"
115+ # enable_docspec: "y"
116+ # disable_sdist_build: "y"
117+ # ignore_error: false
118+ - name: 9.8.1-fusion-inspection
119+ ghc_version: 9.8.1
120+ runner: ubuntu-latest
121+ build: cabal
122+ cabal_version: 3.10.1.0
123+ disable_sdist_build: "y"
124+ cabal_project: cabal.project
125+ cabal_build_options: "--flag fusion-plugin --flag inspection"
126+ ignore_error: false
127+ - name: 9.6.3-macos
128+ ghc_version: 9.6.3
129+ runner: macos-latest
130+ build: cabal
131+ cabal_version: 3.10.1.0
132+ disable_sdist_build: "y"
133+ cabal_project: cabal.project
134+ ignore_error: false
135+ - name: 9.4.7
136+ ghc_version: 9.4.7
137+ runner: ubuntu-latest
138+ build: cabal
139+ cabal_version: 3.8.1.0
140+ disable_sdist_build: "y"
141+ cabal_project: cabal.project
142+ ignore_error: false
143+ - name: 9.2.8
144+ ghc_version: 9.2.8
145+ runner: ubuntu-latest
146+ build: cabal
147+ cabal_project: cabal.project
148+ cabal_version: 3.6.2.0
149+ disable_sdist_build: "y"
150+ ignore_error: false
151+ - name: 9.0.2-streamly-sdist
152+ ghc_version: 9.0.2
153+ runner: ubuntu-latest
154+ build: cabal
155+ cabal_version: 3.6.2.0
156+ cabal_project: cabal.project.streamly
157+ ignore_error: true
158+ - name: 9.0.2-streamly-core-sdist
159+ ghc_version: 9.0.2
160+ runner: ubuntu-latest
161+ build: cabal
162+ cabal_version: 3.6.2.0
163+ subdir: core
164+ ignore_error: false
165+ - name: 8.10.7-streamly-sdist-stack
166+ runner: ubuntu-latest
167+ build: stack
168+ resolver: lts-20.13
169+ stack_yaml: stack.yaml
170+ sdist_options: "--ignore-check"
171+ stack_build_options: "--flag streamly-benchmarks:-opt"
172+ cabal_version: 3.6.2.0
173+ ignore_error: false
174+ # - name: 8.10.7-coverage
175+ # ghc_version: 8.10.7
176+ # runner: ubuntu-latest
177+ # coverage: "y"
178+ # cabal_version: 3.6.2.0
179+ # ignore_error: false
180+ - name: 8.8.4
181+ ghc_version: 8.8.4
182+ runner: ubuntu-latest
183+ build: cabal
184+ cabal_version: 3.6.2.0
185+ cabal_project: cabal.project
186+ disable_sdist_build: "y"
187+ ignore_error: false
188+ - name: 8.6.5-debug-unoptimized
189+ ghc_version: 8.6.5
190+ runner: ubuntu-latest
191+ build: cabal
192+ cabal_version: 3.6.2.0
193+ cabal_project: cabal.project
194+ cabal_build_options: "--flag debug --flag -opt"
195+ disable_sdist_build: "y"
196+ ignore_error: false
197+ - name: hlint
198+ build: hlint
199+ runner: ubuntu-latest
200+ ignore_error: true
201+
202+ steps:
203+ - uses: actions/checkout@v2
204+
205+ - uses: actions/cache@v1
206+ name: Cache common directories
207+ with:
208+ path: |
209+ ~/.local
210+ ~/.cabal
211+ ~/.stack
212+ ~/.ghcup
213+ # Bump the key version to clear the cache
214+ key: ${{ runner.os }}-${{ matrix.ghc_version }}-cabal-v2
215+
216+ - name: Download packcheck
217+ run: |
218+ if test ! -e "$PACKCHECK"
219+ then
220+ if test -z "$PACKCHECK_GITHUB_COMMIT"
221+ then
222+ die "PACKCHECK_GITHUB_COMMIT is not specified."
223+ fi
224+ PACKCHECK_URL=${PACKCHECK_GITHUB_URL}/${PACKCHECK_GITHUB_COMMIT}/packcheck.sh
225+ curl --fail -sL -o "$PACKCHECK" $PACKCHECK_URL || exit 1
226+ chmod +x $PACKCHECK
227+ elif test ! -x "$PACKCHECK"
228+ then
229+ chmod +x $PACKCHECK
230+ fi
231+
232+ - name: Run tests
233+ run: |
234+ if test -n "$COVERAGE"
235+ then
236+ # Run tests with coverage
237+ cabal update
238+ # Build hpc-coveralls if needed
239+ sudo apt-get install -y libcurl4-gnutls-dev
240+ export PATH=$HOME/.cabal/bin:$PATH
241+ which hpc-coveralls 2>/dev/null || cabal install --project-file cabal.project.hpc-coveralls hpc-coveralls
242+ # Run tests and upload results to coveralls.io
243+ bin/test.sh --coverage --raw
244+ # XXX Uncomment this and fix it properly later
245+ # hpc-coveralls --repo-token="$COVERALLS_TOKEN" --coverage-mode=StrictlyFullLines
246+ else
247+ # /usr/local/opt/curl/bin for macOS
248+ export PATH=$HOME/.local/bin:$HOME/.ghcup/bin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/local/opt/curl/bin
249+ if test -n "$SUBDIR"
250+ then
251+ mv "$PACKCHECK" "$SUBDIR/packcheck.sh"
252+ # This is required as dist-newstyle will be created on the top level
253+ # directory as it is considered the working dir.
254+ rm cabal.project
255+ cd "$SUBDIR"
256+ fi
257+ bash -c "$PACKCHECK $BUILD"
258+ fi
.github/workflows/packdiff.ymlnew file+39
@@ -0,0 +1,39 @@
1+name: Packdiff
2+
3+on: pull_request
4+
5+jobs:
6+ packdiff:
7+
8+ runs-on: ubuntu-latest
9+
10+ steps:
11+
12+ - name: Download ghc
13+ run: |
14+ GHCUP_VER=0.1.18.0
15+ curl -sL -o ./ghcup https://downloads.haskell.org/~ghcup/$GHCUP_VER/x86_64-linux-ghcup-$GHCUP_VER
16+ chmod +x ./ghcup
17+ GHCVER=8.10.7
18+ ./ghcup install ghc $GHCVER
19+ ./ghcup set ghc $GHCVER
20+ cabal update
21+
22+ - uses: actions/cache@v2
23+ name: Cache ~/.cabal
24+ with:
25+ path: |
26+ ~/.cabal
27+ # Bump the key version to clear the cache
28+ key: cache-v2
29+
30+ - name: Checkout the current branch
31+ uses: actions/checkout@v2
32+ with:
33+ fetch-depth: 0
34+
35+ - name: Run packdiff on streamly-core
36+ run: cabal run packdiff --project-file=cabal.project.packdiff -- streamly-core $(git rev-parse origin/master) $(git rev-parse HEAD)
37+
38+ - name: Run packdiff on streamly
39+ run: cabal run packdiff --project-file=cabal.project.packdiff -- streamly $(git rev-parse origin/master) $(git rev-parse HEAD)
.github/workflows/regression-check.ymlnew file+165
@@ -0,0 +1,165 @@
1+name: Regression checking
2+
3+on:
4+ workflow_dispatch:
5+ pull_request:
6+
7+# References:
8+# https://docs.github.com/en/actions/managing-workflow-runs/manually-running-a-workflow
9+# https://docs.github.com/en/actions/using-workflows/reusing-workflows#reusable-workflows-and-starter-workflows
10+# https://docs.github.com/en/actions/using-workflows/workflow-syntax-for-github-actions#onworkflow_call
11+# https://docs.github.com/en/actions/learn-github-actions/contexts#about-contexts-and-expressions
12+
13+# You can override the default DIFF_CUTOFF_PERCENT by specifying a cutoff along
14+# with the benchmark target.
15+# Eg, "Data.Async:12" where "Data.Async" is the benchmark target, ":" is the
16+# seperator, and "12" is the new cutoff percent
17+jobs:
18+ check-regressions:
19+ env:
20+ CI_BENCHMARKS_WITH_CUTOFF: >-
21+ Data.Array
22+ Data.MutArray
23+ Data.Array.Generic
24+ Data.Ring.Unboxed
25+ Data.Fold
26+ Data.Fold.Window
27+ Data.Parser
28+ Data.ParserK
29+ Data.StreamD
30+ Data.StreamK:6
31+ Data.Unfold
32+ Data.Stream
33+ Data.Stream.Concurrent
34+ Data.Stream.ConcurrentEager
35+ Data.Stream.ConcurrentInterleaved
36+ Data.Stream.ConcurrentOrdered
37+ FileSystem.Handle
38+ Unicode.Char
39+ Unicode.Stream
40+ Unicode.Utf8
41+ CI_FIELDS: allocated
42+ CI_DIFF_CUTOFF_PERCENT: 3
43+
44+ runs-on: ubuntu-latest
45+
46+ steps:
47+
48+ - name: Update environment
49+ run: |
50+ CI_BENCHMARKS=""
51+ for i in $CI_BENCHMARKS_WITH_CUTOFF
52+ do
53+ bname=$(echo "$i" | cut -d: -f1)
54+ CI_BENCHMARKS="$CI_BENCHMARKS $bname"
55+ done
56+ echo "CI_BENCHMARKS=$CI_BENCHMARKS" >> $GITHUB_ENV
57+
58+ - name: Download ghc
59+ run: |
60+ GHCUP_VER=0.1.18.0
61+ curl -sL -o ./ghcup https://downloads.haskell.org/~ghcup/$GHCUP_VER/x86_64-linux-ghcup-$GHCUP_VER
62+ chmod +x ./ghcup
63+ GHCVER=9.2.7
64+ ./ghcup install ghc $GHCVER
65+ ./ghcup set ghc $GHCVER
66+ cabal update
67+
68+ - uses: actions/cache@v2
69+ name: Cache ~/.cabal
70+ with:
71+ path: |
72+ ~/.cabal
73+ # Bump the key version to clear the cache
74+ key: cache-v2
75+
76+ - name: Cache bench-runner from pr
77+ id: cache-bench-runner-pr
78+ uses: actions/cache@v2
79+ with:
80+ path: bench-runner
81+ # Bump the key version to clear the cache
82+ key: bench-runner-v1
83+
84+ # -----------------------------------------------------------------
85+ # -- Install bench-report in the current directory
86+ # -----------------------------------------------------------------
87+
88+ - name: Checkout the current branch
89+ uses: actions/checkout@v2
90+ with:
91+ clean: false
92+
93+ - name: Install bench-runner
94+ run: |
95+ cabal install bench-runner --project-file=cabal.project.report --installdir=./
96+
97+ # -----------------------------------------------------------------
98+ # -- Generate reports for the base branch and upload
99+ # -----------------------------------------------------------------
100+
101+ - name: Checkout the base branch
102+ uses: actions/checkout@v2
103+ with:
104+ ref: master
105+ clean: false
106+
107+ - name: Run benchmarks
108+ run: |
109+ ./bench-runner --package-name streamly-benchmarks --package-version 0.0.0 --targets "$CI_BENCHMARKS" --raw
110+
111+ - name: Move charts to charts-master
112+ run: mv charts charts-master
113+
114+ # -----------------------------------------------------------------
115+ # -- Download, generate reports for the current branch and append
116+ # -----------------------------------------------------------------
117+
118+ - name: Checkout the current branch
119+ uses: actions/checkout@v2
120+ with:
121+ clean: false
122+
123+ - name: Copy charts-master to charts
124+ run: cp -r charts-master charts
125+
126+ - name: Run benchmarks and append
127+ run: |
128+ ./bench-runner --package-name streamly-benchmarks --package-version 0.0.0 --targets "$CI_BENCHMARKS" --raw --append
129+
130+ # -----------------------------------------------------------------
131+ # -- Compare
132+ # -----------------------------------------------------------------
133+
134+ - name: List all benchmarks
135+ run: |
136+ ./bench-runner --package-name streamly-benchmarks --package-version 0.0.0 --targets "$CI_BENCHMARKS" --no-measure
137+
138+ - name: Compare benchmarks
139+ run: |
140+
141+ EXIT_STATUS=0
142+
143+ for i in $CI_BENCHMARKS_WITH_CUTOFF
144+ do
145+ arrI=(${i//:/ })
146+
147+ bname=${arrI[0]}
148+ cutoff=${arrI[1]}
149+
150+ test -z "$cutoff" && cutoff=$CI_DIFF_CUTOFF_PERCENT
151+
152+ echo
153+ echo "Checking $bname for regressions greater than $cutoff percent"
154+ ! ./bench-runner \
155+ --package-name streamly-benchmarks \
156+ --package-version 0.0.0 \
157+ --targets "$bname" \
158+ --fields "$CI_FIELDS" \
159+ --no-measure --silent \
160+ --diff-cutoff-percent $cutoff \
161+ | grep -v "^$"
162+ test $? -eq 1 && EXIT_STATUS=1
163+ done
164+
165+ exit $EXIT_STATUS
.gitignorenew file+21
@@ -0,0 +1,21 @@
1+# Build files/directories
2+.stack-work/
3+dist/
4+dist-newstyle*/
5+.cabal.nix
6+autom4te.cache/
7+benchmark/bench-report/bin/bench-report
8+charts/
9+
10+# Local GHC and Cabal related files
11+.ghc.environment*
12+cabal.project.local
13+
14+# Temp files created by Vim/Neovim
15+*.swp
16+*.swo
17+*~
18+
19+# Other
20+.log
21+_doctests/
.hlint.ignorenew file+40
@@ -0,0 +1,40 @@
1+core/src/Streamly/Internal/Data/Stream/StreamK/Type.hs
2+core/src/Streamly/Internal/Data/Pipe/Type.hs
3+core/src/Streamly/Internal/Unicode/Stream.hs
4+src/Streamly/Internal/Data/SmallArray/Type.hs
5+src/Streamly/Internal/Data/Stream/IsStream/Eliminate.hs
6+src/Streamly/Internal/Data/Stream/Serial.hs
7+src/Streamly/Internal/Data/Stream/Zip.hs
8+test/Streamly/Test/Data/Array.hs
9+test/Streamly/Test/Data/Parser.hs
10+test/Streamly/Test/Data/ParserK.hs
11+test/Streamly/Test/Data/SmallArray.hs
12+test/Streamly/Test/Data/Unfold.hs
13+test/Streamly/Test/FileSystem/Event.hs
14+test/Streamly/Test/Prelude/Concurrent.hs
15+test/Streamly/Test/Data/Stream/Concurrent.hs
16+test/lib/Streamly/Test/Prelude/Common.hs
17+test/Streamly/Test/Prelude/Fold.hs
18+test/Streamly/Test/Prelude/Rate.hs
19+test/Streamly/Test/Prelude/Serial.hs
20+test/Streamly/Test/Unicode/Stream.hs
21+test/Streamly/Test/Data/Unbox.hs
22+benchmark/lib/Streamly/Benchmark/Common.hs
23+benchmark/lib/Streamly/Benchmark/Common/Handle.hs
24+benchmark/lib/Streamly/Benchmark/Prelude.hs
25+benchmark/NanoBenchmarks.hs
26+benchmark/Streamly/Benchmark/Data/Array.hs
27+benchmark/Streamly/Benchmark/Data/Parser.hs
28+benchmark/Streamly/Benchmark/Data/ParserK.hs
29+benchmark/Streamly/Benchmark/Data/Stream/StreamDK.hs
30+benchmark/Streamly/Benchmark/Data/Stream/StreamK.hs
31+benchmark/Streamly/Benchmark/Data/Unfold.hs
32+benchmark/Streamly/Benchmark/FileSystem/Handle.hs
33+benchmark/Streamly/Benchmark/Prelude/Async.hs
34+benchmark/Streamly/Benchmark/Prelude/Concurrent.hs
35+benchmark/Streamly/Benchmark/Prelude/Merge.hs
36+benchmark/Streamly/Benchmark/Prelude/Parallel.hs
37+benchmark/Streamly/Benchmark/Prelude/Rate.hs
38+benchmark/Streamly/Benchmark/Prelude/WAsync.hs
39+benchmark/Streamly/Benchmark/Prelude/ZipAsync.hs
40+benchmark/Streamly/Benchmark/Prelude/ZipSerial.hs
.hlint.yamlnew file+93
@@ -0,0 +1,93 @@
1+# HLint configuration file
2+# https://github.com/ndmitchell/hlint
3+##########################
4+
5+# This file contains a template configuration file, which is typically
6+# placed as .hlint.yaml in the root of your project
7+
8+
9+# Warnings currently triggered by your code
10+- suggest: {name: "Unused LANGUAGE pragma"}
11+- suggest: {name: "Eta reduce"}
12+- suggest: {name: "Reduce duplication"}
13+
14+# Warnings currently ignored
15+- ignore: {name: "Use list literal pattern"}
16+- ignore: {name: "Use tuple-section"} # requires GHC extension
17+- ignore: {name: "Use fromMaybe"} # may want to use this suggestion, but it didn't match the common idiom of the library
18+- ignore: {name: "Use unless"} # low power-to-weight
19+- ignore: {name: "Reduce duplication"}
20+- ignore: {name: "Use <>"}
21+- ignore: {name: "Use fewer imports"}
22+- ignore: {name: "Use camelCase"}
23+- ignore: {name: "Use <$>"}
24+- ignore: {name: "Use uncurry"}
25+- ignore: {name: "Redundant $!"}
26+- ignore: {name: "Use fmap"}
27+- ignore: {name: "Use ++"}
28+
29+# Warnings ignored in specific places
30+- ignore: {name: "Use mapM", within: Stream.Transform}
31+- ignore: {name: "Use traverse", within: Stream.Transform}
32+- ignore: {name: "Redundant <*", within: Stream.Expand}
33+- ignore: {name: "Redundant bracket", within: Stream.Split}
34+- ignore: {name: "Use isDigit", within: Streamly.Internal.Unicode.Parser}
35+
36+# Specify additional command line arguments
37+#
38+- arguments:
39+ [ --cpp-include=src
40+ , --cpp-include=src/Streamly/Internal/Data/Stream
41+ , --cpp-include=src/Streamly/Internal/Data/Array
42+ , --cpp-include=test
43+ , --cpp-define=CABAL_OS_LINUX
44+ ]
45+
46+
47+# Control which extensions/flags/modules/functions can be used
48+#
49+# - extensions:
50+# - default: false # all extension are banned by default
51+# - name: [PatternGuards, ViewPatterns] # only these listed extensions can be used
52+# - {name: CPP, within: CrossPlatform} # CPP can only be used in a given module
53+#
54+# - flags:
55+# - {name: -w, within: []} # -w is allowed nowhere
56+#
57+# - modules:
58+# - {name: [Data.Set, Data.HashSet], as: Set} # if you import Data.Set qualified, it must be as 'Set'
59+# - {name: Control.Arrow, within: []} # Certain modules are banned entirely
60+#
61+# - functions:
62+# - {name: unsafePerformIO, within: []} # unsafePerformIO can only appear in no modules
63+
64+
65+# Add custom hints for this project
66+#
67+# Will suggest replacing "wibbleMany [myvar]" with "wibbleOne myvar"
68+# - error: {lhs: "wibbleMany [x]", rhs: wibbleOne x}
69+
70+
71+# Turn on hints that are off by default
72+#
73+# Ban "module X(module X) where", to require a real export list
74+- warn: {name: Use explicit module export list}
75+#
76+# Replace a $ b $ c with a . b $ c
77+# - group: {name: dollar, enabled: true}
78+#
79+# Generalise map to fmap, ++ to <>
80+- group: {name: generalise, enabled: true}
81+
82+
83+# Ignore some builtin hints
84+# - ignore: {name: Use let}
85+# - ignore: {name: Use const, within: SpecialModule} # Only within certain modules
86+
87+
88+# Define some custom infix operators
89+# - fixity: infixr 3 ~^#^~
90+
91+
92+# To generate a suitable file for HLint do:
93+# $ hlint --default > .hlint.yaml
.packcheck.ignorenew file+36
@@ -0,0 +1,36 @@
1+.circleci/config.yml
2+.ghci
3+.github/workflows/haskell.yml
4+.github/workflows/regression-check.yml
5+.github/workflows/packdiff.yml
6+.gitignore
7+.hlint.ignore
8+.hlint.yaml
9+.packcheck.ignore
10+appveyor.yml
11+benchmark/bench-runner/default.nix
12+benchmark/bench-runner/cabal.project
13+bin/ghc.sh
14+bin/repl
15+bin/run-ci.sh
16+bin/run-repl-quick.sh
17+cabal.project
18+cabal.project.coverage
19+cabal.project.doctest
20+cabal.project.ghc-head
21+cabal.project.hpc-coveralls
22+cabal.project.O0
23+cabal.project.report
24+cabal.project.packdiff
25+cabal.project.streamly
26+cabal.project.Werror
27+cabal.project.Werror-nocode
28+core/
29+default.nix
30+examples/README.md
31+hie.yaml
32+stack.yaml
33+targets/default.nix
34+targets/cabal.project
35+test/test-runner/default.nix
36+test/test-runner/cabal.project
.travis.ymldeleted−92
@@ -1,92 +0,0 @@
1−notifications:
2− email: false
3−
4−language: c
5−
6−sudo: false
7−cache:
8− directories:
9− - $HOME/.cabal
10− - $HOME/.ghc
11− - $HOME/.local
12− - $HOME/.stack
13−
14−matrix:
15− include:
16− # cabal/linux
17− # cabal build for GHC 7.10.3 hangs
18− #- env: BUILD=cabal GHCVER=7.10.3 CABALVER=1.22
19− #addons: {apt: {packages: [cabal-install-1.22,ghc-7.10.3], sources: [hvr-ghc]}}
20−
21− - env: BUILD=stack RESOLVER=lts-6.35 CABALVER=1.22
22− addons: {apt: {packages: [libgmp-dev,cabal-install-1.22], sources: [hvr-ghc]}}
23−
24− # stack/linux use a pre-installed cabal-install for faster builds
25− # GHC 8.0.1
26− - env: BUILD=stack RESOLVER=lts-7.24 CABALVER=1.24
27− addons: {apt: {packages: [libgmp-dev,cabal-install-1.24], sources: [hvr-ghc]}}
28−
29− # Note COVERALLS (hpc-coveralls) requires cabal build
30− - env: BUILD=cabal GHCVER=8.0.2 CABALVER=1.24 COVERALLS=y
31− addons: {apt: {packages: [cabal-install-1.24,ghc-8.0.2], sources: [hvr-ghc]}}
32−
33− #- env: BUILD=cabal GHCVER=head CABALVER=head
34− # addons: {apt: {packages: [cabal-install-head,ghc-head], sources: [hvr-ghc]}}
35−
36− - env: BUILD=stack RESOLVER=nightly CABALVER=2.0
37− addons: {apt: {packages: [libgmp-dev,cabal-install-2.0], sources: [hvr-ghc]}}
38−
39− #- env: BUILD=cabal GHCVER=head CABALVER=head
40− # addons: {apt: {packages: [cabal-install-head,ghc-head], sources: [hvr-ghc]}}
41−
42− # cabal/stack/osx - TODO install cabal-install
43− # GHC 8.0.1
44− - env: BUILD=cabal RESOLVER=lts-7.24
45− os: osx
46−
47− # GHC 8.0.2
48− - env: BUILD=stack RESOLVER=lts-9.3
49− os: osx
50−
51− allow_failures:
52− - env: BUILD=stack RESOLVER=nightly CABALVER=2.0
53− #- env: BUILD=cabal GHCVER=head CABALVER=head
54−
55−install: true
56−script:
57− - |
58− # Customizable options
59− PACKAGE_TEST_VER="fde043d6c328090883286c69443f3ad2d73ddbb5"
60− GHC_OPTIONS="-O0 -Werror"
61− test -n "$COVERALLS" && \
62− COVERALLS_OPTIONS="--coverage-mode=StrictlyFullLines \
63− --exclude-dir=test test"
64−
65− # Usually no changes should be needed after this
66− add_path() { eval "test -n \"\$$1\"" && eval "PATH=/opt/$2/\"\$$1\"/bin:$PATH"; true; }
67− cabal_env() { test "$BUILD" = cabal && echo $1; }
68− pkg_test() { echo https://raw.githubusercontent.com/harendra-kumar/package-test/$1/package-test.sh; }
69−
70− CURL=$(which curl)
71− PATH=/bin:/usr/bin
72− add_path GHCVER ghc
73− add_path CABALVER cabal
74−
75− # TRAVIS vars are needed by hpc-coveralls
76− - env -i
77− LC_ALL=C.UTF-8
78− TRAVIS=$TRAVIS
79− TRAVIS_JOB_ID=$TRAVIS_JOB_ID
80− PATH=$PATH
81− BUILD=$BUILD
82− RESOLVER=$RESOLVER
83− GHCVER=$GHCVER
84− GHC_OPTIONS="$GHC_OPTIONS"
85− COVERALLS_OPTIONS="$COVERALLS_OPTIONS"
86− CABAL_REINIT_CONFIG=y
87− TEST_INSTALL=y
88− $(cabal_env CABALVER=$CABALVER)
89− $(cabal_env CABAL_CHECK_RELAX=y)
90− $(cabal_env CABAL_NO_SANDBOX=y)
91− $(cabal_env CABAL_HACKAGE_MIRROR=hackage.haskell.org:http://hackage.fpcomplete.com)
92− /bin/bash <($CURL -sL $(pkg_test $PACKAGE_TEST_VER))
CHANGELOG.mdnew file+1
@@ -0,0 +1 @@
1+docs/User/Project/Changelog.md
CONTRIBUTING.mdnew file+1
@@ -0,0 +1 @@
1+docs/Developer/Contributing.md
LICENSE+69−1
@@ -1,4 +1,4 @@
1−Copyright (c) 2017, Harendra Kumar
1+Copyright (c) 2017, Composewell Technologies
22All rights reserved.
33
44Redistribution and use in source and binary forms, with or without
@@ -25,3 +25,71 @@ SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
2525CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
2626OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
2727OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28+
29+-------------------------------------------------------------------------------
30+fsnotify-0.3.0.1 (http://hackage.haskell.org/package/fsnotify-0.3.0.1/)
31+-------------------------------------------------------------------------------
32+Copyright (c) 2012, Mark Dittmer
33+
34+All rights reserved.
35+
36+Redistribution and use in source and binary forms, with or without
37+modification, are permitted provided that the following conditions are met:
38+
39+ * Redistributions of source code must retain the above copyright
40+ notice, this list of conditions and the following disclaimer.
41+
42+ * Redistributions in binary form must reproduce the above
43+ copyright notice, this list of conditions and the following
44+ disclaimer in the documentation and/or other materials provided
45+ with the distribution.
46+
47+ * Neither the name of Mark Dittmer nor the names of other
48+ contributors may be used to endorse or promote products derived
49+ from this software without specific prior written permission.
50+
51+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
52+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
53+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
54+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
55+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
56+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
57+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
58+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
59+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
60+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
61+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
62+
63+-------------------------------------------------------------------------------
64+hfsevents-0.1.6 (http://hackage.haskell.org/package/hfsevents-0.1.6)
65+-------------------------------------------------------------------------------
66+Copyright (c) 2012, Luite Stegeman
67+
68+All rights reserved.
69+
70+Redistribution and use in source and binary forms, with or without
71+modification, are permitted provided that the following conditions are met:
72+
73+ * Redistributions of source code must retain the above copyright
74+ notice, this list of conditions and the following disclaimer.
75+
76+ * Redistributions in binary form must reproduce the above
77+ copyright notice, this list of conditions and the following
78+ disclaimer in the documentation and/or other materials provided
79+ with the distribution.
80+
81+ * Neither the name of Luite Stegeman nor the names of other
82+ contributors may be used to endorse or promote products derived
83+ from this software without specific prior written permission.
84+
85+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
86+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
87+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
88+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
89+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
90+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
91+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
92+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
93+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
94+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
95+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
README.mdmode 100644 → 120000+1−17
@@ -1,17 +0,0 @@
1−# Asyncly
2−
3−[![Build Status](https://travis-ci.org/harendra-kumar/asyncly.svg?branch=master)](https://travis-ci.org/harendra-kumar/asyncly)
4−[![Windows Build status](https://ci.appveyor.com/api/projects/status/h2bcgw7xa2jxe222?svg=true)](https://ci.appveyor.com/project/harendra-kumar/asyncly)
5−[![Coverage Status](https://coveralls.io/repos/harendra-kumar/asyncly/badge.svg?branch=master&service=github)](https://coveralls.io/github/harendra-kumar/asyncly?branch=master)
6−
7−Asyncly is best described as a superset of list transformer (`ListT`) or logic
8−programming monad (`LogicT`) with additional support for concurrent operation.
9−Monadic streams of data can be composed using serial or parallel compositions
10−with or without fair interleaving, enabling a high level composition of
11−concurrent tasks without requiring knowledge of low level concurrency
12−primitives. The programmer just expresses whether a task can run in parallel
13−with another. Threads, synchronization and concurrency rate control is handled
14−automatically.
15−
16−This library was originally inspired by the `transient` package authored by
17−Alberto G. Corona.
@@ -0,0 +1 @@
1+docs/User/Project/README.md
Setup.hsnew file+6
@@ -0,0 +1,6 @@
1+module Main (main) where
2+
3+import Distribution.Simple
4+
5+main :: IO ()
6+main = defaultMainWithHooks autoconfUserHooks
appveyor.yml+75−19
@@ -1,39 +1,95 @@
1−# short paths == fewer problems
1+# packcheck-0.4.2
2+# You can use any of the options supported by packcheck as environment
3+# variables here. See https://github.com/harendra-kumar/packcheck for all
4+# options and their explanation.
5+branches:
6+ only:
7+ - master
28
3−# criterion does not support 32-bit on Windows
4−# TODO disable benchmarking to test on 32-bit
5−platform: x64
6−
7−clone_folder: "c:\\pkg"
89environment:
10+ # ------------------------------------------------------------------------
11+ # Global options, you can use these per build as well
12+ # ------------------------------------------------------------------------
913 global:
10− BUILD: "stack"
11− RESOLVER: "lts-9.0"
12− GHC_OPTIONS: "-O0 -Werror"
13−# STACK_OPTIONS: "-v"
14+ # ------------------------------------------------------------------------
15+ # Common options
16+ # ------------------------------------------------------------------------
17+ # GHC 9.2.7 onwards redundant constraint warnings are incompatible with
18+ # older versions
19+ GHC_OPTIONS: "-Werror"
20+ CABAL_REINIT_CONFIG: "y"
21+ LC_ALL: "C.UTF-8"
1422
23+ # ------------------------------------------------------------------------
24+ # What to build
25+ # ------------------------------------------------------------------------
26+ # DISABLE_TEST: "y"
27+ # DISABLE_BENCH: "y"
28+ # DISABLE_DOCS: "y"
29+ DISABLE_SDIST_BUILD: "y"
30+ DISABLE_DIST_CHECKS: "y"
31+ ENABLE_INSTALL: "y"
32+
33+ # ------------------------------------------------------------------------
34+ # stack options
35+ # ------------------------------------------------------------------------
36+ # Note requiring a specific version of stack using STACKVER may fail due to
37+ # github API limit while checking and upgrading/downgrading to the specific
38+ # version.
39+ # STACKVER: "1.6.5"
40+ STACK_UPGRADE: "y"
41+ # RESOLVER: "lts-18.27"
1542 STACK_ROOT: "c:\\sr"
16− LOCAL_BIN: "%APPDATA%\\local\\bin"
43+ STACK_BUILD_OPTIONS: "--flag streamly-benchmarks:-opt"
44+ STACK_YAML: "stack.yaml"
45+
46+ # ------------------------------------------------------------------------
47+ # cabal options
48+ # ------------------------------------------------------------------------
49+ CABAL_CHECK_RELAX: "y"
50+
51+ # ------------------------------------------------------------------------
52+ # Where to find the required tools
53+ # ------------------------------------------------------------------------
1754 PATH: "%PATH%;%APPDATA%\\local\\bin"
18− CABAL_REINIT_CONFIG: "y"
19− TEST_INSTALL: "y"
20− PACKAGE_TEST_VER: "fde043d6c328090883286c69443f3ad2d73ddbb5"
55+ LOCAL_BIN: "%APPDATA%\\local\\bin"
56+
57+ # ------------------------------------------------------------------------
58+ # Location of packcheck.sh (the shell script invoked to perform CI tests ).
59+ # ------------------------------------------------------------------------
60+ # You can either commit the packcheck.sh script at this path in your repo or
61+ # you can use it by specifying the PACKCHECK_REPO_URL option below in which
62+ # case it will be automatically copied from the packcheck repo to this path
63+ # during CI tests. In any case it is finally invoked from this path.
64+ PACKCHECK_LOCAL_PATH: "./packcheck.sh"
65+ # If you have not committed packcheck.sh in your repo at PACKCHECK_LOCAL_PATH
66+ # then it is automatically pulled from this URL.
67+ PACKCHECK_GITHUB_URL: "https://raw.githubusercontent.com/composewell/packcheck"
68+ PACKCHECK_GITHUB_COMMIT: "35efa99b2082d13722b8a0183ac6455df98e91b9"
69+
70+ # Override the temp directory to avoid sed escaping issues
71+ # See https://github.com/haskell/cabal/issues/5386
72+ TMP: "c:\\tmp"
2173
2274cache:
23− - "%STACK_ROOT%" # stack root
24− # ghc & msys - cache restore takes almost same time as reinstall
25− # - "%LOCALAPPDATA%\\Programs\\stack"
75+ - "%STACK_ROOT%"
2676 - "%LOCAL_BIN%"
2777 - "%APPDATA%\\cabal"
2878 - "%APPDATA%\\ghc"
79+# - "%LOCALAPPDATA%\\Programs\\stack"
2980
81+clone_folder: "c:\\pkg"
3082build: off
3183
3284before_test:
85+- if not exist %PACKCHECK_LOCAL_PATH% curl -sSkL -o%PACKCHECK_LOCAL_PATH% %PACKCHECK_GITHUB_URL%/%PACKCHECK_GITHUB_COMMIT%/packcheck.sh
3386- if not exist %LOCAL_BIN% mkdir %LOCAL_BIN%
3487- where stack.exe || curl -sSkL -ostack.zip http://www.stackage.org/stack/windows-x86_64 && 7z x stack.zip stack.exe && move stack.exe %LOCAL_BIN%
35−- curl -sSkL -opackage-test.sh https://raw.githubusercontent.com/harendra-kumar/package-test/%PACKAGE_TEST_VER%/package-test.sh
88+- if defined STACKVER (stack upgrade --binary-only --binary-version %STACKVER%) else (stack upgrade --binary-only || ver > nul)
89+- stack --version
3690
3791test_script:
3892- stack setup > nul
39−- chcp 65001 && stack exec bash package-test.sh
93+- for /f "usebackq tokens=*" %%i in (`where 7z.exe`) do set PATH7Z=%%i\..
94+- for /f "usebackq tokens=*" %%i in (`where git.exe`) do set PATHGIT=%%i\..
95+- chcp 65001 && stack exec bash -- -c "chmod +x %PACKCHECK_LOCAL_PATH%; %PACKCHECK_LOCAL_PATH% stack PATH=/usr/bin:\"%PATH7Z%\":\"%PATHGIT%\""
asyncly.cabaldeleted−149
@@ -1,149 +0,0 @@
1−name: asyncly
2−version: 0.1.0
3−synopsis: Beautiful Concurrent, Reactive and Streaming Composition
4−description: Asyncly is best described as a superset of list transformer
5− (`ListT`) or logic programming monad (`LogicT`) with
6− additional support for concurrent operation. Concurrency
7− enables reactivity, providing beautiful composition of
8− stateful and reactive applications using monadic folds.
9− Monadic streams of data or events can be composed using
10− serial or parallel compositions with or without fair
11− interleaving, enabling a high level composition of
12− concurrent tasks without requiring knowledge of low level
13− concurrency primitives. The programmer just expresses
14− whether a task can run in parallel with another. Threads,
15− synchronization and concurrency rate control is handled
16− automatically.
17− .
18− This library was originally inspired by the `transient`
19− package authored by Alberto G. Corona.
20−homepage: http://github.com/harendra-kumar/asyncly
21−bug-reports: https://github.com/harendra-kumar/asyncly/issues
22−license: BSD3
23−license-file: LICENSE
24−author: Harendra Kumar
25−maintainer: harendra.kumar@gmail.com
26−copyright: 2017 Harendra Kumar
27−category: Control, Concurrency, Streaming, Reactivity
28−stability: Experimental
29−build-type: Simple
30−cabal-version: >= 1.10
31−
32−flag dev
33− description: Build development version
34− manual: True
35− default: False
36−
37−flag extra-benchmarks
38− description: Include comparative benchmarks
39− manual: True
40− default: False
41−
42−library
43− hs-source-dirs: src
44− exposed-modules: Asyncly
45− , Asyncly.AsyncT
46− , Asyncly.Prelude
47− , Asyncly.Time
48−
49− default-language: Haskell2010
50− ghc-options: -Wall
51−
52− if flag(dev)
53− ghc-options: -Wmissed-specialisations
54− -Wall-missed-specialisations
55− -fno-ignore-asserts
56− if impl(ghc >= 8.0)
57− ghc-options: -Wcompat
58− -Wunrecognised-warning-flags
59− -Widentities
60− -Wincomplete-record-updates
61− -Wincomplete-uni-patterns
62− -Wredundant-constraints
63− -Wnoncanonical-monad-instances
64− -Wnoncanonical-monadfail-instances
65−
66− build-depends: base >= 4.8 && < 5
67− , atomic-primops >= 0.8 && < 0.9
68− , containers >= 0.5 && < 0.6
69− , exceptions >= 0.8 && < 0.9
70− , lifted-base >= 0.2 && < 0.3
71− , lockfree-queue >= 0.2.3 && < 0.3
72− , monad-control >= 1.0 && < 2
73− , mtl >= 2.2 && < 3
74− , stm >= 2.4.3 && < 2.5
75− , transformers >= 0.4 && < 0.6
76− , transformers-base >= 0.4 && < 0.5
77− if impl(ghc < 8.0)
78− build-depends:
79− semigroups >= 0.18 && < 0.19
80−
81−test-suite test
82− type: exitcode-stdio-1.0
83− main-is: Main.hs
84− hs-source-dirs: test
85− ghc-options: -O0 -Wall
86− if flag(dev)
87− ghc-options: -Wmissed-specialisations
88− -Wall-missed-specialisations
89− if impl(ghc >= 8.0)
90− ghc-options: -Wcompat
91− -Wunrecognised-warning-flags
92− -Widentities
93− -Wincomplete-record-updates
94− -Wincomplete-uni-patterns
95− -Wredundant-constraints
96− -Wnoncanonical-monad-instances
97− -Wnoncanonical-monadfail-instances
98− build-depends:
99− asyncly
100− , base >= 4.8 && < 5
101− , hspec >= 2.0 && < 3
102− , containers >= 0.5 && < 0.6
103− if impl(ghc < 8.0)
104− build-depends:
105− transformers >= 0.4 && < 0.6
106− default-language: Haskell2010
107−
108−benchmark bench
109− type: exitcode-stdio-1.0
110− main-is: Main.hs
111− hs-source-dirs: benchmark
112− ghc-options: -O2 -Wall
113− if flag(dev)
114− ghc-options: -Wmissed-specialisations
115− -Wall-missed-specialisations
116− -fno-ignore-asserts
117− if impl(ghc >= 8.0)
118− ghc-options: -Wcompat
119− -Wunrecognised-warning-flags
120− -Widentities
121− -Wincomplete-record-updates
122− -Wincomplete-uni-patterns
123− -Wredundant-constraints
124− -Wnoncanonical-monad-instances
125− -Wnoncanonical-monadfail-instances
126− build-depends:
127− asyncly
128− , atomic-primops >= 0.8 && < 0.9
129− , base >= 4.8 && < 5
130− , criterion >= 1 && < 2
131− , mtl >= 2.2 && < 3
132−
133− if impl(ghc < 8.0)
134− build-depends:
135− transformers >= 0.4 && < 0.6
136−
137− if flag(extra-benchmarks)
138− cpp-options: -DEXTRA_BENCHMARKS
139− build-depends:
140− list-t >= 0.4 && < 2
141− , logict >= 0.6 && < 0.7
142− , machines >= 0.5 && < 0.7
143− , simple-conduit >= 0.6 && < 0.7
144− , transient >= 0.4 && < 0.6
145− default-language: Haskell2010
146−
147−source-repository head
148− type: git
149− location: https://github.com/harendra-kumar/asyncly
benchmark/Main.hsdeleted−238
@@ -1,238 +0,0 @@
1−{-# LANGUAGE CPP #-}
2−
3−module Main where
4−
5−import Control.Applicative (Alternative(..))
6−import Control.Exception (assert)
7−import Control.Monad (guard)
8−import Criterion.Main (defaultMain, bgroup, bench, nfIO)
9−
10−import qualified Asyncly as A
11−import qualified Asyncly.Prelude as A
12−
13−#ifdef EXTRA_BENCHMARKS
14−import Control.Monad.IO.Class (MonadIO (liftIO))
15−import Data.Atomics (atomicModifyIORefCAS)
16−import Data.IORef (IORef, newIORef, writeIORef)
17−import System.IO.Unsafe (unsafePerformIO)
18−
19−import qualified Conduit.Simple as S
20−import qualified Control.Monad.Logic as LG
21−import qualified Data.Machine as M
22−#if MIN_VERSION_transient(0,5,1)
23−import qualified Transient.Internals as T
24−import qualified Transient.Indeterminism as T
25−#endif
26−import qualified ListT as LT
27−#endif
28−
29−main :: IO ()
30−main = do
31− -- XXX due to a GHC bug passing bind as an argument causes perf
32− -- degradation, so we should keep that in account when comparing.
33− let as = asyncly_basic
34− defaultMain [
35− bgroup "asyncly"
36− [ bgroup "serial bind"
37− [ bench "serial" $ nfIO (as (>>=) (A.<>))
38− , bench "fair serial" $ nfIO (as (>>=) (A.<=>))
39− , bench "left parallel" $ nfIO (as (>>=) (A.<|))
40− , bench "fair parallel" $ nfIO (as (>>=) (A.<|>))
41− ]
42−
43− , bgroup "fair bind"
44− [ bench "serial" $ nfIO (as (A.>->) (A.<>))
45− , bench "fair serial" $ nfIO (as (A.>->) (A.<=>))
46− , bench "left parallel" $ nfIO (as (A.>->) (A.<|))
47− , bench "fair parallel" $ nfIO (as (A.>->) (A.<|>))
48− ]
49−
50− , bgroup "parallel bind"
51− [ bench "serial" $ nfIO (as (A.>>|) (A.<>))
52− , bench "fair serial" $ nfIO (as (A.>>|) (A.<=>))
53− , bench "left parallel" $ nfIO (as (A.>>|) (A.<|))
54− , bench "fair parallel" $ nfIO (as (A.>>|) (A.<|>))
55− ]
56−
57− , bgroup "fair parallel bind"
58− [ bench "serial" $ nfIO (as (A.>|>) (A.<>))
59− , bench "fair serial" $ nfIO (as (A.>|>) (A.<=>))
60− , bench "left parallel" $ nfIO (as (A.>|>) (A.<|))
61− , bench "fair parallel" $ nfIO (as (A.>|>) (A.<|>))
62− ]
63−
64− -- Benchmark smallest possible actions composed together
65− , bgroup "serial bind nil"
66− [ bench "serial" $ nfIO (asyncly_nil (A.<>))
67− , bench "fair serial" $ nfIO (asyncly_nil (A.<=>))
68− , bench "left parallel" $ nfIO (asyncly_nil (A.<|))
69− , bench "fair parallel" $ nfIO (asyncly_nil (A.<|>))
70− ]
71− ]
72−#ifdef EXTRA_BENCHMARKS
73−#if MIN_VERSION_transient(0,5,1)
74− , bgroup "others"
75− [ bench "transient" $ nfIO transient_basic
76− , bench "transient-nil" $ nfIO transient_nil
77−#endif
78− , bench "logict" $ nfIO logict_basic
79− , bench "list-t" $ nfIO list_t_basic
80− , bench "simple-conduit" $ nfIO simple_conduit_basic
81− , bench "machines" $ nfIO machines_basic
82− ]
83−#endif
84− ]
85−
86−{-# INLINABLE map #-}
87−map :: Monad m => (a -> Int) -> a -> m Int
88−map f x = return $ f x
89−
90−{-# INLINABLE filter #-}
91−filter :: (Monad m, Alternative m) => (a -> Bool) -> a -> m a
92−filter cond x = guard (not $ cond x) >> return x
93−
94−amap :: (Int -> Int) -> Int -> A.AsyncT IO Int
95−amap = Main.map
96−
97−afilter :: (Int -> Bool) -> Int -> A.AsyncT IO Int
98−afilter = Main.filter
99−
100−{-# INLINE asyncly_basic #-}
101−asyncly_basic
102− :: (A.AsyncT IO Int -> (Int -> A.AsyncT IO Int) -> A.AsyncT IO Int)
103− -> (A.AsyncT IO Int -> A.AsyncT IO Int -> A.AsyncT IO Int)
104− -> IO Int
105−asyncly_basic f g = do
106− xs <- A.toList $ do
107− A.drop 100 (A.forEachWith g [1..100000 :: Int] $ \x ->
108− afilter even x `f` amap (+1))
109− `f` amap (+1)
110− `f` afilter (\y -> y `mod` 2 == 0)
111− assert (Prelude.length xs == 49900) $
112− return (Prelude.length xs)
113−
114−{-# INLINE asyncly_nil #-}
115−asyncly_nil :: (A.AsyncT IO Int -> A.AsyncT IO Int -> A.AsyncT IO Int)
116− -> IO Int
117−asyncly_nil f = do
118− xs <- A.toList $ do
119− (A.forEachWith f [1..100000:: Int] $
120− \x -> return x >>= return . id)
121− assert (Prelude.length xs == 100000) $
122− return (Prelude.length xs)
123−
124−#ifdef EXTRA_BENCHMARKS
125−#if MIN_VERSION_transient(0,5,1)
126−
127−{-# NOINLINE count #-}
128−count :: IORef Int
129−count = unsafePerformIO $ newIORef 0
130−
131−drop :: (MonadIO m, Alternative m) => Int -> Int -> m Int
132−drop num x = do
133−
134− mn <- liftIO $ atomicModifyIORefCAS count $ \n ->
135− if n < num then (n + 1, False) else (n, True)
136− guard mn
137− return x
138−
139−tmap :: (a -> Int) -> a -> T.TransIO Int
140−tmap = Main.map
141−
142−tfilter :: (a -> Bool) -> a -> T.TransIO a
143−tfilter = Main.filter
144−
145−tdrop :: Int -> Int -> T.TransIO Int
146−tdrop = Main.drop
147−
148−transient_basic :: IO (Maybe Int)
149−
150−transient_basic = T.keep' $ T.threads 0 $ do
151− liftIO $ writeIORef count 0
152− xs <- T.group 49900 $ do
153− T.choose [1..100000 :: Int]
154− >>= tfilter even
155− >>= tmap (+1)
156− >>= tdrop 100
157− >>= tmap (+1)
158− >>= tfilter (\x -> x `mod` 2 == 0)
159−
160− assert (Prelude.length xs == 49900) $
161− T.exit (Prelude.length xs)
162−
163−transient_nil :: IO (Maybe Int)
164−transient_nil = T.keep' $ T.threads 0 $ do
165− xs <- T.group 49900 $ do
166− T.choose [1..100000 :: Int]
167− assert (Prelude.length xs == 49900) $
168− T.exit (Prelude.length xs)
169−#endif
170−
171−lfilter :: (Int -> Bool) -> Int -> LT.ListT IO Int
172−lfilter = Main.filter
173−
174−lmap :: (Int -> Int) -> Int -> LT.ListT IO Int
175−lmap = Main.map
176−
177−ldrop :: Int -> Int -> LT.ListT IO Int
178−ldrop = Main.drop
179−
180−list_t_basic :: IO Int
181−list_t_basic = do
182− writeIORef count 0
183− xs <- LT.toList $ do
184− LT.fromFoldable [1..100000 :: Int]
185− >>= lfilter even
186− >>= lmap (+1)
187− >>= ldrop 100
188− >>= lmap (+1)
189− >>= lfilter (\x -> x `mod` 2 == 0)
190− assert (Prelude.length xs == 49900) $
191− return (Prelude.length xs)
192−
193−lgfilter :: (Int -> Bool) -> Int -> LG.LogicT IO Int
194−lgfilter = Main.filter
195−
196−lgmap :: (Int -> Int) -> Int -> LG.LogicT IO Int
197−lgmap = Main.map
198−
199−lgdrop :: Int -> Int -> LG.LogicT IO Int
200−lgdrop = Main.drop
201−
202−logict_basic :: IO Int
203−logict_basic = do
204− writeIORef count 0
205− --xs <- LG.observeManyT 2900 $ do
206− xs <- LG.observeAllT $ do
207− LG.msum $ Prelude.map return [1..100000]
208− >>= lgfilter even
209− >>= lgmap (+1)
210− >>= lgdrop 100
211− >>= lgmap (+1)
212− >>= lgfilter (\x -> x `mod` 2 == 0)
213− assert (Prelude.length xs == 49900) $
214− return (Prelude.length xs)
215−
216−simple_conduit_basic :: IO Int
217−simple_conduit_basic = do
218− xs <- S.sourceList [1..100000]
219− S.$= S.filterC even
220− S.$= S.mapC ((+1) :: Int -> Int)
221− S.$= S.dropC 100
222− S.$= S.mapC ((+1) :: Int -> Int)
223− S.$= S.filterC (\x -> x `mod` 2 == 0)
224− S.$$ S.sinkList
225− assert (Prelude.length xs == 49900) $
226− return (Prelude.length (xs :: [Int]))
227−
228−machines_basic :: IO Int
229−machines_basic = do
230− xs <- M.runT $ M.source [1..100000]
231− M.~> M.filtered even
232− M.~> M.mapping (+1)
233− M.~> M.dropping 100
234− M.~> M.mapping (+1)
235− M.~> M.filtered (\x -> x `mod` 2 == 0)
236− assert (Prelude.length xs == 49900) $
237− return (Prelude.length (xs ::[Int]))
238−#endif
benchmark/NanoBenchmarks.hsnew file+127
@@ -0,0 +1,127 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+-------------------------------------------------------------------------------
4+-- Investigate specific benchmarks more closely in isolation, possibly looking
5+-- at GHC generated code for optimizing specific problematic cases.
6+-------------------------------------------------------------------------------
7+
8+{-# LANGUAGE FlexibleContexts #-}
9+{-# LANGUAGE ScopedTypeVariables #-}
10+
11+import Data.Char (ord)
12+import Streamly.Internal.Data.Stream (Stream)
13+import System.IO (hSeek, SeekMode(..), openFile, IOMode(..))
14+
15+import qualified Streamly.Data.Array as A
16+import qualified Streamly.Internal.FileSystem.Handle as IFH
17+import qualified Streamly.Data.Fold as FL
18+import qualified Streamly.Internal.Data.Stream as S
19+import qualified Streamly.Internal.Data.Stream.IsStream as Internal
20+
21+import Test.Tasty.Bench
22+import System.Random
23+
24+maxValue :: Int
25+maxValue = 100000
26+
27+drain :: Monad m => S.Stream m a -> m ()
28+drain = S.fold FL.drain
29+
30+{-# INLINE sourceUnfoldrM #-}
31+sourceUnfoldrM :: Monad m => Stream m Int
32+sourceUnfoldrM = S.unfoldrM step 0
33+ where
34+ step cnt =
35+ if cnt > maxValue
36+ then return Nothing
37+ else return (Just (cnt, cnt + 1))
38+
39+{-# INLINE sourceUnfoldrMN #-}
40+sourceUnfoldrMN :: Monad m => Int -> Stream m Int
41+sourceUnfoldrMN n = S.unfoldrM step n
42+ where
43+ step cnt =
44+ if cnt > n
45+ then return Nothing
46+ else return (Just (cnt, cnt + 1))
47+
48+{-# INLINE sourceUnfoldr #-}
49+sourceUnfoldr :: Monad m => Int -> Stream m Int
50+sourceUnfoldr n = S.unfoldr step n
51+ where
52+ step cnt =
53+ if cnt > n + maxValue
54+ then Nothing
55+ else Just (cnt, cnt + 1)
56+
57+-------------------------------------------------------------------------------
58+-- take-drop composition
59+-------------------------------------------------------------------------------
60+
61+takeAllDropOne :: Monad m => Stream m Int -> Stream m Int
62+takeAllDropOne = S.drop 1 . S.take maxValue
63+
64+-- Requires -fspec-constr-recursive=5 for better fused code
65+-- The number depends on how many times we compose it
66+
67+{-# INLINE takeDrop #-}
68+takeDrop :: Monad m => Stream m Int -> m ()
69+takeDrop = drain .
70+ takeAllDropOne . takeAllDropOne . takeAllDropOne . takeAllDropOne
71+
72+-------------------------------------------------------------------------------
73+-- dropWhileFalse composition
74+-------------------------------------------------------------------------------
75+
76+dropWhileFalse :: Monad m => Stream m Int -> Stream m Int
77+dropWhileFalse = S.dropWhile (> maxValue)
78+
79+-- Requires -fspec-constr-recursive=5 for better fused code
80+-- The number depends on how many times we compose it
81+
82+{-# INLINE dropWhileFalseX4 #-}
83+dropWhileFalseX4 :: Monad m => Stream m Int -> m ()
84+dropWhileFalseX4 = drain
85+ . dropWhileFalse . dropWhileFalse . dropWhileFalse . dropWhileFalse
86+
87+-------------------------------------------------------------------------------
88+-- iteration
89+-------------------------------------------------------------------------------
90+
91+{-# INLINE iterateSource #-}
92+iterateSource
93+ :: Monad m
94+ => (Stream m Int -> Stream m Int) -> Int -> Int -> Stream m Int
95+iterateSource g i n = f i (sourceUnfoldrMN n)
96+ where
97+ f (0 :: Int) m = g m
98+ f x m = g (f (x - 1) m)
99+
100+-- Keep only the benchmark that is to be investiagted and comment out the rest.
101+-- We keep all of them enabled by default for testing the build.
102+main :: IO ()
103+main = do
104+ defaultMain [bench "unfoldr" $ nfIO $
105+ randomRIO (1,1) >>= \n -> drain (sourceUnfoldr n)]
106+ defaultMain [bench "take-drop" $ nfIO $ takeDrop sourceUnfoldrM]
107+ defaultMain [bench "dropWhileFalseX4" $
108+ nfIO $ dropWhileFalseX4 sourceUnfoldrM]
109+ defaultMain [bench "iterate-mapM" $
110+ nfIO $ drain $ iterateSource (S.mapM return) 100000 10]
111+
112+ inText <- openFile "benchmark/text-processing/gutenberg-500.txt" ReadMode
113+ defaultMain [mkBenchText "splitOn abc...xyz" inText $ do
114+ S.fold FL.length
115+ (Internal.splitOnSeq
116+ (A.fromList
117+ $ map (fromIntegral . ord) "abcdefghijklmnopqrstuvwxyz"
118+ )
119+ FL.drain
120+ $ IFH.read inText
121+ )
122+ >>= print
123+ ]
124+ where
125+
126+ mkBenchText name h action =
127+ env (hSeek h AbsoluteSeek 0) (\_ -> bench name $ nfIO action)
benchmark/README.mdnew file+1
@@ -0,0 +1 @@
1+../docs/Developer/Benchmarks.md
benchmark/Streamly/Benchmark/Data/Array.hsnew file+140
@@ -0,0 +1,140 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+{-# OPTIONS_GHC -Wno-orphans #-}
3+
4+{-# LANGUAGE CPP #-}
5+
6+#include "Streamly/Benchmark/Data/Array/CommonImports.hs"
7+
8+import Control.DeepSeq (deepseq)
9+
10+import qualified Streamly.Internal.Data.Array as IA
11+import qualified GHC.Exts as GHC
12+
13+-- import qualified Streamly.Data.Array as A
14+import qualified Streamly.Internal.Data.Array as A
15+
16+type Stream = A.Array
17+
18+#include "Streamly/Benchmark/Data/Array/Common.hs"
19+
20+instance NFData (A.Array a) where
21+ {-# INLINE rnf #-}
22+ rnf _ = ()
23+
24+-------------------------------------------------------------------------------
25+-- Benchmark helpers
26+-------------------------------------------------------------------------------
27+
28+-- Drain a source that generates a pure array
29+{-# INLINE benchPureSrc #-}
30+benchPureSrc :: String -> (Int -> Stream a) -> Benchmark
31+benchPureSrc name src = benchPure name src id
32+
33+-- Drain a source that generates an array in the IO monad
34+{-# INLINE benchIOSrc #-}
35+benchIOSrc :: String -> (Int -> IO (Stream a)) -> Benchmark
36+benchIOSrc name src = benchIO name src id
37+
38+-------------------------------------------------------------------------------
39+-- Bench Ops
40+-------------------------------------------------------------------------------
41+
42+{-# INLINE sourceIntFromToFromList #-}
43+sourceIntFromToFromList :: MonadIO m => Int -> Int -> m (Stream Int)
44+sourceIntFromToFromList value n = P.return $ A.fromListN value [n..n + value]
45+
46+{-# INLINE readInstance #-}
47+readInstance :: P.String -> Stream Int
48+readInstance str =
49+ let r = P.reads str
50+ in case r of
51+ [(x,"")] -> x
52+ _ -> P.error "readInstance: no parse"
53+
54+#ifdef DEVBUILD
55+{-
56+{-# INLINE foldableFoldl' #-}
57+foldableFoldl' :: Stream Int -> Int
58+foldableFoldl' = F.foldl' (+) 0
59+
60+{-# INLINE foldableSum #-}
61+foldableSum :: Stream Int -> Int
62+foldableSum = P.sum
63+-}
64+#endif
65+
66+{-# INLINE sourceIsList #-}
67+sourceIsList :: Int -> Int -> Stream Int
68+sourceIsList value n = GHC.fromList [n..n+value]
69+
70+{-# INLINE sourceIsString #-}
71+sourceIsString :: Int -> Int -> Stream P.Char
72+sourceIsString value n = GHC.fromString (P.replicate (n + value) 'a')
73+
74+{-# INLINE sourceIntFromToFromStream #-}
75+sourceIntFromToFromStream :: MonadIO m => Int -> Int -> m (Stream Int)
76+sourceIntFromToFromStream value n = S.fold A.write $ S.enumerateFromTo n (n + value)
77+
78+-------------------------------------------------------------------------------
79+-- Bench groups
80+-------------------------------------------------------------------------------
81+
82+o_1_space_generation :: Int -> [Benchmark]
83+o_1_space_generation value =
84+ [ bgroup
85+ "generation"
86+ [ benchIOSrc "write . intFromTo" (sourceIntFromToFromStream value)
87+ , let testStr = "fromList " ++ mkListString value
88+ in testStr `deepseq` bench "read" (nf readInstance testStr)
89+ , benchPureSrc "writeN . IsList.fromList" (sourceIsList value)
90+ , benchPureSrc
91+ "writeN . IsString.fromString"
92+ (sourceIsString value)
93+
94+ ]
95+ ]
96+
97+o_1_space_elimination :: Int -> [Benchmark]
98+o_1_space_elimination value =
99+ [ bgroup "elimination"
100+ [ benchPureSink value "length . IsList.toList" (length . GHC.toList)
101+ , benchFold "writeLastN.1"
102+ (S.fold (IA.writeLastN 1)) (P.sourceUnfoldrM value)
103+ , benchFold "writeLastN.10"
104+ (S.fold (IA.writeLastN 10)) (P.sourceUnfoldrM value)
105+#ifdef DEVBUILD
106+{-
107+ benchPureSink value "foldable/foldl'" foldableFoldl'
108+ , benchPureSink value "foldable/sum" foldableSum
109+-}
110+#endif
111+ ]
112+ ]
113+
114+o_n_heap_serial :: Int -> [Benchmark]
115+o_n_heap_serial value =
116+ [ bgroup "elimination"
117+ [
118+ -- Converting the stream to an array
119+ benchFold "writeLastN.Max" (S.fold (IA.writeLastN (value + 1)))
120+ (P.sourceUnfoldrM value)
121+ ]
122+ ]
123+
124+moduleName :: String
125+moduleName = "Data.Array"
126+
127+defStreamSize :: Int
128+defStreamSize = defaultStreamSize
129+
130+main :: IO ()
131+main = runWithCLIOpts defStreamSize allBenchmarks
132+
133+ where
134+
135+ allBenchmarks size =
136+ [ bgroup (o_1_space_prefix moduleName) $
137+ o_1_space_generation size ++ o_1_space_elimination size
138+ , bgroup (o_n_space_prefix moduleName) $
139+ o_n_heap_serial size
140+ ] ++ commonBenchmarks size
benchmark/Streamly/Benchmark/Data/Array/Common.hsnew file+185
@@ -0,0 +1,185 @@
1+-------------------------------------------------------------------------------
2+-- Benchmark helpers
3+-------------------------------------------------------------------------------
4+
5+{-# INLINE benchIO #-}
6+benchIO :: NFData b => String -> (Int -> IO a) -> (a -> b) -> Benchmark
7+benchIO name src f = bench name $ nfIO $
8+ (randomRIO (1,1) >>= src) <&> f
9+
10+{-# INLINE benchPureSink #-}
11+benchPureSink :: NFData b => Int -> String -> (Stream Int -> b) -> Benchmark
12+benchPureSink value name = benchIO name (sourceIntFromTo value)
13+
14+{-# INLINE benchIO' #-}
15+benchIO' :: NFData b => String -> (Int -> IO a) -> (a -> IO b) -> Benchmark
16+benchIO' name src f = bench name $ nfIO $
17+ randomRIO (1,1) >>= src >>= f
18+
19+{-# INLINE benchIOSink #-}
20+benchIOSink :: NFData b => Int -> String -> (Stream Int -> IO b) -> Benchmark
21+benchIOSink value name = benchIO' name (sourceIntFromTo value)
22+
23+-------------------------------------------------------------------------------
24+-- Bench Ops
25+-------------------------------------------------------------------------------
26+
27+{-# INLINE sourceUnfoldr #-}
28+sourceUnfoldr :: MonadIO m => Int -> Int -> m (Stream Int)
29+sourceUnfoldr value n = S.fold (A.writeN value) $ S.unfoldr step n
30+ where
31+ step cnt =
32+ if cnt > n + value
33+ then Nothing
34+ else Just (cnt, cnt + 1)
35+
36+{-# INLINE sourceIntFromTo #-}
37+sourceIntFromTo :: MonadIO m => Int -> Int -> m (Stream Int)
38+sourceIntFromTo value n = S.fold (A.writeN value) $ S.enumerateFromTo n (n + value)
39+
40+{-# INLINE sourceFromList #-}
41+sourceFromList :: MonadIO m => Int -> Int -> m (Stream Int)
42+sourceFromList value n = S.fold (A.writeN value) $ S.fromList [n..n+value]
43+
44+-------------------------------------------------------------------------------
45+-- Transformation
46+-------------------------------------------------------------------------------
47+
48+{-# INLINE composeN #-}
49+composeN :: P.Monad m
50+ => Int -> (Stream Int -> m (Stream Int)) -> Stream Int -> m (Stream Int)
51+composeN n f x =
52+ case n of
53+ 1 -> f x
54+ 2 -> f x P.>>= f
55+ 3 -> f x P.>>= f P.>>= f
56+ 4 -> f x P.>>= f P.>>= f P.>>= f
57+ _ -> undefined
58+
59+{-# INLINE scanl' #-}
60+{-# INLINE scanl1' #-}
61+{-# INLINE map #-}
62+
63+scanl' , scanl1', map
64+ :: MonadIO m => Int -> Int -> Stream Int -> m (Stream Int)
65+
66+
67+{-# INLINE onArray #-}
68+onArray
69+ :: MonadIO m => Int -> (Stream.Stream m Int -> Stream.Stream m Int)
70+ -> Stream Int
71+ -> m (Stream Int)
72+onArray value f arr = S.fold (A.writeN value) $ f $ S.unfold A.reader arr
73+
74+scanl' value n = composeN n $ onArray value $ S.scan (Fold.foldl' (+) 0)
75+scanl1' value n = composeN n $ onArray value $ Stream.scanl1' (+)
76+map value n = composeN n $ onArray value $ fmap (+1)
77+-- map n = composeN n $ A.map (+1)
78+
79+{-# INLINE eqInstance #-}
80+eqInstance :: Stream Int -> Bool
81+eqInstance src = src == src
82+
83+{-# INLINE eqInstanceNotEq #-}
84+eqInstanceNotEq :: Stream Int -> Bool
85+eqInstanceNotEq src = src P./= src
86+
87+{-# INLINE ordInstance #-}
88+ordInstance :: Stream Int -> Bool
89+ordInstance src = src P.< src
90+
91+{-# INLINE ordInstanceMin #-}
92+ordInstanceMin :: Stream Int -> Stream Int
93+ordInstanceMin src = P.min src src
94+
95+{-# INLINE showInstance #-}
96+showInstance :: Stream Int -> P.String
97+showInstance = P.show
98+
99+{-# INLINE pureFoldl' #-}
100+pureFoldl' :: MonadIO m => Stream Int -> m Int
101+pureFoldl' = S.fold (Fold.foldl' (+) 0) . S.unfold A.reader
102+
103+-------------------------------------------------------------------------------
104+-- Elimination
105+-------------------------------------------------------------------------------
106+
107+{-# INLINE unfoldReadDrain #-}
108+unfoldReadDrain :: MonadIO m => Stream Int -> m ()
109+unfoldReadDrain = S.fold Fold.drain . S.unfold A.reader
110+
111+{-# INLINE toStreamRevDrain #-}
112+toStreamRevDrain :: MonadIO m => Stream Int -> m ()
113+toStreamRevDrain = S.fold Fold.drain . A.readRev
114+
115+-------------------------------------------------------------------------------
116+-- Bench groups
117+-------------------------------------------------------------------------------
118+
119+common_o_1_space_generation :: Int -> [Benchmark]
120+common_o_1_space_generation value =
121+ [ bgroup
122+ "generation"
123+ [ benchIOSrc "writeN . intFromTo" (sourceIntFromTo value)
124+ , benchIOSrc
125+ "fromList . intFromTo"
126+ (sourceIntFromToFromList value)
127+ , benchIOSrc "writeN . unfoldr" (sourceUnfoldr value)
128+ , benchIOSrc "writeN . fromList" (sourceFromList value)
129+ , benchPureSink value "show" showInstance
130+ ]
131+ ]
132+
133+common_o_1_space_elimination :: Int -> [Benchmark]
134+common_o_1_space_elimination value =
135+ [ bgroup "elimination"
136+ [ benchPureSink value "id" id
137+ , benchPureSink value "==" eqInstance
138+ , benchPureSink value "/=" eqInstanceNotEq
139+ , benchPureSink value "<" ordInstance
140+ , benchPureSink value "min" ordInstanceMin
141+ , benchIOSink value "foldl'" pureFoldl'
142+ , benchIOSink value "read" unfoldReadDrain
143+ , benchIOSink value "toStreamRev" toStreamRevDrain
144+ ]
145+ ]
146+
147+common_o_n_heap_serial :: Int -> [Benchmark]
148+common_o_n_heap_serial value =
149+ [ bgroup "elimination"
150+ [
151+ -- Converting the stream to an array
152+ benchFold "writeN" (S.fold (A.writeN value))
153+ (P.sourceUnfoldrM value)
154+ ]
155+ ]
156+
157+common_o_1_space_transformation :: Int -> [Benchmark]
158+common_o_1_space_transformation value =
159+ [ bgroup "transformation"
160+ [ benchIOSink value "scanl'" (scanl' value 1)
161+ , benchIOSink value "scanl1'" (scanl1' value 1)
162+ , benchIOSink value "map" (map value 1)
163+ ]
164+ ]
165+
166+common_o_1_space_transformationX4 :: Int -> [Benchmark]
167+common_o_1_space_transformationX4 value =
168+ [ bgroup "transformationX4"
169+ [ benchIOSink value "scanl'" (scanl' value 4)
170+ , benchIOSink value "scanl1'" (scanl1' value 4)
171+ , benchIOSink value "map" (map value 4)
172+ ]
173+ ]
174+
175+commonBenchmarks :: Int -> [Benchmark]
176+commonBenchmarks size =
177+ [ bgroup (o_1_space_prefix moduleName) $ concat
178+ [ common_o_1_space_generation size
179+ , common_o_1_space_elimination size
180+ , common_o_1_space_transformation size
181+ , common_o_1_space_transformationX4 size
182+ ]
183+ , bgroup (o_n_space_prefix moduleName) $
184+ common_o_n_heap_serial size
185+ ]
benchmark/Streamly/Benchmark/Data/Array/CommonImports.hsnew file+16
@@ -0,0 +1,16 @@
1+{-# LANGUAGE FlexibleContexts #-}
2+
3+import Control.DeepSeq (NFData(..))
4+import Control.Monad.IO.Class (MonadIO)
5+import Data.Functor ((<&>))
6+import System.Random (randomRIO)
7+
8+import qualified Streamly.Data.Fold as Fold
9+import qualified Streamly.Data.Stream as S
10+import qualified Streamly.Internal.Data.Stream as Stream
11+
12+import Test.Tasty.Bench
13+import Streamly.Benchmark.Common hiding (benchPureSrc)
14+import qualified Stream.Common as P
15+
16+import Prelude as P hiding (map)
benchmark/Streamly/Benchmark/Data/Array/Generic.hsnew file+119
@@ -0,0 +1,119 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+{-# OPTIONS_GHC -Wno-orphans #-}
3+
4+{-# LANGUAGE CPP #-}
5+
6+#include "Streamly/Benchmark/Data/Array/CommonImports.hs"
7+
8+import Control.DeepSeq (deepseq)
9+
10+import qualified Streamly.Internal.Data.Array.Generic as IA
11+import qualified Streamly.Internal.Data.Array.Generic as A
12+
13+type Stream = A.Array
14+
15+#include "Streamly/Benchmark/Data/Array/Common.hs"
16+
17+instance NFData a => NFData (A.Array a) where
18+ {-# INLINE rnf #-}
19+ rnf = A.foldl' (\_ x -> rnf x) ()
20+
21+-------------------------------------------------------------------------------
22+-- Benchmark helpers
23+-------------------------------------------------------------------------------
24+
25+-- Drain a source that generates an array in the IO monad
26+{-# INLINE benchIOSrc #-}
27+benchIOSrc :: NFData a => String -> (Int -> IO (Stream a)) -> Benchmark
28+benchIOSrc name src = benchIO name src id
29+
30+-------------------------------------------------------------------------------
31+-- Bench Ops
32+-------------------------------------------------------------------------------
33+
34+{-# INLINE sourceIntFromToFromList #-}
35+sourceIntFromToFromList :: MonadIO m => Int -> Int -> m (Stream Int)
36+sourceIntFromToFromList value n = P.return $ A.fromListN value [n..n + value]
37+
38+{-# INLINE readInstance #-}
39+readInstance :: P.String -> Stream Int
40+readInstance str =
41+ let r = P.reads str
42+ in case r of
43+ [(x,"")] -> x
44+ _ -> P.error "readInstance: no parse"
45+
46+#ifdef DEVBUILD
47+{-
48+{-# INLINE foldableFoldl' #-}
49+foldableFoldl' :: Stream Int -> Int
50+foldableFoldl' = F.foldl' (+) 0
51+
52+{-# INLINE foldableSum #-}
53+foldableSum :: Stream Int -> Int
54+foldableSum = P.sum
55+-}
56+#endif
57+
58+{-# INLINE sourceIntFromToFromStream #-}
59+sourceIntFromToFromStream :: MonadIO m => Int -> Int -> m (Stream Int)
60+sourceIntFromToFromStream value n =
61+ S.fold A.write $ S.enumerateFromTo n (n + value)
62+
63+-------------------------------------------------------------------------------
64+-- Bench groups
65+-------------------------------------------------------------------------------
66+
67+o_1_space_generation :: Int -> [Benchmark]
68+o_1_space_generation value =
69+ [ bgroup
70+ "generation"
71+ [ benchIOSrc "write . intFromTo" (sourceIntFromToFromStream value)
72+ , let testStr = "fromList " ++ mkListString value
73+ in testStr `deepseq` bench "read" (nf readInstance testStr)
74+ ]
75+ ]
76+
77+o_1_space_elimination :: Int -> [Benchmark]
78+o_1_space_elimination value =
79+ [ bgroup "elimination"
80+ [ benchFold "writeLastN.1"
81+ (S.fold (IA.writeLastN 1)) (P.sourceUnfoldrM value)
82+ , benchFold "writeLastN.10"
83+ (S.fold (IA.writeLastN 10)) (P.sourceUnfoldrM value)
84+#ifdef DEVBUILD
85+{-
86+ benchPureSink value "foldable/foldl'" foldableFoldl'
87+ , benchPureSink value "foldable/sum" foldableSum
88+-}
89+#endif
90+ ]
91+ ]
92+
93+o_n_heap_serial :: Int -> [Benchmark]
94+o_n_heap_serial value =
95+ [ bgroup "elimination"
96+ [
97+ -- Converting the stream to an array
98+ benchFold "writeLastN.Max" (S.fold (IA.writeLastN (value + 1)))
99+ (P.sourceUnfoldrM value)
100+ ]
101+ ]
102+
103+moduleName :: String
104+moduleName = "Data.Array.Generic"
105+
106+defStreamSize :: Int
107+defStreamSize = defaultStreamSize
108+
109+main :: IO ()
110+main = runWithCLIOpts defStreamSize allBenchmarks
111+
112+ where
113+
114+ allBenchmarks size =
115+ [ bgroup (o_1_space_prefix moduleName) $
116+ o_1_space_generation size ++ o_1_space_elimination size
117+ , bgroup (o_n_space_prefix moduleName) $
118+ o_n_heap_serial size
119+ ] ++ commonBenchmarks size
benchmark/Streamly/Benchmark/Data/Array/SmallArray.hsnew file+95
@@ -0,0 +1,95 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+{-# LANGUAGE CPP #-}
4+
5+#include "Streamly/Benchmark/Data/Array/CommonImports.hs"
6+
7+import Control.DeepSeq (deepseq)
8+
9+import qualified Streamly.Internal.Data.SmallArray as A
10+type Stream = A.SmallArray
11+
12+#include "Streamly/Benchmark/Data/Array/Common.hs"
13+
14+-------------------------------------------------------------------------------
15+-- Benchmark helpers
16+-------------------------------------------------------------------------------
17+
18+-- Drain a source that generates an array in the IO monad
19+{-# INLINE benchIOSrc #-}
20+benchIOSrc :: NFData a => String -> (Int -> IO (Stream a)) -> Benchmark
21+benchIOSrc name src = benchIO name src id
22+
23+-------------------------------------------------------------------------------
24+-- Bench Ops
25+-------------------------------------------------------------------------------
26+
27+{-# INLINE sourceIntFromToFromList #-}
28+sourceIntFromToFromList :: MonadIO m => Int -> Int -> m (Stream Int)
29+sourceIntFromToFromList value n = P.return $ A.fromListN value [n..n + value]
30+
31+{-# INLINE readInstance #-}
32+readInstance :: P.String -> Stream Int
33+readInstance str =
34+ let r = P.reads str
35+ in case r of
36+ [(x,"")] -> x
37+ _ -> P.error "readInstance: no parse"
38+
39+#ifdef DEVBUILD
40+{-
41+{-# INLINE foldableFoldl' #-}
42+foldableFoldl' :: Stream Int -> Int
43+foldableFoldl' = F.foldl' (+) 0
44+
45+{-# INLINE foldableSum #-}
46+foldableSum :: Stream Int -> Int
47+foldableSum = P.sum
48+-}
49+#endif
50+
51+-------------------------------------------------------------------------------
52+-- Bench groups
53+-------------------------------------------------------------------------------
54+
55+o_1_space_generation :: Int -> [Benchmark]
56+o_1_space_generation value =
57+ [ bgroup
58+ "generation"
59+ [ let testStr =
60+ "fromListN " ++
61+ show (value + 1) ++
62+ "[1" ++ concat (replicate value ",1") ++ "]"
63+ in testStr `deepseq` bench "read" (nf readInstance testStr)
64+ ]
65+ ]
66+
67+{-
68+o_1_space_elimination :: Int -> [Benchmark]
69+o_1_space_elimination value =
70+ [ bgroup "elimination"
71+ [
72+#ifdef DEVBUILD
73+{-
74+ benchPureSink value "foldable/foldl'" foldableFoldl'
75+ , benchPureSink value "foldable/sum" foldableSum
76+-}
77+#endif
78+ ]
79+ ]
80+-}
81+
82+moduleName :: String
83+moduleName = "Data.SmallArray"
84+
85+defStreamSize :: Int
86+defStreamSize = 128
87+
88+main :: IO ()
89+main = runWithCLIOpts defStreamSize allBenchmarks
90+
91+ where
92+
93+ allBenchmarks size =
94+ bgroup (o_1_space_prefix moduleName) (o_1_space_generation size)
95+ : commonBenchmarks size
benchmark/Streamly/Benchmark/Data/Array/Stream.hsnew file+309
@@ -0,0 +1,309 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+-- |
4+-- Module : Streamly.Benchmark.Data.ParserD
5+-- Copyright : (c) 2020 Composewell Technologies
6+--
7+-- License : BSD-3-Clause
8+-- Maintainer : streamly@composewell.com
9+
10+{-# LANGUAGE CPP #-}
11+{-# LANGUAGE FlexibleContexts #-}
12+{-# LANGUAGE ScopedTypeVariables #-}
13+
14+#ifdef __HADDOCK_VERSION__
15+#undef INSPECTION
16+#endif
17+
18+#ifdef INSPECTION
19+{-# LANGUAGE TemplateHaskell #-}
20+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
21+#endif
22+
23+module Main
24+ (
25+ main
26+ ) where
27+
28+import Control.DeepSeq (NFData(..))
29+import Control.Monad (void, when)
30+import Control.Monad.Catch (MonadCatch)
31+import Data.Functor.Identity (runIdentity)
32+import Data.Maybe (isJust)
33+import Data.Word (Word8)
34+import Streamly.Internal.Data.Stream (Stream)
35+import Streamly.Internal.Data.StreamK (StreamK)
36+import System.IO (Handle)
37+import System.Random (randomRIO)
38+import Prelude hiding ()
39+
40+import qualified Streamly.Data.Stream as Stream
41+import qualified Streamly.Internal.Data.Array as Array
42+import qualified Streamly.Internal.Data.Array.Stream as ArrayStream
43+import qualified Streamly.Internal.Data.Fold as Fold
44+import qualified Streamly.Internal.Data.Parser as Parser
45+import qualified Streamly.Internal.Data.Stream as Stream
46+import qualified Streamly.Internal.Data.StreamK as StreamK
47+import qualified Streamly.Internal.FileSystem.Handle as Handle
48+import qualified Streamly.Internal.Unicode.Stream as Unicode
49+
50+import Test.Tasty.Bench hiding (env)
51+import Streamly.Benchmark.Common
52+import Streamly.Benchmark.Common.Handle
53+import Control.Monad.IO.Class (MonadIO)
54+
55+#ifdef INSPECTION
56+import Streamly.Internal.Data.MutByteArray (Unbox)
57+import Streamly.Internal.Data.Stream (Step(..))
58+import Test.Inspection
59+#endif
60+
61+-------------------------------------------------------------------------------
62+-- Utilities
63+-------------------------------------------------------------------------------
64+
65+-- XXX these can be moved to the common module
66+
67+{-# INLINE sourceUnfoldrM #-}
68+sourceUnfoldrM :: MonadIO m => Int -> Int -> Stream.Stream m Int
69+sourceUnfoldrM value n = Stream.unfoldrM step n
70+ where
71+ step cnt =
72+ if cnt > n + value
73+ then return Nothing
74+ else return (Just (cnt, cnt + 1))
75+
76+{-# INLINE benchIO #-}
77+benchIO
78+ :: NFData b
79+ => String -> (Int -> Stream IO a) -> (Stream IO a -> IO b) -> Benchmark
80+benchIO name src sink =
81+ bench name $ nfIO $ randomRIO (1,1) >>= sink . src
82+
83+-------------------------------------------------------------------------------
84+-- read chunked using toChunks
85+-------------------------------------------------------------------------------
86+
87+-- | Get the last byte from a file bytestream.
88+toChunksLast :: Handle -> IO (Maybe Word8)
89+toChunksLast inh = do
90+ let s = Handle.readChunks inh
91+ larr <- Stream.last s
92+ return $ case larr of
93+ Nothing -> Nothing
94+ Just arr -> Array.getIndex (Array.length arr - 1) arr
95+
96+#ifdef INSPECTION
97+inspect $ hasNoTypeClasses 'toChunksLast
98+inspect $ 'toChunksLast `hasNoType` ''Step
99+#endif
100+
101+-- | Count the number of bytes in a file.
102+toChunksSumLengths :: Handle -> IO Int
103+toChunksSumLengths inh =
104+ let s = Handle.readChunks inh
105+ in Stream.fold Fold.sum (Stream.map Array.length s)
106+
107+#ifdef INSPECTION
108+inspect $ hasNoTypeClasses 'toChunksSumLengths
109+inspect $ 'toChunksSumLengths `hasNoType` ''Step
110+#endif
111+
112+-- | Sum the bytes in a file.
113+toChunksCountBytes :: Handle -> IO Word8
114+toChunksCountBytes inh = do
115+ let foldlArr' f z = runIdentity . Stream.foldl' f z . Array.read
116+ let s = Handle.readChunks inh
117+ Stream.foldl' (\acc arr -> acc + foldlArr' (+) 0 arr) 0 s
118+
119+#ifdef INSPECTION
120+inspect $ hasNoTypeClasses 'toChunksCountBytes
121+inspect $ 'toChunksCountBytes `hasNoType` ''Step
122+#endif
123+
124+toChunksDecodeUtf8Arrays :: Handle -> IO ()
125+toChunksDecodeUtf8Arrays =
126+ Stream.drain . Unicode.decodeUtf8Chunks . Handle.readChunks
127+
128+#ifdef INSPECTION
129+inspect $ hasNoTypeClasses 'toChunksDecodeUtf8Arrays
130+-- inspect $ 'toChunksDecodeUtf8ArraysLenient `hasNoType` ''Step
131+#endif
132+
133+-------------------------------------------------------------------------------
134+-- Splitting
135+-------------------------------------------------------------------------------
136+
137+-- | Count the number of lines in a file.
138+toChunksSplitOnSuffix :: Handle -> IO Int
139+toChunksSplitOnSuffix =
140+ Stream.fold Fold.length
141+ . ArrayStream.splitOnSuffix 10
142+ . Handle.readChunks
143+
144+#ifdef INSPECTION
145+inspect $ hasNoTypeClasses 'toChunksSplitOnSuffix
146+inspect $ 'toChunksSplitOnSuffix `hasNoType` ''Step
147+#endif
148+
149+-- XXX use a word splitting combinator instead of splitOn and test it.
150+-- | Count the number of words in a file.
151+toChunksSplitOn :: Handle -> IO Int
152+toChunksSplitOn =
153+ Stream.fold Fold.length
154+ . ArrayStream.splitOn 32
155+ . Handle.readChunks
156+
157+#ifdef INSPECTION
158+inspect $ hasNoTypeClasses 'toChunksSplitOn
159+inspect $ 'toChunksSplitOn `hasNoType` ''Step
160+#endif
161+
162+o_1_space_read_chunked :: BenchEnv -> [Benchmark]
163+o_1_space_read_chunked env =
164+ -- read using toChunks instead of read
165+ [ bgroup "reduce/toChunks"
166+ [ mkBench "Stream.last" env $ \inH _ ->
167+ toChunksLast inH
168+ -- Note: this cannot be fairly compared with GNU wc -c or wc -m as
169+ -- wc uses lseek to just determine the file size rather than reading
170+ -- and counting characters.
171+ , mkBench "Stream.sum . Stream.map Array.length" env $ \inH _ ->
172+ toChunksSumLengths inH
173+ , mkBench "splitOnSuffix" env $ \inH _ ->
174+ toChunksSplitOnSuffix inH
175+ , mkBench "splitOn" env $ \inH _ ->
176+ toChunksSplitOn inH
177+ , mkBench "countBytes" env $ \inH _ ->
178+ toChunksCountBytes inH
179+ , mkBenchSmall "decodeUtf8Arrays" env $ \inH _ ->
180+ toChunksDecodeUtf8Arrays inH
181+ ]
182+ ]
183+
184+-------------------------------------------------------------------------------
185+-- copy with group/ungroup transformations
186+-------------------------------------------------------------------------------
187+
188+-- | Lines and unlines
189+{-# NOINLINE copyChunksSplitInterposeSuffix #-}
190+copyChunksSplitInterposeSuffix :: Handle -> Handle -> IO ()
191+copyChunksSplitInterposeSuffix inh outh =
192+ Stream.fold (Handle.write outh)
193+ $ ArrayStream.interposeSuffix 10 . ArrayStream.splitOnSuffix 10
194+ $ Handle.readChunks inh
195+
196+#ifdef INSPECTION
197+inspect $ hasNoTypeClassesExcept 'copyChunksSplitInterposeSuffix [''Unbox]
198+inspect $ 'copyChunksSplitInterposeSuffix `hasNoType` ''Step
199+#endif
200+
201+-- | Words and unwords
202+{-# NOINLINE copyChunksSplitInterpose #-}
203+copyChunksSplitInterpose :: Handle -> Handle -> IO ()
204+copyChunksSplitInterpose inh outh =
205+ Stream.fold (Handle.write outh)
206+ -- XXX this is not correct word splitting combinator
207+ $ ArrayStream.interpose 32 . ArrayStream.splitOn 32
208+ $ Handle.readChunks inh
209+
210+#ifdef INSPECTION
211+inspect $ hasNoTypeClassesExcept 'copyChunksSplitInterpose [''Unbox]
212+inspect $ 'copyChunksSplitInterpose `hasNoType` ''Step
213+#endif
214+
215+o_1_space_copy_toChunks_group_ungroup :: BenchEnv -> [Benchmark]
216+o_1_space_copy_toChunks_group_ungroup env =
217+ [ bgroup "copy/toChunks/group-ungroup"
218+ [ mkBench "interposeSuffix . splitOnSuffix" env $ \inh outh ->
219+ copyChunksSplitInterposeSuffix inh outh
220+ , mkBenchSmall "interpose . splitOn" env $ \inh outh ->
221+ copyChunksSplitInterpose inh outh
222+ ]
223+ ]
224+
225+-------------------------------------------------------------------------------
226+-- Parsers
227+-------------------------------------------------------------------------------
228+
229+{-# INLINE drainWhile #-}
230+drainWhile :: MonadCatch m => (a -> Bool) -> Parser.Parser a m ()
231+drainWhile p = Parser.takeWhile p Fold.drain
232+
233+-------------------------------------------------------------------------------
234+-- Folds and parsers
235+-------------------------------------------------------------------------------
236+
237+{-# INLINE fold #-}
238+fold :: Stream IO (Array.Array Int) -> IO ()
239+fold s = void $ ArrayStream.foldBreak Fold.drain $ StreamK.fromStream s
240+
241+{-# INLINE parse #-}
242+parse :: Int -> Stream IO (Array.Array Int) -> IO ()
243+parse value s =
244+ void $ ArrayStream.parseBreak (drainWhile (< value)) $ StreamK.fromStream s
245+
246+{-# INLINE foldBreak #-}
247+foldBreak :: StreamK IO (Array.Array Int) -> IO ()
248+foldBreak s = do
249+ (r, s1) <- ArrayStream.foldBreak Fold.one s
250+ when (isJust r) $ foldBreak s1
251+
252+{-# INLINE parseBreak #-}
253+parseBreak :: StreamK IO (Array.Array Int) -> IO ()
254+parseBreak s = do
255+ r <- ArrayStream.parseBreak Parser.one s
256+ case r of
257+ (Left _, _) -> return ()
258+ (Right _, s1) -> parseBreak s1
259+
260+o_1_space_serial_array ::
261+ Int -> [Array.Array Int] -> [Array.Array Int] -> [Benchmark]
262+o_1_space_serial_array bound arraysSmall arraysBig =
263+ [ benchIO "fold (of 100)" (\_ -> Stream.fromList arraysSmall) fold
264+ , benchIO "fold (single)" (\_ -> Stream.fromList arraysBig) fold
265+ , benchIO
266+ "foldBreak (recursive, small arrays)"
267+ (\_ -> Stream.fromList arraysSmall)
268+ (foldBreak . StreamK.fromStream)
269+ , benchIO "parse (of 100)" (\_ -> Stream.fromList arraysSmall)
270+ $ parse bound
271+ , benchIO "parse (single)" (\_ -> Stream.fromList arraysBig)
272+ $ parse bound
273+ , benchIO
274+ "parseBreak (recursive, small arrays)"
275+ (\_ -> Stream.fromList arraysSmall)
276+ (parseBreak . StreamK.fromStream)
277+ ]
278+
279+-------------------------------------------------------------------------------
280+-- Driver
281+-------------------------------------------------------------------------------
282+
283+moduleName :: String
284+moduleName = "Data.Array.Stream"
285+
286+main :: IO ()
287+main = do
288+ env <- mkHandleBenchEnv
289+ runWithCLIOptsEnv defaultStreamSize alloc (allBenchmarks env)
290+
291+ where
292+
293+ alloc value =
294+ if value <= 0
295+ then return (undefined, undefined)
296+ else
297+ do
298+ small <- Stream.toList $ Stream.chunksOf 100 $ sourceUnfoldrM value 0
299+ big <- Stream.toList $ Stream.chunksOf value $ sourceUnfoldrM value 0
300+ return (small, big)
301+
302+ allBenchmarks env arrays value =
303+ let (arraysSmall, arraysBig) = arrays
304+ in [ bgroup (o_1_space_prefix moduleName) $ Prelude.concat
305+ [ o_1_space_read_chunked env
306+ , o_1_space_serial_array value arraysSmall arraysBig
307+ , o_1_space_copy_toChunks_group_ungroup env
308+ ]
309+ ]
benchmark/Streamly/Benchmark/Data/Fold.hsnew file+541
@@ -0,0 +1,541 @@
1+-- |
2+-- Module : Streamly.Benchmark.Data.Fold
3+-- Copyright : (c) 2018 Composewell
4+--
5+-- License : MIT
6+-- Maintainer : streamly@composewell.com
7+
8+{-# LANGUAGE FlexibleContexts #-}
9+{-# LANGUAGE FlexibleInstances #-}
10+{-# LANGUAGE RankNTypes #-}
11+{-# LANGUAGE ScopedTypeVariables #-}
12+{-# OPTIONS_GHC -fno-warn-warnings-deprecations #-}
13+{-# OPTIONS_GHC -Wno-orphans #-}
14+
15+#undef FUSION_CHECK
16+#ifdef FUSION_CHECK
17+{-# OPTIONS_GHC -ddump-simpl -ddump-to-file -dsuppress-all #-}
18+#endif
19+
20+module Main (main) where
21+
22+import Control.DeepSeq (NFData(..))
23+import Control.Monad (when)
24+import Control.Monad.IO.Class (MonadIO(..))
25+import Data.Functor.Identity (Identity(..))
26+import Data.Map.Strict (Map)
27+import Data.Hashable (Hashable)
28+import Data.HashMap.Strict (HashMap)
29+import Data.IntMap.Strict (IntMap)
30+import Data.Monoid (Last(..), Sum(..))
31+import System.Random (randomRIO)
32+
33+import Streamly.Internal.Data.Stream (Stream)
34+import Streamly.Internal.Data.Fold (Fold(..))
35+import Streamly.Internal.Data.IsMap.HashMap ()
36+import Streamly.Internal.Data.MutArray (MutArray)
37+
38+import qualified Streamly.Internal.Data.Fold as FL
39+import qualified Streamly.Data.Fold.Prelude as Fold
40+import qualified Streamly.Internal.Data.Unfold as Unfold
41+import qualified Streamly.Internal.Data.Pipe as Pipe
42+import qualified Streamly.Internal.Data.Stream as Stream
43+
44+import Test.Tasty.Bench
45+import Streamly.Benchmark.Common
46+import Prelude hiding (all, any, take, unzip, sequence_, filter)
47+
48+-- We need a monadic bind here to make sure that the function f does not get
49+-- completely optimized out by the compiler in some cases.
50+
51+{-# INLINE sourceUnfoldrM #-}
52+sourceUnfoldrM :: Monad m => Int -> Int -> Stream m Int
53+sourceUnfoldrM value n = Stream.unfoldrM step n
54+ where
55+ step cnt =
56+ if cnt > n + value
57+ then return Nothing
58+ else return (Just (cnt, cnt + 1))
59+
60+{-# INLINE source #-}
61+source :: Monad m => Int -> Int -> Stream m Int
62+source = sourceUnfoldrM
63+
64+-- | Takes a fold method, and uses it with a default source.
65+{-# INLINE benchIOSink #-}
66+benchIOSink
67+ :: NFData b
68+ => Int -> String -> (Stream IO Int -> IO b) -> Benchmark
69+benchIOSink value name f = bench name $ nfIO $ randomRIO (1,1) >>= f . source value
70+
71+-------------------------------------------------------------------------------
72+-- Folds
73+-------------------------------------------------------------------------------
74+
75+{-# INLINE any #-}
76+any :: (Monad m, Ord a) => a -> Stream m a -> m Bool
77+any value = Stream.fold (FL.any (> value))
78+
79+{-# INLINE all #-}
80+all :: (Monad m, Ord a) => a -> Stream m a -> m Bool
81+all value = Stream.fold (FL.all (<= value))
82+
83+{-# INLINE take #-}
84+take :: Monad m => Int -> Stream m a -> m ()
85+take value = Stream.fold (FL.take value FL.drain)
86+
87+{-# INLINE sequence_ #-}
88+sequence_ :: Monad m => Int -> Fold m a ()
89+sequence_ value =
90+ foldr f (FL.fromPure ()) (Prelude.replicate value (FL.take 1 FL.drain))
91+
92+ where
93+
94+ {-# INLINE f #-}
95+ f m k = FL.concatMap (const k) m
96+
97+-------------------------------------------------------------------------------
98+-- Filter
99+-------------------------------------------------------------------------------
100+
101+{-# INLINE filter #-}
102+filter :: Monad m => Int -> Stream m Int -> m ()
103+filter _ = Stream.fold (FL.filter even FL.drain)
104+
105+{-# INLINE scanMaybe #-}
106+scanMaybe :: Monad m => Int -> Stream m Int -> m ()
107+scanMaybe _ = Stream.fold (FL.scanMaybe (FL.filtering even) FL.drain)
108+
109+{-# INLINE scanMaybe2 #-}
110+scanMaybe2 :: Monad m => Int -> Stream m Int -> m ()
111+scanMaybe2 _ =
112+ Stream.fold
113+ $ FL.scanMaybe (FL.filtering even)
114+ $ FL.scanMaybe (FL.filtering odd) FL.drain
115+
116+-------------------------------------------------------------------------------
117+-- Splitting by serial application
118+-------------------------------------------------------------------------------
119+
120+{-# INLINE takeEndBy_ #-}
121+takeEndBy_ :: Monad m => Int -> Stream m Int -> m ()
122+takeEndBy_ value = Stream.fold (FL.takeEndBy_ (>= value) FL.drain)
123+
124+{-# INLINE many #-}
125+many :: Monad m => Stream m Int -> m ()
126+many = Stream.fold (FL.many (FL.take 1 FL.drain) FL.drain)
127+
128+{-# INLINE splitAllAny #-}
129+splitAllAny :: Monad m => Int -> Stream m Int -> m (Bool, Bool)
130+splitAllAny value =
131+ Stream.fold
132+ (FL.splitWith (,)
133+ (FL.all (<= (value `div` 2)))
134+ (FL.any (> value))
135+ )
136+
137+{-# INLINE split_ #-}
138+split_ :: Monad m => Int -> Stream m Int -> m Bool
139+split_ value =
140+ Stream.fold
141+ (FL.split_
142+ (FL.all (<= (value `div` 2)))
143+ (FL.any (> value))
144+ )
145+
146+{-# INLINE shortest #-}
147+shortest :: Monad m => Stream m Int -> m (Either Int Int)
148+shortest = Stream.fold (FL.shortest FL.sum FL.length)
149+
150+{-# INLINE longest #-}
151+longest :: Monad m => Stream m Int -> m (Either Int Int)
152+longest = Stream.fold (FL.longest FL.sum FL.length)
153+
154+{-# INLINE foldBreak #-}
155+foldBreak :: Monad m => Stream m Int -> m ()
156+foldBreak s = do
157+ (r, s1) <- Stream.foldBreak (FL.take 1 FL.length) s
158+ when (r /= 0) $ foldBreak s1
159+
160+-------------------------------------------------------------------------------
161+-- Distributing by parallel application
162+-------------------------------------------------------------------------------
163+
164+{-# INLINE teeSumLength #-}
165+teeSumLength :: Monad m => Stream m Int -> m (Int, Int)
166+teeSumLength = Stream.fold (FL.teeWith (,) FL.sum FL.length)
167+
168+{-# INLINE teeAllAny #-}
169+teeAllAny :: (Monad m, Ord a) => a -> Stream m a -> m (Bool, Bool)
170+teeAllAny value = Stream.fold (FL.teeWith (,) all_ any_)
171+
172+ where
173+
174+ all_ = FL.all (<= value)
175+ any_ = FL.any (> value)
176+
177+{-# INLINE teeWithFst #-}
178+teeWithFst :: Monad m => Stream m Int -> m (Int, Int)
179+teeWithFst = Stream.fold (FL.teeWithFst (,) FL.sum FL.length)
180+
181+{-# INLINE teeWithMin #-}
182+teeWithMin :: Monad m => Stream m Int -> m (Int, Int)
183+teeWithMin = Stream.fold (FL.teeWithMin (,) FL.sum FL.length)
184+
185+{-# INLINE distribute #-}
186+distribute :: Monad m => Stream m Int -> m [Int]
187+distribute = Stream.fold (FL.distribute [FL.sum, FL.length])
188+
189+-------------------------------------------------------------------------------
190+-- Partitioning
191+-------------------------------------------------------------------------------
192+
193+{-# INLINE oddEven #-}
194+oddEven :: Int -> Either Int Int
195+oddEven x = if odd x then Left x else Right x
196+
197+{-# INLINE partition #-}
198+partition :: Monad m => Stream m Int -> m (Int, Int)
199+partition = Stream.fold $ FL.lmap oddEven (FL.partition FL.sum FL.length)
200+
201+{-# INLINE partitionByFstM #-}
202+partitionByFstM :: Monad m => Stream m Int -> m (Int, Int)
203+partitionByFstM =
204+ Stream.fold (FL.partitionByFstM (return . oddEven) FL.sum FL.length)
205+
206+{-# INLINE partitionByMinM #-}
207+partitionByMinM :: Monad m => Stream m Int -> m (Int, Int)
208+partitionByMinM =
209+ Stream.fold (FL.partitionByMinM (return . oddEven) FL.sum FL.length)
210+
211+{-# INLINE demuxToMap #-}
212+demuxToMap :: (Monad m, Ord k) =>
213+ (a -> k) -> (a -> m (Fold m a b)) -> Stream m a -> m (Map k b)
214+demuxToMap f g = Stream.fold (FL.demuxToContainer f g)
215+
216+{-# INLINE demuxToIntMap #-}
217+demuxToIntMap :: Monad m =>
218+ (a -> Int) -> (a -> m (Fold m a b)) -> Stream m a -> m (IntMap b)
219+demuxToIntMap f g = Stream.fold (FL.demuxToContainer f g)
220+
221+{-# INLINE demuxToHashMap #-}
222+demuxToHashMap :: (Monad m, Hashable k) =>
223+ (a -> k) -> (a -> m (Fold m a b)) -> Stream m a -> m (HashMap k b)
224+demuxToHashMap f g = Stream.fold (FL.demuxToContainer f g)
225+
226+{-# INLINE demuxToMapIO #-}
227+demuxToMapIO :: (MonadIO m, Ord k) =>
228+ (a -> k) -> (a -> m (Fold m a b)) -> Stream m a -> m (Map k b)
229+demuxToMapIO f g = Stream.fold (FL.demuxToContainerIO f g)
230+
231+{-# INLINE demuxToHashMapIO #-}
232+demuxToHashMapIO :: (MonadIO m, Hashable k) =>
233+ (a -> k) -> (a -> m (Fold m a b)) -> Stream m a -> m (HashMap k b)
234+demuxToHashMapIO f g = Stream.fold (FL.demuxToContainerIO f g)
235+
236+{-# INLINE toMap #-}
237+toMap ::
238+ (Monad m, Ord k, Num a) => (a -> k) -> Stream m a -> m (Map k a)
239+toMap f = Stream.fold (FL.toContainer f FL.sum)
240+
241+{-# INLINE toIntMap #-}
242+toIntMap ::
243+ (Monad m, Num a) => (a -> Int) -> Stream m a -> m (IntMap a)
244+toIntMap f = Stream.fold (FL.toContainer f FL.sum)
245+
246+{-# INLINE toMapIO #-}
247+toMapIO ::
248+ (MonadIO m, Ord k, Num a) => (a -> k) -> Stream m a -> m (Map k a)
249+toMapIO f = Stream.fold (FL.toContainerIO f FL.sum)
250+
251+{-# INLINE toIntMapIO #-}
252+toIntMapIO ::
253+ (MonadIO m, Num a) => (a -> Int) -> Stream m a -> m (IntMap a)
254+toIntMapIO f = Stream.fold (FL.toContainerIO f FL.sum)
255+
256+{-# INLINE toHashMapIO #-}
257+toHashMapIO :: (MonadIO m, Ord k, Num a, Hashable k) =>
258+ (a -> k) -> Stream m a -> m (HashMap k a)
259+toHashMapIO f = Stream.fold (Fold.toHashMapIO f FL.sum)
260+
261+-------------------------------------------------------------------------------
262+-- unzip
263+-------------------------------------------------------------------------------
264+
265+{-# INLINE unzip #-}
266+unzip :: Monad m => Stream m Int -> m (Int, Int)
267+unzip = Stream.fold $ FL.lmap (\a -> (a, a)) (FL.unzip FL.sum FL.length)
268+
269+{-# INLINE unzipWithFstM #-}
270+unzipWithFstM :: Monad m => Stream m Int -> m (Int, Int)
271+unzipWithFstM = do
272+ let f a = return (a + 1, a)
273+ Stream.fold (FL.unzipWithFstM f FL.sum FL.length)
274+
275+{-# INLINE unzipWithMinM #-}
276+unzipWithMinM :: Monad m => Stream m Int -> m (Int, Int)
277+unzipWithMinM = do
278+ let f a = return (a + 1, a)
279+ Stream.fold (FL.unzipWithMinM f FL.sum FL.length)
280+
281+-------------------------------------------------------------------------------
282+-- Nested
283+-------------------------------------------------------------------------------
284+
285+{-# INLINE unfoldMany #-}
286+unfoldMany :: Int -> Benchmarkable
287+unfoldMany val =
288+ nfIO
289+ $ Stream.fold (FL.unfoldMany Unfold.replicateM FL.drain)
290+ $ Stream.fromPure (val, randomRIO (1, 1 :: Int))
291+
292+-------------------------------------------------------------------------------
293+-- Benchmarks
294+-------------------------------------------------------------------------------
295+
296+moduleName :: String
297+moduleName = "Data.Fold"
298+
299+instance NFData (MutArray a) where
300+ {-# INLINE rnf #-}
301+ rnf _ = ()
302+
303+instance NFData a => NFData (Stream Identity a) where
304+ {-# INLINE rnf #-}
305+ rnf xs = runIdentity $ Stream.fold (FL.foldl' (\_ x -> rnf x) ()) xs
306+
307+o_1_space_serial_elimination :: Int -> [Benchmark]
308+o_1_space_serial_elimination value =
309+ [ bgroup "elimination"
310+ [ benchIOSink value "drain" (Stream.fold FL.drain)
311+ , benchIOSink value "drainBy" (Stream.fold (FL.drainBy return))
312+ , benchIOSink value "drainN" (Stream.fold (FL.drainN value))
313+ , benchIOSink value "last" (Stream.fold FL.last)
314+ , benchIOSink value "length" (Stream.fold FL.length)
315+ , benchIOSink value "top" (Stream.fold $ FL.top 10)
316+ , benchIOSink value "bottom" (Stream.fold $ FL.bottom 10)
317+ , benchIOSink value "sum" (Stream.fold FL.sum)
318+ , benchIOSink value "sum (foldMap)" (Stream.fold (FL.foldMap Sum))
319+ , benchIOSink value "product" (Stream.fold FL.product)
320+ , benchIOSink value "maximumBy" (Stream.fold (FL.maximumBy compare))
321+ , benchIOSink value "maximum" (Stream.fold FL.maximum)
322+ , benchIOSink value "minimumBy" (Stream.fold (FL.minimumBy compare))
323+ , benchIOSink value "minimum" (Stream.fold FL.minimum)
324+ , benchIOSink
325+ value
326+ "mean"
327+ (Stream.fold FL.mean . fmap (fromIntegral :: Int -> Double))
328+ , benchIOSink
329+ value
330+ "variance"
331+ (Stream.fold FL.variance . fmap (fromIntegral :: Int -> Double))
332+ , benchIOSink
333+ value
334+ "stdDev"
335+ (Stream.fold FL.stdDev . fmap (fromIntegral :: Int -> Double))
336+ , benchIOSink
337+ value
338+ "mconcat"
339+ (Stream.fold FL.mconcat . fmap (Last . Just))
340+ , benchIOSink
341+ value
342+ "foldMap"
343+ (Stream.fold (FL.foldMap (Last . Just)))
344+ , benchIOSink
345+ value
346+ "foldMapM"
347+ (Stream.fold (FL.foldMapM (return . Last . Just)))
348+ , benchIOSink value "index" (Stream.fold (FL.index (value + 1)))
349+ , benchIOSink value "head" (Stream.fold FL.head)
350+ , benchIOSink value "find" (Stream.fold (FL.find (== (value + 1))))
351+ , benchIOSink
352+ value
353+ "lookup"
354+ (Stream.fold (FL.lmap (\a -> (a, a)) (FL.lookup (value + 1))))
355+ , benchIOSink
356+ value
357+ "findIndex"
358+ (Stream.fold (FL.findIndex (== (value + 1))))
359+ , benchIOSink
360+ value
361+ "elemIndex"
362+ (Stream.fold (FL.elemIndex (value + 1)))
363+ , benchIOSink value "null" (Stream.fold FL.null)
364+ , benchIOSink value "elem" (Stream.fold (FL.elem (value + 1)))
365+ , benchIOSink value "notElem" (Stream.fold (FL.notElem (value + 1)))
366+ , benchIOSink value "all" $ all value
367+ , benchIOSink value "any" $ any value
368+ , benchIOSink value "take" $ take value
369+ , benchIOSink value "takeEndBy_" $ takeEndBy_ value
370+ , benchIOSink value "and" (Stream.fold FL.and . fmap (<= (value + 1)))
371+ , benchIOSink value "or" (Stream.fold FL.or . fmap (> (value + 1)))
372+ ]
373+ ]
374+
375+o_1_space_serial_transformation :: Int -> [Benchmark]
376+o_1_space_serial_transformation value =
377+ [ bgroup "transformation"
378+ [ benchIOSink value "map" (Stream.fold (FL.lmap (+ 1) FL.drain))
379+ , let f x = if even x then Just x else Nothing
380+ fld = FL.mapMaybe f FL.drain
381+ in benchIOSink value "mapMaybe" (Stream.fold fld)
382+ , benchIOSink
383+ value
384+ "rsequence"
385+ (Stream.fold (FL.rmapM id (return <$> FL.drain)))
386+ , benchIOSink value "rmapM" (Stream.fold (FL.rmapM return FL.drain))
387+ , benchIOSink
388+ value
389+ "pipe-mapM"
390+ (Stream.fold
391+ (FL.transform
392+ (Pipe.mapM (\x -> return $ x + 1))
393+ FL.drain))
394+ , benchIOSink
395+ value
396+ "fold-scan"
397+ (Stream.fold $ FL.scan FL.sum FL.drain)
398+ , benchIOSink
399+ value
400+ "fold-scanMany"
401+ (Stream.fold $ FL.scanMany (FL.take 2 FL.drain) FL.drain)
402+ , benchIOSink
403+ value
404+ "fold-postscan"
405+ (Stream.fold $ FL.postscan FL.sum FL.drain)
406+ ]
407+ ]
408+
409+o_1_space_serial_composition :: Int -> [Benchmark]
410+o_1_space_serial_composition value =
411+ [ bgroup
412+ "composition"
413+ [ benchIOSink value "filter even" $ filter value
414+ , benchIOSink value "scanMaybe even" $ scanMaybe value
415+ , benchIOSink value "scanMaybe even, odd" $ scanMaybe2 value
416+ , benchIOSink value "foldBreak (recursive)" foldBreak
417+ , benchIOSink value "splitWith (all, any)" $ splitAllAny value
418+ , benchIOSink value "split_ (all, any)" $ split_ value
419+ , benchIOSink value "tee (all, any)" $ teeAllAny value
420+ , benchIOSink value "many drain (take 1)" many
421+ , bench "unfoldMany" $ unfoldMany value
422+ , benchIOSink value "shortest (sum, length)" shortest
423+ , benchIOSink value "longest (sum, length)" longest
424+ , benchIOSink value "tee (sum, length)" teeSumLength
425+ , benchIOSink value "teeWithFst (sum, length)" teeWithFst
426+ , benchIOSink value "teeWithMin (sum, length)" teeWithMin
427+ , benchIOSink value "distribute [sum, length]" distribute
428+ , benchIOSink value "partition (sum, length)" partition
429+ , benchIOSink value "partitionByFstM (sum, length)" partitionByFstM
430+ , benchIOSink value "partitionByMinM (sum, length)" partitionByMinM
431+ , benchIOSink value "unzip (sum, length)" unzip
432+ , benchIOSink value "unzipWithFstM (sum, length)" unzipWithFstM
433+ , benchIOSink value "unzipWithMinM (sum, length)" unzipWithMinM
434+ ]
435+ ]
436+
437+o_n_space_serial :: Int -> [Benchmark]
438+o_n_space_serial value =
439+ [ benchIOSink value "sequence_/100" $ Stream.fold (sequence_ (value `div` 100))
440+ ]
441+
442+o_n_heap_serial :: Int -> [Benchmark]
443+o_n_heap_serial value =
444+ [ bgroup "elimination"
445+ -- Left folds for building a structure are inherently non-streaming
446+ -- as the structure cannot be lazily consumed until fully built.
447+ [
448+ benchIOSink value "toList" (Stream.fold FL.toList)
449+ , benchIOSink value "toListRev" (Stream.fold FL.toListRev)
450+ , benchIOSink value "toStream"
451+ (Stream.fold FL.toStream
452+ :: Stream IO a -> IO (Stream Identity a))
453+ , benchIOSink value "toStreamRev"
454+ (Stream.fold FL.toStreamRev
455+ :: Stream IO a -> IO (Stream Identity a))
456+ , benchIOSink value "nub" (Stream.fold FL.nub)
457+ ]
458+ , bgroup "key-value"
459+ [
460+ benchIOSink value "demuxToMap (64 buckets) [sum, length]"
461+ $ demuxToMap (getKey 64) (getFold . getKey 64)
462+ , benchIOSink value "demuxToIntMap (64 buckets) [sum, length]"
463+ $ demuxToIntMap (getKey 64) (getFold . getKey 64)
464+ , benchIOSink value "demuxToHashMap (64 buckets) [sum, length]"
465+ $ demuxToHashMap (getKey 64) (getFold . getKey 64)
466+ , benchIOSink value "demuxToMapIO (64 buckets) [sum, length]"
467+ $ demuxToMapIO (getKey 64) (getFold . getKey 64)
468+ , benchIOSink value "demuxToHashMapIO (64 buckets) [sum, length]"
469+ $ demuxToHashMapIO (getKey 64) (getFold . getKey 64)
470+
471+ -- classify: immutable
472+ , benchIOSink value "toMap (64 buckets) sum"
473+ $ toMap (getKey 64)
474+ , benchIOSink value "toIntMap (64 buckets) sum"
475+ $ toIntMap (getKey 64)
476+
477+ -- classify: mutable cells
478+ , benchIOSink value "toMapIO (single bucket) sum"
479+ $ toMapIO (getKey 1)
480+ , benchIOSink value "toMapIO (64 buckets) sum"
481+ $ toMapIO (getKey 64)
482+ , benchIOSink value "toMapIO (max buckets) sum"
483+ $ toMapIO (getKey value)
484+ , benchIOSink value "toIntMapIO (64 buckets) sum"
485+ $ toIntMapIO (getKey 64)
486+ , benchIOSink value "toHashMapIO (single bucket) sum"
487+ $ toHashMapIO (getKey 1)
488+ , benchIOSink value "toHashMapIO (64 buckets) sum"
489+ $ toHashMapIO (getKey 64)
490+ , benchIOSink value "toHashMapIO (max buckets) sum"
491+ $ toHashMapIO (getKey value)
492+ ]
493+ ]
494+
495+ where
496+
497+ getKey buckets = (`mod` buckets)
498+
499+ getFold k =
500+ return $ case k of
501+ 0 -> FL.sum
502+ 1 -> FL.length
503+ _ -> FL.length
504+
505+-------------------------------------------------------------------------------
506+-- Driver
507+-------------------------------------------------------------------------------
508+
509+main :: IO ()
510+main = do
511+#ifndef FUSION_CHECK
512+ runWithCLIOpts defaultStreamSize allBenchmarks
513+
514+ where
515+
516+ allBenchmarks value =
517+ [ bgroup (o_1_space_prefix moduleName) $ concat
518+ [ o_1_space_serial_elimination value
519+ , o_1_space_serial_transformation value
520+ , o_1_space_serial_composition value
521+ ]
522+ , bgroup (o_n_space_prefix moduleName) (o_n_space_serial value)
523+ , bgroup (o_n_heap_prefix moduleName) (o_n_heap_serial value)
524+ ]
525+#else
526+ -- Enable FUSION_CHECK macro at the beginning of the file
527+ -- Enable one benchmark below, and run the benchmark
528+ -- Check the .dump-simpl output
529+ let value = 100000
530+ let input = source value 1
531+ let getKey buckets = (`mod` buckets)
532+ let getFold k =
533+ return $ case k of
534+ 0 -> FL.sum
535+ 1 -> FL.length
536+ _ -> FL.length
537+
538+ -- demuxToMap (getKey 64) (getFold . getKey 64) input
539+ toIntMapIO (getKey 64) input
540+ return ()
541+#endif
benchmark/Streamly/Benchmark/Data/Fold/Window.hsnew file+191
@@ -0,0 +1,191 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+module Main (main) where
4+
5+import Control.DeepSeq (NFData)
6+import Streamly.Data.Fold (Fold)
7+import Streamly.Internal.Data.Stream (Stream)
8+import System.Random (randomRIO)
9+
10+import qualified Streamly.Data.Fold as Fold
11+import qualified Streamly.Internal.Data.Fold as Window
12+import qualified Streamly.Internal.Data.Ring as Ring
13+import qualified Streamly.Internal.Data.Stream as Stream
14+
15+import Streamly.Benchmark.Common
16+import Test.Tasty.Bench
17+
18+{-# INLINE source #-}
19+source :: (Monad m, Num a, Stream.Enumerable a) =>
20+ Int -> a -> Stream m a
21+source len from =
22+ Stream.enumerateFromThenTo from (from + 1) (from + fromIntegral len)
23+
24+{-# INLINE sourceDescending #-}
25+sourceDescending :: (Monad m, Num a, Stream.Enumerable a) =>
26+ Int -> a -> Stream m a
27+sourceDescending len from =
28+ Stream.enumerateFromThenTo
29+ (from + fromIntegral len)
30+ (from + fromIntegral (len - 1))
31+ from
32+
33+{-# INLINE sourceDescendingInt #-}
34+sourceDescendingInt :: Monad m => Int -> Int -> Stream m Int
35+sourceDescendingInt = sourceDescending
36+
37+{-# INLINE benchWith #-}
38+benchWith :: (Num a, NFData b) =>
39+ (Int -> a -> Stream IO a) -> Int -> String -> Fold IO a b -> Benchmark
40+benchWith src len name f =
41+ bench name
42+ $ nfIO
43+ $ randomRIO (1, 1 :: Int) >>= Stream.fold f . src len . fromIntegral
44+
45+{-# INLINE benchWithFold #-}
46+benchWithFold :: NFData a => Int -> String -> Fold IO Double a -> Benchmark
47+benchWithFold = benchWith source
48+
49+{-# INLINE benchWithFoldInt #-}
50+benchWithFoldInt :: Int -> String -> Fold IO Int Int -> Benchmark
51+benchWithFoldInt = benchWith source
52+
53+{-# INLINE benchScanWith #-}
54+benchScanWith :: Num a =>
55+ (Int -> a -> Stream IO a) -> Int -> String -> Fold IO a b -> Benchmark
56+benchScanWith src len name f =
57+ bench name
58+ $ nfIO
59+ $ randomRIO (1, 1 :: Int)
60+ >>= Stream.fold Fold.drain
61+ . Stream.postscan f
62+ . src len
63+ . fromIntegral
64+
65+{-# INLINE benchWithPostscan #-}
66+benchWithPostscan :: Int -> String -> Fold IO Double a -> Benchmark
67+benchWithPostscan = benchScanWith source
68+
69+o_1_space_folds :: Int -> [Benchmark]
70+o_1_space_folds numElements =
71+ [ bgroup "fold"
72+ [ benchWithFold numElements "minimum (window size 100)"
73+ (Window.windowMinimum 100)
74+ , benchWithFold numElements "minimum (window size 1000)"
75+ (Window.windowMinimum 1000)
76+ , benchWith sourceDescendingInt numElements
77+ "minimum descending (window size 1000)"
78+ (Window.windowMinimum 1000)
79+
80+ , benchWithFold numElements "maximum (window size 100)"
81+ (Window.windowMaximum 100)
82+ , benchWithFold numElements "maximum (window size 1000)"
83+ (Window.windowMaximum 1000)
84+ , benchWith sourceDescendingInt numElements
85+ "maximum descending (window size 1000)"
86+ (Window.windowMaximum 1000)
87+
88+ , benchWithFold numElements "range (window size 100)"
89+ (Window.windowRange 100)
90+ , benchWithFold numElements "range (window size 1000)"
91+ (Window.windowRange 1000)
92+ , benchWith sourceDescendingInt numElements
93+ "range descending (window size 1000)"
94+ (Window.windowRange 1000)
95+
96+ , benchWithFoldInt numElements "sumInt (window size 100)"
97+ (Ring.slidingWindow 100 Window.windowSumInt)
98+ , benchWithFoldInt numElements "sum for Int (window size 100)"
99+ (Ring.slidingWindow 100 Window.windowSum)
100+ , benchWithFold numElements "sum (window size 100)"
101+ (Ring.slidingWindow 100 Window.windowSum)
102+ , benchWithFold numElements "sum (window size 1000)"
103+ (Ring.slidingWindow 1000 Window.windowSum)
104+ , benchWithFold numElements "sum (entire stream)"
105+ (Window.cumulative Window.windowSum)
106+ , benchWithFold numElements "sum (Data.Fold)"
107+ Fold.sum
108+
109+ , benchWithFold numElements "mean (window size 100)"
110+ (Ring.slidingWindow 100 Window.windowMean)
111+ , benchWithFold numElements "mean (window size 1000)"
112+ (Ring.slidingWindow 1000 Window.windowMean)
113+ , benchWithFold numElements "mean (entire stream)"
114+ (Window.cumulative Window.windowMean)
115+ , benchWithFold numElements "mean (Data.Fold)"
116+ Fold.mean
117+
118+ , benchWithFold numElements "powerSum 2 (window size 100)"
119+ (Ring.slidingWindow 100 (Window.windowPowerSum 2))
120+ , benchWithFold numElements "powerSum 2 (entire stream)"
121+ (Window.cumulative (Window.windowPowerSum 2))
122+
123+ ]
124+ ]
125+
126+o_1_space_scans :: Int -> [Benchmark]
127+o_1_space_scans numElements =
128+ [ bgroup "scan"
129+ [ benchWithPostscan numElements "minimum (window size 10)"
130+ (Window.windowMinimum 10)
131+ -- Below window size 30 the linear search based impl performs better
132+ -- than the dequeue based implementation.
133+ , benchWithPostscan numElements "minimum (window size 30)"
134+ (Window.windowMinimum 30)
135+ , benchWithPostscan numElements "minimum (window size 1000)"
136+ (Window.windowMinimum 1000)
137+ , benchScanWith sourceDescendingInt numElements
138+ "minimum descending (window size 1000)"
139+ (Window.windowMinimum 1000)
140+
141+ , benchWithPostscan numElements "maximum (window size 10)"
142+ (Window.windowMaximum 10)
143+ , benchWithPostscan numElements "maximum (window size 30)"
144+ (Window.windowMaximum 30)
145+ , benchWithPostscan numElements "maximum (window size 1000)"
146+ (Window.windowMaximum 1000)
147+ , benchScanWith sourceDescendingInt numElements
148+ "maximum descending (window size 1000)"
149+ (Window.windowMaximum 1000)
150+
151+ , benchWithPostscan numElements "range (window size 10)"
152+ (Window.windowRange 10)
153+ , benchWithPostscan numElements "range (window size 30)"
154+ (Window.windowRange 30)
155+ , benchWithPostscan numElements "range (window size 1000)"
156+ (Window.windowRange 1000)
157+ , benchScanWith sourceDescendingInt numElements
158+ "range descending (window size 1000)"
159+ (Window.windowRange 1000)
160+
161+ , benchWithPostscan numElements "sum (window size 100)"
162+ (Ring.slidingWindow 100 Window.windowSum)
163+ , benchWithPostscan numElements "sum (window size 1000)"
164+ (Ring.slidingWindow 1000 Window.windowSum)
165+
166+ , benchWithPostscan numElements "mean (window size 100)"
167+ (Ring.slidingWindow 100 Window.windowMean)
168+ , benchWithPostscan numElements "mean (window size 1000)"
169+ (Ring.slidingWindow 1000 Window.windowMean)
170+
171+ , benchWithPostscan numElements "powerSum 2 (window size 100)"
172+ (Ring.slidingWindow 100 (Window.windowPowerSum 2))
173+ , benchWithPostscan numElements "powerSum 2 (window size 1000)"
174+ (Ring.slidingWindow 1000 (Window.windowPowerSum 2))
175+ ]
176+ ]
177+
178+moduleName :: String
179+moduleName = "Data.Fold.Window"
180+
181+main :: IO ()
182+main = runWithCLIOpts defaultStreamSize allBenchmarks
183+
184+ where
185+
186+ allBenchmarks value =
187+ [ bgroup (o_1_space_prefix moduleName) $ concat
188+ [ o_1_space_folds value
189+ , o_1_space_scans value
190+ ]
191+ ]
benchmark/Streamly/Benchmark/Data/MutArray.hsnew file+300
@@ -0,0 +1,300 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+{-# OPTIONS_GHC -Wno-orphans #-}
3+
4+-- |
5+-- Module : Streamly.Benchmark.Data.Array.Unboxed.Mut
6+-- Copyright : (c) 2021 Composewell Technologies
7+-- License : BSD-3-Clause
8+-- Maintainer : streamly@composewell.com
9+
10+{-# LANGUAGE CPP #-}
11+{-# LANGUAGE FlexibleContexts #-}
12+{-# LANGUAGE ScopedTypeVariables #-}
13+
14+#ifdef __HADDOCK_VERSION__
15+#undef INSPECTION
16+#endif
17+
18+#ifdef INSPECTION
19+{-# LANGUAGE TemplateHaskell #-}
20+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
21+#endif
22+
23+import Control.DeepSeq (NFData(..))
24+import Control.Monad.IO.Class (MonadIO)
25+import Data.Functor ((<&>))
26+import System.Random (randomRIO)
27+import Prelude
28+ ( IO
29+ , Int
30+ , Integral(..)
31+ , Maybe(..)
32+ , Monad(..)
33+ , Num(..)
34+ , Ord(..)
35+ , String
36+ , ($)
37+ , (.)
38+ , (||)
39+ , concat
40+ , const
41+ , fmap
42+ , id
43+ , undefined
44+ )
45+import Streamly.Internal.Data.MutArray (MutArray)
46+
47+import qualified Streamly.Internal.Data.Array as Array
48+import qualified Streamly.Internal.Data.MutArray as MArray
49+import qualified Streamly.Internal.Data.Fold as Fold
50+import qualified Streamly.Internal.Data.Stream as Stream
51+
52+import Test.Tasty.Bench
53+import Streamly.Benchmark.Common hiding (benchPureSrc)
54+
55+type Stream = MutArray
56+
57+instance NFData (MutArray a) where
58+ {-# INLINE rnf #-}
59+ rnf _ = ()
60+
61+-------------------------------------------------------------------------------
62+-- Benchmark helpers
63+-------------------------------------------------------------------------------
64+
65+{-# INLINE benchIO #-}
66+benchIO :: NFData b => String -> (Int -> IO a) -> (a -> b) -> Benchmark
67+benchIO name src f = bench name $ nfIO $
68+ (randomRIO (1,1) >>= src) <&> f
69+
70+{-# INLINE benchPureSink #-}
71+benchPureSink :: NFData b => Int -> String -> (Stream Int -> b) -> Benchmark
72+benchPureSink value name = benchIO name (sourceIntFromTo value)
73+
74+{-# INLINE benchIO' #-}
75+benchIO' :: NFData b => String -> (Int -> IO a) -> (a -> IO b) -> Benchmark
76+benchIO' name src f = bench name $ nfIO $
77+ randomRIO (1,1) >>= src >>= f
78+
79+{-# INLINE benchIOSink #-}
80+benchIOSink :: NFData b => Int -> String -> (Stream Int -> IO b) -> Benchmark
81+benchIOSink value name = benchIO' name (sourceIntFromTo value)
82+
83+-- Drain a source that generates an array in the IO monad
84+{-# INLINE benchIOSrc #-}
85+benchIOSrc :: String -> (Int -> IO (Stream a)) -> Benchmark
86+benchIOSrc name src = benchIO name src id
87+
88+drain :: Monad m => Stream.Stream m a -> m ()
89+drain = Stream.fold Fold.drain
90+
91+-------------------------------------------------------------------------------
92+-- Bench Ops
93+-------------------------------------------------------------------------------
94+
95+{-# INLINE sourceUnfoldr #-}
96+sourceUnfoldr :: MonadIO m => Int -> Int -> m (Stream Int)
97+sourceUnfoldr value n =
98+ Stream.fold (MArray.writeN value) $ Stream.unfoldr step n
99+
100+ where
101+
102+ step cnt =
103+ if cnt > n + value
104+ then Nothing
105+ else Just (cnt, cnt + 1)
106+
107+{-# INLINE sourceIntFromTo #-}
108+sourceIntFromTo :: MonadIO m => Int -> Int -> m (Stream Int)
109+sourceIntFromTo value n =
110+ Stream.fold (MArray.writeN value) $ Stream.enumerateFromTo n (n + value)
111+
112+{-# INLINE sourceFromList #-}
113+sourceFromList :: MonadIO m => Int -> Int -> m (Stream Int)
114+sourceFromList value n =
115+ Stream.fold (MArray.writeN value) $ Stream.fromList [n .. n + value]
116+
117+{-# INLINE sourceIntFromToFromList #-}
118+sourceIntFromToFromList :: MonadIO m => Int -> Int -> m (Stream Int)
119+sourceIntFromToFromList value n = MArray.fromListN value [n..n + value]
120+
121+{-# INLINE sourceIntFromToFromStream #-}
122+sourceIntFromToFromStream :: MonadIO m => Int -> Int -> m (Stream Int)
123+sourceIntFromToFromStream value n =
124+ Stream.fold MArray.write $ Stream.enumerateFromTo n (n + value)
125+
126+{-# INLINE sourceUnfoldrM #-}
127+sourceUnfoldrM :: Monad m => Int -> Int -> Stream.Stream m Int
128+sourceUnfoldrM value n = Stream.unfoldrM step n
129+ where
130+ step cnt =
131+ if cnt > n + value
132+ then return Nothing
133+ else return (Just (cnt, cnt + 1))
134+
135+-------------------------------------------------------------------------------
136+-- Transformation
137+-------------------------------------------------------------------------------
138+
139+{-# INLINE composeN #-}
140+composeN :: Monad m
141+ => Int -> (Stream Int -> m (Stream Int)) -> Stream Int -> m (Stream Int)
142+composeN n f x =
143+ case n of
144+ 1 -> f x
145+ 2 -> f x >>= f
146+ 3 -> f x >>= f >>= f
147+ 4 -> f x >>= f >>= f >>= f
148+ _ -> undefined
149+
150+{-# INLINE scanl' #-}
151+scanl' :: MonadIO m => Int -> Int -> Stream Int -> m (Stream Int)
152+scanl' value n = composeN n $ onArray value $ Stream.scan (Fold.foldl' (+) 0)
153+
154+{-# INLINE scanl1' #-}
155+scanl1' :: MonadIO m => Int -> Int -> Stream Int -> m (Stream Int)
156+scanl1' value n = composeN n $ onArray value $ Stream.scanl1' (+)
157+
158+{-# INLINE map #-}
159+map :: MonadIO m => Int -> Int -> Stream Int -> m (Stream Int)
160+map value n = composeN n $ onArray value $ fmap (+ 1)
161+
162+{-# INLINE onArray #-}
163+onArray
164+ :: MonadIO m => Int -> (Stream.Stream m Int -> Stream.Stream m Int)
165+ -> Stream Int
166+ -> m (Stream Int)
167+onArray value f arr =
168+ Stream.fold (MArray.writeN value) $ f $ Stream.unfold MArray.reader arr
169+
170+-------------------------------------------------------------------------------
171+-- Elimination
172+-------------------------------------------------------------------------------
173+
174+{-# INLINE unfoldReadDrain #-}
175+unfoldReadDrain :: MonadIO m => Stream Int -> m ()
176+unfoldReadDrain = drain . Stream.unfold MArray.reader
177+
178+{-# INLINE unfoldReadRevDrain #-}
179+unfoldReadRevDrain :: MonadIO m => Stream Int -> m ()
180+unfoldReadRevDrain = drain . Stream.unfold MArray.readerRev
181+
182+{-# INLINE toStreamDRevDrain #-}
183+toStreamDRevDrain :: MonadIO m => Stream Int -> m ()
184+toStreamDRevDrain = drain . MArray.readRev
185+
186+{-# INLINE toStreamDDrain #-}
187+toStreamDDrain :: MonadIO m => Stream Int -> m ()
188+toStreamDDrain = drain . MArray.read
189+
190+{-# INLINE unfoldFold #-}
191+unfoldFold :: MonadIO m => Stream Int -> m Int
192+unfoldFold = Stream.fold (Fold.foldl' (+) 0) . Stream.unfold MArray.reader
193+
194+-------------------------------------------------------------------------------
195+-- Bench groups
196+-------------------------------------------------------------------------------
197+
198+o_1_space_generation :: Int -> [Benchmark]
199+o_1_space_generation value =
200+ [ bgroup
201+ "generation"
202+ [ benchIOSrc "writeN . intFromTo" (sourceIntFromTo value)
203+ , benchIOSrc
204+ "fromList . intFromTo"
205+ (sourceIntFromToFromList value)
206+ , benchIOSrc "writeN . unfoldr" (sourceUnfoldr value)
207+ , benchIOSrc "writeN . fromList" (sourceFromList value)
208+ , benchIOSrc "write . intFromTo" (sourceIntFromToFromStream value)
209+ ]
210+ ]
211+
212+o_1_space_elimination :: Int -> [Benchmark]
213+o_1_space_elimination value =
214+ [ bgroup "elimination"
215+ [ benchPureSink value "id" id
216+ , benchIOSink value "foldl'" unfoldFold
217+ , benchIOSink value "read" unfoldReadDrain
218+ , benchIOSink value "readRev" unfoldReadRevDrain
219+ , benchIOSink value "toStream" toStreamDDrain
220+ , benchIOSink value "toStreamRev" toStreamDRevDrain
221+ ]
222+ ]
223+
224+o_n_heap_serial :: Int -> [Benchmark]
225+o_n_heap_serial value =
226+ [ bgroup "elimination"
227+ [
228+ -- Converting the stream to an array
229+ benchFold "writeN" (Stream.fold (MArray.writeN value))
230+ (sourceUnfoldrM value)
231+ ]
232+ ]
233+
234+o_1_space_transformation :: Int -> [Benchmark]
235+o_1_space_transformation value =
236+ [ bgroup "transformation"
237+ [ benchIOSink value "scanl'" (scanl' value 1)
238+ , benchIOSink value "scanl1'" (scanl1' value 1)
239+ , benchIOSink value "map" (map value 1)
240+ ]
241+ ]
242+
243+o_1_space_transformationX4 :: Int -> [Benchmark]
244+o_1_space_transformationX4 value =
245+ [ bgroup "transformationX4"
246+ [ benchIOSink value "scanl'" (scanl' value 4)
247+ , benchIOSink value "scanl1'" (scanl1' value 4)
248+ , benchIOSink value "map" (map value 4)
249+ ]
250+ ]
251+
252+o_1_space_serial_marray ::
253+ Int -> (MutArray Int, Array.Array Int) -> [Benchmark]
254+o_1_space_serial_marray value ~(array, indices) =
255+ [ benchIO' "partitionBy (< 0)" (const (return array))
256+ $ MArray.partitionBy (< 0)
257+ , benchIO' "partitionBy (> 0)" (const (return array))
258+ $ MArray.partitionBy (> 0)
259+ , benchIO' "partitionBy (< value/2)" (const (return array))
260+ $ MArray.partitionBy (< (value `div` 2))
261+ , benchIO' "partitionBy (> value/2)" (const (return array))
262+ $ MArray.partitionBy (> (value `div` 2))
263+ , benchIO' "strip (< value/2 || > value/2)" (const (return array))
264+ $ MArray.strip (\x -> x < value `div` 2 || x > value `div` 2)
265+ , benchIO' "strip (> 0)" (const (return array))
266+ $ MArray.strip (> 0)
267+ , benchIO' "modifyIndices (+ 1)" (const (return indices))
268+ $ Stream.fold (MArray.modifyIndices array (\_idx val -> val + 1))
269+ . Stream.unfold Array.reader
270+ ]
271+
272+-------------------------------------------------------------------------------
273+-- Driver
274+-------------------------------------------------------------------------------
275+
276+moduleName :: String
277+moduleName = "Data.MutArray"
278+
279+main :: IO ()
280+main = do
281+ runWithCLIOptsEnv defaultStreamSize alloc allBenchmarks
282+
283+ where
284+
285+ alloc value = do
286+ marr <- MArray.fromStream (sourceUnfoldrM value 0 :: Stream.Stream IO Int)
287+ indices <- Array.fromStream (sourceUnfoldrM value 0 :: Stream.Stream IO Int)
288+ return (marr, indices)
289+
290+ allBenchmarks array value =
291+ [ bgroup (o_1_space_prefix moduleName)
292+ $ concat
293+ [ o_1_space_serial_marray value array
294+ , o_1_space_generation value
295+ , o_1_space_elimination value
296+ , o_1_space_transformation value
297+ , o_1_space_transformationX4 value
298+ ]
299+ , bgroup (o_n_heap_prefix moduleName) (o_n_heap_serial value)
300+ ]
benchmark/Streamly/Benchmark/Data/Parser.hsnew file+887
@@ -0,0 +1,887 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+#undef FUSION_CHECK
4+#ifdef FUSION_CHECK
5+{-# OPTIONS_GHC -ddump-simpl -ddump-to-file -dsuppress-all #-}
6+#endif
7+
8+-- |
9+-- Module : Streamly.Benchmark.Data.Parser
10+-- Copyright : (c) 2020 Composewell Technologies
11+--
12+-- License : BSD-3-Clause
13+-- Maintainer : streamly@composewell.com
14+
15+{-# LANGUAGE CPP #-}
16+{-# LANGUAGE FlexibleContexts #-}
17+{-# LANGUAGE ScopedTypeVariables #-}
18+{-# OPTIONS_GHC -Wno-orphans #-}
19+
20+module Main
21+ (
22+ main
23+ ) where
24+
25+import Control.Applicative ((<|>))
26+import Control.DeepSeq (NFData(..))
27+import Data.Function ((&))
28+import Data.Functor (($>))
29+import Data.Monoid (Sum(..))
30+import GHC.Magic (inline)
31+import GHC.Magic (noinline)
32+import System.IO (Handle)
33+import System.Random (randomRIO)
34+import Streamly.Internal.Data.Fold (Fold(..))
35+import Streamly.Internal.Data.Parser
36+ (ParseError(..), Parser(..), Initial(..), Step(..))
37+import Streamly.Internal.Data.Stream (Stream)
38+import Prelude hiding
39+ (any, all, take, sequence, sequence_, sequenceA, takeWhile, dropWhile, span)
40+
41+import qualified Control.Applicative as AP
42+import qualified Data.Foldable as F
43+import qualified Data.Traversable as TR
44+import qualified Streamly.FileSystem.Handle as Handle
45+import qualified Streamly.Internal.Data.Array as Array
46+import qualified Streamly.Internal.Data.Fold as Fold
47+import qualified Streamly.Internal.Data.Parser as PR
48+import qualified Streamly.Data.Stream as Stream
49+import qualified Streamly.Internal.Data.Producer as Producer
50+import qualified Streamly.Internal.Data.Stream as Stream
51+
52+import Test.Tasty.Bench hiding (env)
53+import Streamly.Benchmark.Common
54+import Streamly.Benchmark.Common.Handle
55+
56+-------------------------------------------------------------------------------
57+-- Utilities
58+-------------------------------------------------------------------------------
59+
60+-- XXX these can be moved to the common module
61+
62+{-# INLINE sourceUnfoldrM #-}
63+sourceUnfoldrM :: Monad m => Int -> Int -> Stream m Int
64+sourceUnfoldrM value n = Stream.unfoldrM step n
65+ where
66+ step cnt =
67+ if cnt > n + value
68+ then return Nothing
69+ else return (Just (cnt, cnt + 1))
70+
71+-- | Generates something like this: { { \{ \{ } }. The stream consists of
72+-- three parts, the first part is contains a sequence of `{`. The second part
73+-- contains a sequence pf escaped values `\{`. The third part contains a
74+-- sequence of `}`.
75+{-# INLINE sourceEscapedFrames #-}
76+sourceEscapedFrames ::
77+ Monad m
78+ => Int
79+ -> Int
80+ -> Stream m Char
81+sourceEscapedFrames value n = Stream.unfoldrM step n
82+ where
83+
84+ bs = '\\'
85+ cbOpen = '{'
86+ cbClose = '}'
87+ value1 = value `div` 4
88+
89+ step cnt
90+ | cnt > 4 * value1 = return Nothing
91+ | cnt <= value1 = return $ Just (cbOpen, cnt + 1)
92+ | cnt > 3 * value1 = return $ Just (cbClose, cnt + 1)
93+ | otherwise =
94+ return
95+ $ Just
96+ $ if (cnt - value1) `mod` 2 == 1
97+ then (bs, cnt + 1)
98+ else (cbOpen, cnt + 1)
99+
100+{-# INLINE benchIOSrc #-}
101+benchIOSrc
102+ :: NFData b
103+ => (Int -> Int -> Stream IO a)
104+ -> Int
105+ -> String
106+ -> (Stream IO a -> IO b)
107+ -> Benchmark
108+benchIOSrc src value name f =
109+ bench name $ nfIO $ randomRIO (1,1) >>= f . src value
110+
111+-- | Takes a fold method, and uses it with a default source.
112+{-# INLINE benchIOSink #-}
113+benchIOSink
114+ :: NFData b
115+ => Int -> String -> (Stream IO Int -> IO b) -> Benchmark
116+benchIOSink value name f =
117+ bench name $ nfIO $ randomRIO (1,1) >>= f . sourceUnfoldrM value
118+
119+-------------------------------------------------------------------------------
120+-- Parsers
121+-------------------------------------------------------------------------------
122+
123+{-# INLINE takeBetween #-}
124+takeBetween :: Monad m => Int -> Stream m a -> m (Either ParseError ())
125+takeBetween value = Stream.parse (PR.takeBetween 0 value Fold.drain)
126+
127+{-# INLINE takeEQ #-}
128+takeEQ :: Monad m => Int -> Stream m a -> m (Either ParseError ())
129+takeEQ value = Stream.parse (PR.takeEQ value Fold.drain)
130+
131+{-# INLINE takeGE #-}
132+takeGE :: Monad m => Int -> Stream m a -> m (Either ParseError ())
133+takeGE value = Stream.parse (PR.takeGE value Fold.drain)
134+
135+{-# INLINE dropWhile #-}
136+dropWhile :: Monad m => Int -> Stream m Int -> m (Either ParseError ())
137+dropWhile value = Stream.parse (PR.dropWhile (<= value))
138+
139+{-# INLINE takeStartBy #-}
140+takeStartBy :: Monad m => Int -> Stream m Int -> m (Either ParseError ())
141+takeStartBy value stream = do
142+ let stream2 = value `Stream.cons` stream
143+ Stream.parse (PR.takeStartBy (== value) Fold.drain) stream2
144+
145+takeFramedByEsc_ :: Monad m => Int -> Stream m Char -> m (Either ParseError ())
146+takeFramedByEsc_ _ = Stream.parse parser
147+
148+ where
149+
150+ isEsc = (== '\\')
151+ isBegin = (== '{')
152+ isEnd = (== '}')
153+
154+ parser = PR.takeFramedByEsc_ isEsc isBegin isEnd Fold.drain
155+
156+{-# INLINE listEqBy #-}
157+listEqBy :: Int -> Stream IO Int -> IO (Either ParseError [Int])
158+listEqBy len = Stream.parse (PR.listEqBy (==) [1 .. len])
159+
160+{-# INLINE streamEqBy #-}
161+streamEqBy :: Int -> Stream IO Int -> IO (Either ParseError ())
162+streamEqBy len = Stream.parse (PR.streamEqBy (==) (Stream.enumerateFromTo 1 len))
163+
164+{-# INLINE takeWhile #-}
165+takeWhile :: Monad m => Int -> Stream m Int -> m (Either ParseError ())
166+takeWhile value = Stream.parse (PR.takeWhile (<= value) Fold.drain)
167+
168+takeWhileP :: Monad m => Int -> Stream m Int -> m (Either ParseError ())
169+takeWhileP value =
170+ Stream.parse (PR.takeWhileP (<= value) (PR.takeWhile (<= value - 1) Fold.drain))
171+
172+{-# INLINE takeP #-}
173+takeP :: Monad m => Int -> Stream m a -> m (Either ParseError ())
174+takeP value = Stream.parse (PR.takeP value (PR.fromFold Fold.drain))
175+
176+{-# INLINE groupBy #-}
177+groupBy :: Monad m => Stream m Int -> m (Either ParseError ())
178+groupBy = Stream.parse (PR.groupBy (<=) Fold.drain)
179+
180+{-# INLINE groupByRolling #-}
181+groupByRolling :: Monad m => Stream m Int -> m (Either ParseError ())
182+groupByRolling = Stream.parse (PR.groupByRolling (<=) Fold.drain)
183+
184+{-# INLINE wordBy #-}
185+wordBy :: Monad m => Int -> Stream m Int -> m (Either ParseError ())
186+wordBy value = Stream.parse (PR.wordBy (>= value) Fold.drain)
187+
188+{-# INLINE sepByWords #-}
189+sepByWords :: Monad m => Stream m Int -> m (Either ParseError ())
190+sepByWords = Stream.parse (wrds even Fold.drain)
191+ where
192+ wrds p = PR.sepBy (PR.takeWhile (not . p) Fold.drain) (PR.dropWhile p)
193+
194+{-# INLINE sepByAllWords #-}
195+sepByAllWords :: Monad m => Stream m Int -> m (Either ParseError ())
196+sepByAllWords = Stream.parse (wrds even Fold.drain)
197+ where
198+ wrds p = PR.sepByAll (PR.takeWhile (not . p) Fold.drain) (PR.dropWhile p)
199+
200+-- Returning a list to compare with the sepBy1 in ParserK
201+{-# INLINE sepBy1 #-}
202+sepBy1 :: Monad m => Stream m Int -> m (Either ParseError [Int])
203+sepBy1 xs = do
204+ Stream.parse (PR.sepBy1 (PR.satisfy odd) (PR.satisfy even) Fold.toList) xs
205+
206+{-# INLINE sepByWords1 #-}
207+sepByWords1 :: Monad m => Stream m Int -> m (Either ParseError ())
208+sepByWords1 = Stream.parse (wrds even Fold.drain)
209+ where
210+ wrds p = PR.sepBy1 (PR.takeWhile (not . p) Fold.drain) (PR.dropWhile p)
211+
212+{-# INLINE deintercalate #-}
213+deintercalate :: Monad m => Int -> Stream m Int -> m (Either ParseError ())
214+deintercalate _ = Stream.parse (partition even)
215+
216+ where
217+
218+ partition p =
219+ PR.deintercalate
220+ (PR.takeWhile (not . p) Fold.sum) (PR.takeWhile p Fold.sum) Fold.drain
221+
222+{-# INLINE deintercalate1 #-}
223+deintercalate1 :: Monad m => Int -> Stream m Int -> m (Either ParseError ())
224+deintercalate1 _ = Stream.parse (partition even)
225+
226+ where
227+
228+ partition p =
229+ PR.deintercalate1
230+ (PR.takeWhile (not . p) Fold.sum) (PR.takeWhile p Fold.sum) Fold.drain
231+
232+{-# INLINE deintercalateAll #-}
233+deintercalateAll :: Monad m => Int -> Stream m Int -> m (Either ParseError ())
234+deintercalateAll _ = Stream.parse (partition even)
235+
236+ where
237+
238+ partition p =
239+ PR.deintercalateAll
240+ (PR.takeWhile (not . p) Fold.sum) (PR.takeWhile p Fold.sum) Fold.drain
241+
242+{-# INLINE manyWordByEven #-}
243+manyWordByEven :: Monad m => Stream m Int -> m (Either ParseError ())
244+manyWordByEven = Stream.parse (PR.many (PR.wordBy even Fold.drain) Fold.drain)
245+
246+{-# INLINE many #-}
247+many :: Monad m => Stream m Int -> m (Either ParseError Int)
248+many = Stream.parse (PR.many (PR.satisfy (> 0)) Fold.length)
249+
250+{-# INLINE manyAlt #-}
251+manyAlt :: Monad m => Stream m Int -> m Int
252+manyAlt xs = do
253+ x <- Stream.parse (AP.many (PR.satisfy (> 0))) xs
254+ return $ Prelude.length x
255+
256+{-# INLINE some #-}
257+some :: Monad m => Stream m Int -> m (Either ParseError Int)
258+some = Stream.parse (PR.some (PR.satisfy (> 0)) Fold.length)
259+
260+{-# INLINE someAlt #-}
261+someAlt :: Monad m => Stream m Int -> m Int
262+someAlt xs = do
263+ x <- Stream.parse (AP.some (PR.satisfy (> 0))) xs
264+ return $ Prelude.length x
265+
266+{-# INLINE manyTill #-}
267+manyTill :: Monad m => Int -> Stream m Int -> m (Either ParseError Int)
268+manyTill value =
269+ Stream.parse (PR.manyTill (PR.satisfy (> 0)) (PR.satisfy (== value)) Fold.length)
270+
271+{-# INLINE splitAp2 #-}
272+splitAp2 :: Monad m
273+ => Int -> Stream m Int -> m (Either ParseError ((), ()))
274+splitAp2 value =
275+ Stream.parse
276+ ((,)
277+ <$> PR.dropWhile (<= (value `div` 2))
278+ <*> PR.dropWhile (<= value)
279+ )
280+
281+{-# INLINE splitAp4 #-}
282+splitAp4 :: Monad m
283+ => Int -> Stream m Int -> m (Either ParseError ())
284+splitAp4 value =
285+ Stream.parse
286+ ( (\() () () () -> ())
287+ <$> PR.dropWhile (<= (value * 1 `div` 4))
288+ <*> PR.dropWhile (<= (value * 2 `div` 4))
289+ <*> PR.dropWhile (<= (value * 3 `div` 4))
290+ <*> PR.dropWhile (<= value)
291+ )
292+
293+{-# INLINE splitAp8 #-}
294+splitAp8 :: Monad m
295+ => Int -> Stream m Int -> m (Either ParseError ())
296+splitAp8 value =
297+ Stream.parse
298+ ( (\() () () () () () () () -> ())
299+ <$> PR.dropWhile (<= (value * 1 `div` 8))
300+ <*> PR.dropWhile (<= (value * 2 `div` 8))
301+ <*> PR.dropWhile (<= (value * 3 `div` 8))
302+ <*> PR.dropWhile (<= (value * 4 `div` 8))
303+ <*> PR.dropWhile (<= (value * 5 `div` 8))
304+ <*> PR.dropWhile (<= (value * 6 `div` 8))
305+ <*> PR.dropWhile (<= (value * 7 `div` 8))
306+ <*> PR.dropWhile (<= value)
307+ )
308+
309+{-# INLINE splitApBefore #-}
310+splitApBefore :: Monad m
311+ => Int -> Stream m Int -> m (Either ParseError ())
312+splitApBefore value =
313+ Stream.parse
314+ ( PR.dropWhile (<= (value `div` 2))
315+ *> PR.dropWhile (<= value)
316+ )
317+
318+{-# INLINE splitApAfter #-}
319+splitApAfter :: Monad m
320+ => Int -> Stream m Int -> m (Either ParseError ())
321+splitApAfter value =
322+ Stream.parse
323+ ( PR.dropWhile (<= (value `div` 2))
324+ <* PR.dropWhile (<= value)
325+ )
326+
327+{-# INLINE splitWith2 #-}
328+splitWith2 :: Monad m
329+ => Int -> Stream m Int -> m (Either ParseError ((), ()))
330+splitWith2 value =
331+ Stream.parse
332+ (PR.splitWith (,)
333+ (PR.dropWhile (<= (value `div` 2)))
334+ (PR.dropWhile (<= value))
335+ )
336+
337+{-# INLINE split_ #-}
338+split_ :: Monad m
339+ => Int -> Stream m Int -> m (Either ParseError ())
340+split_ value =
341+ Stream.parse
342+ (PR.split_
343+ (PR.dropWhile (<= (value `div` 2)))
344+ (PR.dropWhile (<= value))
345+ )
346+
347+-- XXX dropWhile with applicative does not fuse
348+-- PR.dropWhile (<= (value * 1 `div` 4)) *> PR.die "alt"
349+{-# INLINE takeWhileFail #-}
350+takeWhileFail :: Monad m => (a -> Bool) -> Fold m a b -> Parser a m b
351+takeWhileFail predicate (Fold fstep finitial _ ffinal) =
352+ Parser step initial extract
353+
354+ where
355+
356+ initial = do
357+ res <- finitial
358+ return $ case res of
359+ Fold.Partial s -> IPartial s
360+ Fold.Done b -> IDone b
361+
362+ step s a =
363+ if predicate a
364+ then do
365+ fres <- fstep s a
366+ return
367+ $ case fres of
368+ Fold.Partial s1 -> Partial 0 s1
369+ Fold.Done b -> Done 0 b
370+ else return $ Error "fail"
371+
372+ extract s = fmap (Done 0) (ffinal s)
373+
374+{-# INLINE alt2 #-}
375+alt2 :: Monad m
376+ => Int -> Stream m Int -> m (Either ParseError ())
377+alt2 value =
378+ Stream.parse
379+ (PR.alt
380+ (takeWhileFail (<= (value `div` 2)) Fold.drain)
381+ (PR.dropWhile (<= value))
382+ )
383+
384+{-# INLINE alt4 #-}
385+alt4 :: Monad m
386+ => Int -> Stream m Int -> m (Either ParseError ())
387+alt4 value =
388+ Stream.parse
389+ ( takeWhileFail (<= (value * 1 `div` 4)) Fold.drain
390+ <|> takeWhileFail (<= (value * 2 `div` 4)) Fold.drain
391+ <|> takeWhileFail (<= (value * 3 `div` 4)) Fold.drain
392+ <|> PR.dropWhile (<= value)
393+ )
394+
395+{-# INLINE alt8 #-}
396+alt8 :: Monad m
397+ => Int -> Stream m Int -> m (Either ParseError ())
398+alt8 value =
399+ Stream.parse
400+ ( takeWhileFail (<= (value * 1 `div` 8)) Fold.drain
401+ <|> takeWhileFail (<= (value * 2 `div` 8)) Fold.drain
402+ <|> takeWhileFail (<= (value * 3 `div` 8)) Fold.drain
403+ <|> takeWhileFail (<= (value * 4 `div` 8)) Fold.drain
404+ <|> takeWhileFail (<= (value * 5 `div` 8)) Fold.drain
405+ <|> takeWhileFail (<= (value * 6 `div` 8)) Fold.drain
406+ <|> takeWhileFail (<= (value * 7 `div` 8)) Fold.drain
407+ <|> PR.dropWhile (<= value)
408+ )
409+
410+{-# INLINE alt16 #-}
411+alt16 :: Monad m
412+ => Int -> Stream m Int -> m (Either ParseError ())
413+alt16 value =
414+ Stream.parse
415+ ( takeWhileFail (<= (value * 1 `div` 16)) Fold.drain
416+ <|> takeWhileFail (<= (value * 2 `div` 16)) Fold.drain
417+ <|> takeWhileFail (<= (value * 3 `div` 16)) Fold.drain
418+ <|> takeWhileFail (<= (value * 4 `div` 16)) Fold.drain
419+ <|> takeWhileFail (<= (value * 5 `div` 16)) Fold.drain
420+ <|> takeWhileFail (<= (value * 6 `div` 16)) Fold.drain
421+ <|> takeWhileFail (<= (value * 8 `div` 16)) Fold.drain
422+ <|> takeWhileFail (<= (value * 9 `div` 16)) Fold.drain
423+ <|> takeWhileFail (<= (value * 10 `div` 16)) Fold.drain
424+ <|> takeWhileFail (<= (value * 11 `div` 16)) Fold.drain
425+ <|> takeWhileFail (<= (value * 12 `div` 16)) Fold.drain
426+ <|> takeWhileFail (<= (value * 13 `div` 16)) Fold.drain
427+ <|> takeWhileFail (<= (value * 14 `div` 16)) Fold.drain
428+ <|> takeWhileFail (<= (value * 15 `div` 16)) Fold.drain
429+ <|> PR.dropWhile (<= value)
430+ )
431+
432+{-# INLINE altSmall #-}
433+altSmall :: Monad m
434+ => Int -> Stream m Int -> m ()
435+altSmall value =
436+ Stream.fold Fold.drain .
437+ Stream.parseMany
438+ (PR.alt
439+ (PR.satisfy (>= value) *> PR.die "alt")
440+ (PR.satisfy (<= value))
441+ )
442+
443+{-# INLINE monad #-}
444+monad :: Monad m
445+ => Int -> Stream m Int -> m (Either ParseError ())
446+monad value =
447+ Stream.parse
448+ $ do
449+ PR.dropWhile (<= (value `div` 2))
450+ PR.dropWhile (<= value)
451+
452+{-# INLINE monad4 #-}
453+monad4 :: Monad m
454+ => Int -> Stream m Int -> m (Either ParseError ())
455+monad4 value =
456+ Stream.parse $ do
457+ PR.dropWhile (<= (value `div` 4))
458+ PR.dropWhile (<= (value `div` 2))
459+ PR.dropWhile (<= (value * 3 `div` 4))
460+ PR.dropWhile (<= value)
461+
462+{-# INLINE monad8 #-}
463+monad8 :: Monad m
464+ => Int -> Stream m Int -> m (Either ParseError ())
465+monad8 value =
466+ Stream.parse $ do
467+ PR.dropWhile (<= (value * 1 `div` 8))
468+ PR.dropWhile (<= (value * 2 `div` 8))
469+ PR.dropWhile (<= (value * 3 `div` 8))
470+ PR.dropWhile (<= (value * 4 `div` 8))
471+ PR.dropWhile (<= (value * 5 `div` 8))
472+ PR.dropWhile (<= (value * 6 `div` 8))
473+ PR.dropWhile (<= (value * 7 `div` 8))
474+ PR.dropWhile (<= value)
475+
476+{-# INLINE monad16 #-}
477+monad16 :: Monad m
478+ => Int -> Stream m Int -> m (Either ParseError ())
479+monad16 value =
480+ Stream.parse $ do
481+ PR.dropWhile (<= (value * 1 `div` 16))
482+ PR.dropWhile (<= (value * 2 `div` 16))
483+ PR.dropWhile (<= (value * 3 `div` 16))
484+ PR.dropWhile (<= (value * 4 `div` 16))
485+ PR.dropWhile (<= (value * 5 `div` 16))
486+ PR.dropWhile (<= (value * 6 `div` 16))
487+ PR.dropWhile (<= (value * 7 `div` 16))
488+ PR.dropWhile (<= (value * 8 `div` 16))
489+ PR.dropWhile (<= (value * 9 `div` 16))
490+ PR.dropWhile (<= (value * 10 `div` 16))
491+ PR.dropWhile (<= (value * 11 `div` 16))
492+ PR.dropWhile (<= (value * 12 `div` 16))
493+ PR.dropWhile (<= (value * 13 `div` 16))
494+ PR.dropWhile (<= (value * 14 `div` 16))
495+ PR.dropWhile (<= (value * 15 `div` 16))
496+ PR.dropWhile (<= value)
497+
498+{-# INLINE takeEndBy_ #-}
499+takeEndBy_ :: Monad m
500+ => Int -> Stream m Int -> m (Either ParseError ())
501+takeEndBy_ value = Stream.parse (PR.takeEndBy_ (>= value) (PR.fromFold Fold.drain))
502+
503+{-
504+{-# INLINE teeAllAny #-}
505+teeAllAny :: Monad m
506+ => Int -> Stream m Int -> m ((), ())
507+teeAllAny value =
508+ Stream.parse
509+ (PR.teeWith (,)
510+ (PR.dropWhile (<= value))
511+ (PR.dropWhile (<= value))
512+ )
513+
514+{-# INLINE teeFstAllAny #-}
515+teeFstAllAny :: Monad m
516+ => Int -> Stream m Int -> m ((), ())
517+teeFstAllAny value =
518+ Stream.parse
519+ (PR.teeWithFst (,)
520+ (PR.dropWhile (<= value))
521+ (PR.dropWhile (<= value))
522+ )
523+
524+{-# INLINE shortestAllAny #-}
525+shortestAllAny :: Monad m
526+ => Int -> Stream m Int -> m (Either ParseError ())
527+shortestAllAny value =
528+ Stream.parse
529+ (PR.shortest
530+ (PR.dropWhile (<= value))
531+ (PR.dropWhile (<= value))
532+ )
533+
534+{-# INLINE longestAllAny #-}
535+longestAllAny :: Monad m
536+ => Int -> Stream m Int -> m (Either ParseError ())
537+longestAllAny value =
538+ Stream.parse
539+ (PR.longest
540+ (PR.dropWhile (<= value))
541+ (PR.dropWhile (<= value))
542+ )
543+-}
544+
545+-------------------------------------------------------------------------------
546+-- Spanning
547+-------------------------------------------------------------------------------
548+
549+{-# INLINE span #-}
550+span :: Monad m => Int -> Stream m Int -> m (Either ParseError ((), ()))
551+span value = Stream.parse (PR.span (<= (value `div` 2)) Fold.drain Fold.drain)
552+
553+{-# INLINE spanBy #-}
554+spanBy :: Monad m => Int -> Stream m Int -> m (Either ParseError ((), ()))
555+spanBy value =
556+ Stream.parse (PR.spanBy (\_ i -> i <= (value `div` 2)) Fold.drain Fold.drain)
557+
558+{-# INLINE spanByRolling #-}
559+spanByRolling :: Monad m => Int -> Stream m Int -> m (Either ParseError ((), ()))
560+spanByRolling value =
561+ Stream.parse (PR.spanByRolling (\_ i -> i <= value `div` 2) Fold.drain Fold.drain)
562+
563+parseManyChunksOfSum :: Int -> Handle -> IO Int
564+parseManyChunksOfSum n inh =
565+ Stream.fold Fold.length
566+ $ Stream.parseMany
567+ (PR.fromFold $ Fold.take n Fold.sum)
568+ (Stream.unfold Handle.reader inh)
569+
570+-------------------------------------------------------------------------------
571+-- Parsers in which -fspec-constr-recursive=16 is problematic
572+-------------------------------------------------------------------------------
573+
574+-- XXX -fspec-constr-recursive=16 makes GHC go beserk when compiling these.
575+-- We need to fix GHC so that we can have better control over that option or do
576+-- not have to rely on it.
577+--
578+{-# INLINE lookAhead #-}
579+lookAhead :: Monad m => Int -> Stream m Int -> m (Either ParseError ())
580+lookAhead value =
581+ Stream.parse (PR.lookAhead (PR.takeWhile (<= value) Fold.drain) $> ())
582+
583+-- XXX The timing of this increased 3x after the stepify extract changes.
584+{-# INLINE sequenceA_ #-}
585+sequenceA_ :: Monad m => Int -> Stream m Int -> m (Either ParseError ())
586+sequenceA_ value =
587+ Stream.parse (F.sequenceA_ $ replicate value (PR.satisfy (> 0)))
588+
589+-- quadratic complexity
590+{-# INLINE sequenceA #-}
591+sequenceA :: Monad m => Int -> Stream m Int -> m Int
592+sequenceA value xs = do
593+ x <- Stream.parse (TR.sequenceA (replicate value (PR.satisfy (> 0)))) xs
594+ return $ length x
595+
596+-- quadratic complexity
597+{-# INLINE sequence #-}
598+sequence :: Monad m => Int -> Stream m Int -> m Int
599+sequence value xs = do
600+ x <- Stream.parse (TR.sequence (replicate value (PR.satisfy (> 0)))) xs
601+ return $ length x
602+
603+{-# INLINE sequence_ #-}
604+sequence_ :: Monad m => Int -> Stream m Int -> m (Either ParseError ())
605+sequence_ value xs =
606+ Stream.parse (foldr f (return ()) (replicate value (PR.takeBetween 0 1 Fold.drain))) xs
607+
608+ where
609+
610+ {-# INLINE f #-}
611+ f m k = m >>= (\_ -> k)
612+
613+-- choice using the "Alternative" instance with direct style parser type has
614+-- quadratic performance complexity.
615+--
616+{-# INLINE choiceAsum #-}
617+choiceAsum :: Monad m => Int -> Stream m Int -> m (Either ParseError Int)
618+choiceAsum value =
619+ Stream.parse (F.asum (replicate value (PR.satisfy (< 0)))
620+ AP.<|> PR.satisfy (> 0))
621+
622+{-
623+{-# INLINE choice #-}
624+choice :: Monad m => Int -> Stream m Int -> m (Either ParseError Int)
625+choice value =
626+ Stream.parse
627+ (PR.choice (replicate value (PR.satisfy (< 0))) AP.<|> PR.satisfy (> 0))
628+-}
629+
630+-------------------------------------------------------------------------------
631+-- Parsing with unfolds
632+-------------------------------------------------------------------------------
633+
634+{-# INLINE parseManyUnfoldArrays #-}
635+parseManyUnfoldArrays :: Int -> [Array.Array Int] -> IO ()
636+parseManyUnfoldArrays count arrays = do
637+ let src = Producer.source (Just (Producer.OuterLoop arrays))
638+ let parser = PR.fromFold (Fold.take count Fold.drain)
639+ let readSrc =
640+ Producer.producer
641+ $ Producer.concat Producer.fromList Array.producer
642+ let streamParser =
643+ Producer.simplify (Producer.parseMany parser readSrc)
644+ Stream.fold Fold.drain $ Stream.unfold streamParser src
645+
646+-------------------------------------------------------------------------------
647+-- Stream transformation
648+-------------------------------------------------------------------------------
649+
650+{-# INLINE parseMany #-}
651+parseMany :: Monad m => Int -> Stream m Int -> m ()
652+parseMany n =
653+ Stream.fold Fold.drain
654+ . fmap getSum
655+ . Stream.catRights . Stream.parseMany (PR.fromFold $ Fold.take n Fold.mconcat)
656+ . fmap Sum
657+
658+{-# INLINE parseManyGroupBy #-}
659+parseManyGroupBy :: Monad m => (Int -> Int -> Bool) -> Stream m Int -> m ()
660+parseManyGroupBy cmp =
661+ Stream.fold Fold.drain . Stream.parseMany (PR.groupBy cmp Fold.drain)
662+
663+{-# INLINE parseManyGroupsRolling #-}
664+parseManyGroupsRolling :: Monad m => Bool -> Stream m Int -> m ()
665+parseManyGroupsRolling b =
666+ Stream.fold Fold.drain
667+ . Stream.parseMany (PR.groupByRolling (\_ _ -> b) Fold.drain)
668+
669+{-# INLINE parseManyGroupsRollingEither #-}
670+parseManyGroupsRollingEither :: Monad m =>
671+ (Int -> Int -> Bool) -> Int -> m ()
672+parseManyGroupsRollingEither cmp value = do
673+ sourceUnfoldrM value 1
674+ & Stream.parseMany (PR.groupByRollingEither cmp Fold.drain Fold.drain)
675+ & Stream.fold Fold.drain
676+
677+{-# INLINE parseManyGroupsRollingEitherAlt #-}
678+parseManyGroupsRollingEitherAlt :: Monad m =>
679+ (Int -> Int -> Bool) -> Int -> m ()
680+parseManyGroupsRollingEitherAlt cmp value = do
681+ sourceUnfoldrM value 1
682+ -- Make the input unsorted.
683+ & fmap (\x -> if even x then x + 2 else x)
684+ & Stream.parseMany (PR.groupByRollingEither cmp Fold.drain Fold.drain)
685+ & Stream.fold Fold.drain
686+
687+{-# INLINE parseIterate #-}
688+parseIterate :: Monad m => Int -> Stream m Int -> m ()
689+parseIterate n =
690+ Stream.fold Fold.drain
691+ . fmap getSum
692+ . Stream.catRights
693+ . Stream.parseIterate
694+ (PR.fromFold . Fold.take n . Fold.sconcat)
695+ (Sum 0)
696+ . fmap Sum
697+
698+{-# INLINE concatSequence #-}
699+concatSequence :: Monad m => Stream m Int -> m (Either ParseError ())
700+concatSequence =
701+ Stream.parse $ PR.sequence (Stream.repeat PR.one) Fold.drain
702+
703+-------------------------------------------------------------------------------
704+-- Benchmarks
705+-------------------------------------------------------------------------------
706+
707+moduleName :: String
708+moduleName = "Data.Parser"
709+
710+instance NFData ParseError where
711+ {-# INLINE rnf #-}
712+ rnf (ParseError x) = rnf x
713+
714+o_1_space_serial :: Int -> [Benchmark]
715+o_1_space_serial value =
716+ [ benchIOSink value "takeBetween" $ takeBetween value
717+ , benchIOSink value "takeWhile" $ takeWhile value
718+ , benchIOSink value "takeWhileP" $ takeWhileP value
719+ , benchIOSink value "takeP" $ takeP value
720+ , benchIOSink value "dropWhile" $ dropWhile value
721+ , benchIOSink value "takeStartBy" $ takeStartBy value
722+ , benchIOSink value "takeEndBy_" $ takeEndBy_ value
723+ , benchIOSink value "groupBy" $ groupBy
724+ , benchIOSink value "groupByRolling" $ groupByRolling
725+ , benchIOSink value "wordBy" $ wordBy value
726+ , benchIOSink value "sepBy (words)" sepByWords
727+ , benchIOSink value "sepByAll (words)" sepByAllWords
728+ , benchIOSink value "sepBy1 (words)" sepByWords1
729+ , benchIOSink value "deintercalate" $ deintercalate value
730+ , benchIOSink value "deintercalate1" $ deintercalate1 value
731+ , benchIOSink value "deintercalateAll" $ deintercalateAll value
732+ -- Applicative and Monad
733+ , benchIOSink value "splitAp2" $ splitAp2 value
734+ , benchIOSink value "splitAp4" $ splitAp4 value
735+ , benchIOSink value "splitAp8" $ splitAp8 value
736+ , benchIOSink value "splitApBefore" $ splitApBefore value
737+ , benchIOSink value "splitApAfter" $ splitApAfter value
738+ , benchIOSink value "splitWith2" $ splitWith2 value
739+ , benchIOSink value "span" $ span value
740+ , benchIOSink value "spanBy" $ spanBy value
741+ , benchIOSink value "spanByRolling" $ spanByRolling value
742+ , benchIOSink value "monad2" $ monad value
743+ , benchIOSink value "monad4" $ monad4 value
744+ , benchIOSink value "monad8" $ monad8 value
745+ -- Alternative
746+ , benchIOSink value "alt2parseMany" $ altSmall value
747+ , benchIOSink value "alt2" $ alt2 value
748+ , benchIOSink value "alt4" $ alt4 value
749+ , benchIOSink value "alt8" $ alt8 value
750+ , benchIOSink value "alt16" $ alt16 value
751+ , benchIOSink value "many" many
752+ , benchIOSink value "many (wordBy even)" $ manyWordByEven
753+ , benchIOSink value "some" some
754+ , benchIOSink value "manyTill" $ manyTill value
755+ , benchIOSink value "parseMany" $ parseMany value
756+ , benchIOSink value "parseMany (take 1)" (parseMany 1)
757+ , benchIOSink value "parseMany (take all)" (parseMany value)
758+ , benchIOSink value "parseMany (groupBy (<))" (parseManyGroupBy (<))
759+ , benchIOSink value "parseMany (groupBy (==))" (parseManyGroupBy (==))
760+ , benchIOSink value "parseMany groupRollingBy (bound groups)"
761+ $ parseManyGroupsRolling False
762+ , benchIOSink value "parseMany groupRollingBy (1 group)"
763+ $ parseManyGroupsRolling True
764+ , bench "parseMany groupRollingByEither (Left)"
765+ $ nfIO $ parseManyGroupsRollingEitherLeft
766+ , bench "parseMany groupRollingByEither (Right)"
767+ $ nfIO $ parseManyGroupsRollingEitherRight
768+ , bench "parseMany groupRollingByEither (Alternating)"
769+ $ nfIO $ parseManyGroupsRollingEitherAlt1
770+ , benchIOSink value "parseIterate (take 1)" (parseIterate 1)
771+ , benchIOSink value "parseIterate (take all)" (parseIterate value)
772+ , benchIOSink value "concatSequence" concatSequence
773+ {-
774+ , benchIOSink value "tee" $ teeAllAny value
775+ , benchIOSink value "teeFst" $ teeFstAllAny value
776+ , benchIOSink value "shortest" $ shortestAllAny value
777+ , benchIOSink value "longest" $ longestAllAny value
778+ -}
779+ , benchIOSink value "streamEqBy" (streamEqBy value)
780+ ]
781+
782+ where
783+
784+ {-# NOINLINE parseManyGroupsRollingEitherLeft #-}
785+ parseManyGroupsRollingEitherLeft = parseManyGroupsRollingEither (<) value
786+
787+ {-# NOINLINE parseManyGroupsRollingEitherRight #-}
788+ parseManyGroupsRollingEitherRight = parseManyGroupsRollingEither (>) value
789+
790+ {-# NOINLINE parseManyGroupsRollingEitherAlt1 #-}
791+ parseManyGroupsRollingEitherAlt1 =
792+ parseManyGroupsRollingEitherAlt (>) value
793+
794+o_1_space_filesystem :: BenchEnv -> [Benchmark]
795+o_1_space_filesystem env =
796+ [ mkBench ("S.parseMany (Fold.take " ++ show (bigSize env) ++ " Fold.sum)") env
797+ $ \inh _ -> noinline parseManyChunksOfSum (bigSize env) inh
798+ , mkBench "S.parseMany (Fold.take 1 Fold.sum)" env
799+ $ \inh _ -> inline parseManyChunksOfSum 1 inh
800+ ]
801+
802+o_1_space_serial_unfold :: Int -> [Array.Array Int] -> [Benchmark]
803+o_1_space_serial_unfold bound arrays =
804+ [ bench "parseMany/Unfold/1000 arrays/take all"
805+ $ nfIO $ parseManyUnfoldArrays bound arrays
806+ , bench "parseMany/Unfold/1000 arrays/take 1"
807+ $ nfIO $ parseManyUnfoldArrays 1 arrays
808+ ]
809+
810+o_n_heap_serial :: Int -> [Benchmark]
811+o_n_heap_serial value =
812+ [
813+ benchIOSink value "takeEQ" $ takeEQ value
814+ , benchIOSink value "takeGE" $ takeGE value
815+
816+ -- lookahead benchmark holds the entire input till end
817+ , benchIOSink value "lookAhead" $ lookAhead value
818+
819+ -- o-n-heap because of backtracking
820+ , benchIOSrc sourceEscapedFrames value "takeFramedByEsc_"
821+ $ takeFramedByEsc_ value
822+
823+ -- non-linear time complexity (parserD)
824+ , benchIOSink value "split_" $ split_ value
825+ -- XXX Takes lot of space when run on a long stream, why?
826+ , benchIOSink value "monad16" $ monad16 value
827+
828+ -- These show non-linear time complexity.
829+ -- They accumulate the results in a list.
830+ , benchIOSink value "sepBy1" sepBy1
831+ , benchIOSink value "manyAlt" manyAlt
832+ , benchIOSink value "someAlt" someAlt
833+ , benchIOSink value "listEqBy" (listEqBy value)
834+ ]
835+
836+-- accumulate results in a list in IO
837+o_n_space_serial :: Int -> [Benchmark]
838+o_n_space_serial value =
839+ [ benchIOSink value "sequenceA/100" $ sequenceA (value `div` 100)
840+ , benchIOSink value "sequenceA_/100" $ sequenceA_ (value `div` 100)
841+ , benchIOSink value "sequence/100" $ sequence (value `div` 100)
842+ , benchIOSink value "sequence_/100" $ sequence_ (value `div` 100)
843+ , benchIOSink value "choice (asum)/100" $ choiceAsum (value `div` 100)
844+ -- , benchIOSink value "choice/100" $ choice (value `div` 100)
845+ ]
846+
847+-------------------------------------------------------------------------------
848+-- Driver
849+-------------------------------------------------------------------------------
850+
851+main :: IO ()
852+main = do
853+#ifndef FUSION_CHECK
854+ env <- mkHandleBenchEnv
855+ runWithCLIOptsEnv defaultStreamSize alloc (allBenchmarks env)
856+
857+ where
858+
859+ alloc value = Stream.fold Fold.toList $ Stream.chunksOf 100 $ sourceUnfoldrM value 0
860+
861+ allBenchmarks env arrays value =
862+ [ bgroup (o_1_space_prefix moduleName) (o_1_space_serial value)
863+ , bgroup
864+ (o_1_space_prefix moduleName ++ "/filesystem")
865+ (o_1_space_filesystem env)
866+ , bgroup (o_1_space_prefix moduleName)
867+ (o_1_space_serial_unfold value arrays)
868+ , bgroup (o_n_heap_prefix moduleName) (o_n_heap_serial value)
869+ , bgroup (o_n_space_prefix moduleName) (o_n_space_serial value)
870+ ]
871+#else
872+ -- Enable FUSION_CHECK macro at the beginning of the file
873+ -- Enable one benchmark below, and run the benchmark
874+ -- Check the .dump-simpl output
875+ let value = 100000
876+ -- let input = sourceUnfoldrM value 1
877+ -- manyTill value input
878+ -- deintercalate value input
879+ -- deintercalate1 value input
880+ -- deintercalateAll value input
881+ -- sepByWords input
882+ -- sepByAllWords input
883+ -- sepBy1 input
884+ -- sepByWords1 input
885+ takeFramedByEsc_ value (sourceEscapedFrames value 1)
886+ return ()
887+#endif
benchmark/Streamly/Benchmark/Data/ParserK.hsnew file+437
@@ -0,0 +1,437 @@
1+-- |
2+-- Module : Streamly.Benchmark.Data.ParserK
3+-- Copyright : (c) 2020 Composewell Technologies
4+--
5+-- License : BSD-3-Clause
6+-- Maintainer : streamly@composewell.com
7+
8+-- BENCH_CHUNKED -> adaptC
9+-- BENCH_CHUNKED_GENERIC -> adaptCG
10+-- BENCH_SINGULAR -> adapt
11+
12+{-# LANGUAGE CPP #-}
13+{-# LANGUAGE FlexibleContexts #-}
14+{-# OPTIONS_GHC -Wno-orphans #-}
15+
16+module Main
17+ (
18+ main
19+ ) where
20+
21+import Control.Applicative ((<|>))
22+import Control.DeepSeq (NFData(..))
23+import Control.Monad.IO.Class (MonadIO)
24+import Data.Foldable (asum)
25+#ifdef BENCH_CHUNKED
26+import Streamly.Data.Array (Array, Unbox)
27+#endif
28+#ifdef BENCH_CHUNKED_GENERIC
29+import Streamly.Data.Array.Generic (Array)
30+import qualified Streamly.Internal.Data.Array.Generic as GenArr (chunksOf)
31+#endif
32+import Streamly.Internal.Data.Fold (Fold(..))
33+import Streamly.Data.StreamK (StreamK)
34+import Streamly.Internal.Data.Parser
35+ (ParseError(..), Parser(..), Initial(..), Step(..))
36+import Streamly.Internal.Data.Stream (Stream)
37+import System.Random (randomRIO)
38+import Prelude hiding
39+ (any, all, take, sequence, sequence_, sequenceA, takeWhile)
40+
41+import qualified Control.Applicative as AP
42+import qualified Data.Foldable as F
43+import qualified Data.Traversable as TR
44+import qualified Streamly.Data.Stream as Stream
45+import qualified Streamly.Data.Fold as FL
46+import qualified Streamly.Internal.Data.Fold as Fold
47+import qualified Streamly.Data.Parser as PRD
48+import qualified Streamly.Internal.Data.ParserK as PR
49+import qualified Streamly.Internal.Data.StreamK as StreamK
50+
51+import Test.Tasty.Bench
52+import Streamly.Benchmark.Common
53+
54+-------------------------------------------------------------------------------
55+-- CPP Helpers
56+-------------------------------------------------------------------------------
57+
58+#ifdef BENCH_CHUNKED
59+
60+#define PARSE_OP StreamK.parseChunks
61+#define FROM_PARSER adaptC
62+#define INPUT (Array a)
63+#define PARSE_ELEM (Array Int)
64+#define CONSTRAINT_IO (MonadIO m, Unbox a)
65+#define CONSTRAINT (Monad m, Unbox a)
66+#define MODULE_NAME "Data.ParserK.Chunked"
67+
68+#endif
69+
70+#ifdef BENCH_CHUNKED_GENERIC
71+
72+#define PARSE_OP StreamK.parseChunksGeneric
73+#define FROM_PARSER adaptCG
74+#define INPUT (Array a)
75+#define PARSE_ELEM (Array Int)
76+#define CONSTRAINT_IO (MonadIO m)
77+#define CONSTRAINT (Monad m)
78+#define MODULE_NAME "Data.ParserK.Chunked.Generic"
79+
80+#endif
81+
82+#ifdef BENCH_SINGULAR
83+
84+#define PARSE_OP StreamK.parse
85+#define FROM_PARSER adapt
86+#define INPUT a
87+#define PARSE_ELEM Int
88+#define CONSTRAINT_IO (MonadIO m)
89+#define CONSTRAINT (Monad m)
90+#define MODULE_NAME "Data.ParserK"
91+
92+#endif
93+
94+-------------------------------------------------------------------------------
95+-- Utilities
96+-------------------------------------------------------------------------------
97+
98+-- XXX these can be moved to the common module
99+
100+{-# INLINE sourceUnfoldrM #-}
101+sourceUnfoldrM :: Monad m => Int -> Int -> Stream m Int
102+sourceUnfoldrM value n = Stream.unfoldrM step n
103+ where
104+ step cnt =
105+ if cnt > n + value
106+ then return Nothing
107+ else return (Just (cnt, cnt + 1))
108+
109+-- | Takes a fold method, and uses it with a default source.
110+{-# INLINE benchIOSink #-}
111+benchIOSink
112+ :: NFData b
113+ => Int -> String -> (StreamK IO PARSE_ELEM -> IO b) -> Benchmark
114+benchIOSink value name f =
115+ bench name $ nfIO $ randomRIO (1,1)
116+ >>= f
117+ . StreamK.fromStream
118+#ifdef BENCH_CHUNKED
119+ . Stream.chunksOf 4000
120+#endif
121+#ifdef BENCH_CHUNKED_GENERIC
122+ . GenArr.chunksOf 4000
123+#endif
124+ . sourceUnfoldrM value
125+
126+-------------------------------------------------------------------------------
127+-- Parsers
128+-------------------------------------------------------------------------------
129+
130+{-# INLINE one #-}
131+one :: MonadIO m =>
132+ Int -> StreamK m PARSE_ELEM -> m (Either ParseError (Maybe Int))
133+one value = PARSE_OP p
134+
135+ where
136+
137+ p = do
138+ m <- PR.FROM_PARSER (PRD.fromFold FL.one)
139+ case m of
140+ Just i -> if i >= value then pure m else p
141+ Nothing -> pure Nothing
142+
143+{-# INLINE satisfy #-}
144+satisfy :: CONSTRAINT_IO => (a -> Bool) -> PR.ParserK INPUT m a
145+satisfy = PR.FROM_PARSER . PRD.satisfy
146+
147+{-# INLINE takeWhile #-}
148+takeWhile :: CONSTRAINT_IO => (a -> Bool) -> PR.ParserK INPUT m ()
149+takeWhile p = PR.FROM_PARSER $ PRD.takeWhile p FL.drain
150+
151+{-# INLINE takeWhileK #-}
152+takeWhileK :: MonadIO m =>
153+ Int -> StreamK m PARSE_ELEM -> m (Either ParseError ())
154+takeWhileK value = PARSE_OP (takeWhile (<= value))
155+
156+{-# INLINE splitAp2 #-}
157+splitAp2 :: MonadIO m
158+ => Int -> StreamK m PARSE_ELEM -> m (Either ParseError ((), ()))
159+splitAp2 value =
160+ PARSE_OP
161+ ((,)
162+ <$> takeWhile (<= (value `div` 2))
163+ <*> takeWhile (<= value)
164+ )
165+
166+{-# INLINE splitAp8 #-}
167+splitAp8 :: MonadIO m
168+ => Int -> StreamK m PARSE_ELEM -> m (Either ParseError ())
169+splitAp8 value =
170+ PARSE_OP
171+ ( (\() () () () () () () () -> ())
172+ <$> takeWhile (<= ( value `div` 8))
173+ <*> takeWhile (<= ((value * 2) `div` 8))
174+ <*> takeWhile (<= ((value * 3) `div` 8))
175+ <*> takeWhile (<= ((value * 4) `div` 8))
176+ <*> takeWhile (<= ((value * 5) `div` 8))
177+ <*> takeWhile (<= ((value * 6) `div` 8))
178+ <*> takeWhile (<= ((value * 7) `div` 8))
179+ <*> takeWhile (<= value)
180+ )
181+
182+{-# INLINE sequenceA #-}
183+sequenceA :: MonadIO m => Int -> StreamK m PARSE_ELEM -> m Int
184+sequenceA value xs = do
185+ let parser = satisfy (> 0)
186+ list = Prelude.replicate value parser
187+ x <- PARSE_OP (TR.sequenceA list) xs
188+ return $ Prelude.length x
189+
190+{-# INLINE sequenceA_ #-}
191+sequenceA_ :: MonadIO m =>
192+ Int -> StreamK m PARSE_ELEM -> m (Either ParseError ())
193+sequenceA_ value xs = do
194+ let parser = satisfy (> 0)
195+ list = Prelude.replicate value parser
196+ PARSE_OP (F.sequenceA_ list) xs
197+
198+{-# INLINE sequence #-}
199+sequence :: MonadIO m => Int -> StreamK m PARSE_ELEM -> m Int
200+sequence value xs = do
201+ let parser = satisfy (> 0)
202+ list = Prelude.replicate value parser
203+ x <- PARSE_OP (TR.sequence list) xs
204+ return $ Prelude.length x
205+
206+{-# INLINE sequence_ #-}
207+sequence_ :: MonadIO m =>
208+ Int -> StreamK m PARSE_ELEM -> m (Either ParseError ())
209+sequence_ value =
210+ let parser = satisfy (> 0)
211+ list = Prelude.replicate value parser
212+ in PARSE_OP (F.sequence_ list)
213+
214+{-# INLINE takeWhileFailD #-}
215+takeWhileFailD :: Monad m => (a -> Bool) -> Fold m a b -> Parser a m b
216+takeWhileFailD predicate (Fold fstep finitial _ ffinal) =
217+ Parser step initial extract
218+
219+ where
220+
221+ initial = do
222+ res <- finitial
223+ return $ case res of
224+ Fold.Partial s -> IPartial s
225+ Fold.Done b -> IDone b
226+
227+ step s a =
228+ if predicate a
229+ then do
230+ fres <- fstep s a
231+ return
232+ $ case fres of
233+ Fold.Partial s1 -> Partial 0 s1
234+ Fold.Done b -> Done 0 b
235+ else return $ Error "fail"
236+
237+ extract s = fmap (Done 0) (ffinal s)
238+
239+{-# INLINE takeWhileFail #-}
240+takeWhileFail :: CONSTRAINT =>
241+ (a -> Bool) -> Fold m a b -> PR.ParserK INPUT m b
242+takeWhileFail p f = PR.FROM_PARSER (takeWhileFailD p f)
243+
244+{-# INLINE alt2 #-}
245+alt2 :: MonadIO m
246+ => Int -> StreamK m PARSE_ELEM -> m (Either ParseError ())
247+alt2 value =
248+ PARSE_OP
249+ ( takeWhileFail (<= (value `div` 2)) Fold.drain
250+ <|> takeWhile (<= value)
251+ )
252+
253+{-# INLINE alt8 #-}
254+alt8 :: MonadIO m
255+ => Int -> StreamK m PARSE_ELEM -> m (Either ParseError ())
256+alt8 value =
257+ PARSE_OP
258+ ( takeWhileFail (<= ( value `div` 8)) Fold.drain
259+ <|> takeWhileFail (<= ((value * 2) `div` 8)) Fold.drain
260+ <|> takeWhileFail (<= ((value * 3) `div` 8)) Fold.drain
261+ <|> takeWhileFail (<= ((value * 4) `div` 8)) Fold.drain
262+ <|> takeWhileFail (<= ((value * 5) `div` 8)) Fold.drain
263+ <|> takeWhileFail (<= ((value * 6) `div` 8)) Fold.drain
264+ <|> takeWhileFail (<= ((value * 7) `div` 8)) Fold.drain
265+ <|> takeWhile (<= value)
266+ )
267+
268+{-# INLINE alt16 #-}
269+alt16 :: MonadIO m
270+ => Int -> StreamK m PARSE_ELEM -> m (Either ParseError ())
271+alt16 value =
272+ PARSE_OP
273+ ( takeWhileFail (<= ( value `div` 16)) Fold.drain
274+ <|> takeWhileFail (<= ((value * 2) `div` 16)) Fold.drain
275+ <|> takeWhileFail (<= ((value * 3) `div` 16)) Fold.drain
276+ <|> takeWhileFail (<= ((value * 4) `div` 16)) Fold.drain
277+ <|> takeWhileFail (<= ((value * 5) `div` 16)) Fold.drain
278+ <|> takeWhileFail (<= ((value * 6) `div` 16)) Fold.drain
279+ <|> takeWhileFail (<= ((value * 7) `div` 16)) Fold.drain
280+ <|> takeWhileFail (<= ((value * 8) `div` 16)) Fold.drain
281+ <|> takeWhileFail (<= ((value * 9) `div` 16)) Fold.drain
282+ <|> takeWhileFail (<= ((value * 10) `div` 16)) Fold.drain
283+ <|> takeWhileFail (<= ((value * 11) `div` 16)) Fold.drain
284+ <|> takeWhileFail (<= ((value * 12) `div` 16)) Fold.drain
285+ <|> takeWhileFail (<= ((value * 13) `div` 16)) Fold.drain
286+ <|> takeWhileFail (<= ((value * 14) `div` 16)) Fold.drain
287+ <|> takeWhileFail (<= ((value * 15) `div` 16)) Fold.drain
288+ <|> takeWhile (<= value)
289+ )
290+
291+{-# INLINE manyAlt #-}
292+manyAlt :: MonadIO m => StreamK m PARSE_ELEM -> m Int
293+manyAlt xs = do
294+ x <- PARSE_OP (AP.many (satisfy (> 0))) xs
295+ return $ Prelude.length x
296+
297+{-# INLINE someAlt #-}
298+someAlt :: MonadIO m => StreamK m PARSE_ELEM -> m Int
299+someAlt xs = do
300+ x <- PARSE_OP (AP.some (satisfy (> 0))) xs
301+ return $ Prelude.length x
302+
303+{-# INLINE choice #-}
304+choice :: MonadIO m =>
305+ Int -> StreamK m PARSE_ELEM -> m (Either ParseError Int)
306+choice value =
307+ PARSE_OP (asum (replicate value (satisfy (< 0)))
308+ AP.<|> satisfy (> 0))
309+
310+{-# INLINE monad2 #-}
311+monad2 :: MonadIO m
312+ => Int -> StreamK m PARSE_ELEM -> m (Either ParseError ())
313+monad2 value =
314+ PARSE_OP $ do
315+ takeWhile (<= (value `div` 2))
316+ takeWhile (<= value)
317+
318+{-# INLINE monad4 #-}
319+monad4 :: MonadIO m
320+ => Int -> StreamK m PARSE_ELEM -> m (Either ParseError ())
321+monad4 value =
322+ PARSE_OP $ do
323+ takeWhile (<= ( value `div` 4))
324+ takeWhile (<= ((value * 2) `div` 4))
325+ takeWhile (<= ((value * 3) `div` 4))
326+ takeWhile (<= value)
327+
328+{-# INLINE monad8 #-}
329+monad8 :: MonadIO m
330+ => Int -> StreamK m PARSE_ELEM -> m (Either ParseError ())
331+monad8 value =
332+ PARSE_OP $ do
333+ takeWhile (<= ( value `div` 8))
334+ takeWhile (<= ((value * 2) `div` 8))
335+ takeWhile (<= ((value * 3) `div` 8))
336+ takeWhile (<= ((value * 4) `div` 8))
337+ takeWhile (<= ((value * 5) `div` 8))
338+ takeWhile (<= ((value * 6) `div` 8))
339+ takeWhile (<= ((value * 7) `div` 8))
340+ takeWhile (<= value)
341+
342+{-# INLINE monad16 #-}
343+monad16 :: MonadIO m
344+ => Int -> StreamK m PARSE_ELEM -> m (Either ParseError ())
345+monad16 value =
346+ PARSE_OP $ do
347+ takeWhile (<= ( value `div` 16))
348+ takeWhile (<= ((value * 2) `div` 16))
349+ takeWhile (<= ((value * 3) `div` 16))
350+ takeWhile (<= ((value * 4) `div` 16))
351+ takeWhile (<= ((value * 5) `div` 16))
352+ takeWhile (<= ((value * 6) `div` 16))
353+ takeWhile (<= ((value * 7) `div` 16))
354+ takeWhile (<= ((value * 8) `div` 16))
355+ takeWhile (<= ((value * 9) `div` 16))
356+ takeWhile (<= ((value * 10) `div` 16))
357+ takeWhile (<= ((value * 11) `div` 16))
358+ takeWhile (<= ((value * 12) `div` 16))
359+ takeWhile (<= ((value * 13) `div` 16))
360+ takeWhile (<= ((value * 14) `div` 16))
361+ takeWhile (<= ((value * 15) `div` 16))
362+ takeWhile (<= value)
363+
364+-------------------------------------------------------------------------------
365+-- Benchmarks
366+-------------------------------------------------------------------------------
367+
368+moduleName :: String
369+moduleName = MODULE_NAME
370+
371+instance NFData ParseError where
372+ {-# INLINE rnf #-}
373+ rnf (ParseError x) = rnf x
374+
375+o_1_space_serial :: Int -> [Benchmark]
376+o_1_space_serial value =
377+ [ benchIOSink value "drain" (Stream.fold Fold.drain . StreamK.toStream)
378+ , benchIOSink value "takeWhile" $ takeWhileK value
379+ , benchIOSink value "splitAp2" $ splitAp2 value
380+ , benchIOSink value "splitAp8" $ splitAp8 value
381+ , benchIOSink value "alt2" $ alt2 value
382+ , benchIOSink value "alt8" $ alt8 value
383+ , benchIOSink value "alt16" $ alt16 value
384+ , benchIOSink value "monad2" $ monad2 value
385+ , benchIOSink value "monad4" $ monad4 value
386+ , benchIOSink value "monad8" $ monad8 value
387+ , benchIOSink value "monad16" $ monad16 value
388+ ]
389+
390+{-# INLINE sepBy1 #-}
391+sepBy1 :: MonadIO m => StreamK m PARSE_ELEM -> m Int
392+sepBy1 xs = do
393+ x <- PARSE_OP (parser (satisfy odd) (satisfy even)) xs
394+ return $ Prelude.length x
395+
396+ where
397+
398+ parser p sep = do
399+ x <- p
400+ fmap (x :) $ AP.many (sep >> p)
401+
402+-- O(n) heap beacuse of accumulation of the list in strict IO monad?
403+o_n_heap_serial :: Int -> [Benchmark]
404+o_n_heap_serial value =
405+ [
406+ -- accumulates the results in a list
407+ -- XXX why should this take O(n) heap, it discards the results?
408+ benchIOSink value "sequence_" $ sequence_ value
409+ , benchIOSink value "sequenceA_" $ sequenceA_ value
410+ , benchIOSink value "sequence" $ sequence value
411+ , benchIOSink value "sequenceA" $ sequenceA value
412+ , benchIOSink value "manyAlt" manyAlt
413+ , benchIOSink value "sepBy1" sepBy1
414+ , benchIOSink value "someAlt" someAlt
415+ , benchIOSink value "choice" $ choice value
416+ ]
417+
418+-- O(n) heap beacuse of accumulation of the list in strict IO monad?
419+o_1_space_recursive :: Int -> [Benchmark]
420+o_1_space_recursive value =
421+ [ benchIOSink value "one (recursive)" $ one value
422+ ]
423+
424+-------------------------------------------------------------------------------
425+-- Driver
426+-------------------------------------------------------------------------------
427+
428+main :: IO ()
429+main = runWithCLIOpts defaultStreamSize allBenchmarks
430+
431+ where
432+
433+ allBenchmarks value =
434+ [ bgroup (o_1_space_prefix moduleName) (o_1_space_serial value)
435+ , bgroup (o_1_space_prefix moduleName) (o_1_space_recursive value)
436+ , bgroup (o_n_heap_prefix moduleName) (o_n_heap_serial value)
437+ ]
benchmark/Streamly/Benchmark/Data/Ring/Unboxed.hsnew file+69
@@ -0,0 +1,69 @@
1+-- |
2+-- Module : Streamly.Benchmark.Data.Ring.Unboxed
3+-- Copyright : (c) 2022 Composewell
4+-- License : BSD-3-Clause
5+-- Maintainer : streamly@composewell.com
6+
7+{-# LANGUAGE FlexibleContexts #-}
8+{-# LANGUAGE RankNTypes #-}
9+{-# LANGUAGE ScopedTypeVariables #-}
10+
11+module Main (main) where
12+
13+import Control.Monad (void)
14+import GHC.Ptr (Ptr(..))
15+import qualified Streamly.Internal.Data.Array as Array
16+import qualified Streamly.Internal.Data.Ring as Ring
17+import qualified Data.Foldable as P
18+
19+import Test.Tasty.Bench
20+import Streamly.Benchmark.Common
21+
22+import Prelude as P
23+
24+-------------------------------------------------------------------------------
25+-- Benchmark ops
26+-------------------------------------------------------------------------------
27+
28+unsafeEqArrayN :: (Int, Array.Array Int, (Ring.Ring Int, Ptr Int)) -> Bool
29+unsafeEqArrayN (value, arr, (ring, rh)) = Ring.unsafeEqArrayN ring rh arr value
30+
31+unsafeEqArray :: (Array.Array Int, (Ring.Ring Int, Ptr Int)) -> Bool
32+unsafeEqArray (arr, (ring, rh)) = Ring.unsafeEqArray ring rh arr
33+
34+-------------------------------------------------------------------------------
35+-- Benchmark groups
36+-------------------------------------------------------------------------------
37+
38+o_1_space_serial ::
39+ Int -> Array.Array Int -> (Ring.Ring Int, Ptr Int) -> [Benchmark]
40+o_1_space_serial value arr (ring, rh) =
41+ [ bench "unsafeEqArrayN" $ nf unsafeEqArrayN (value, arr, (ring, rh))
42+ , bench "unsafeEqArray" $ nf unsafeEqArray (arr, (ring, rh))
43+ ]
44+
45+-------------------------------------------------------------------------------
46+-- Main
47+-------------------------------------------------------------------------------
48+
49+moduleName :: String
50+moduleName = "Data.Ring.Unboxed"
51+
52+main :: IO ()
53+main = do
54+ runWithCLIOptsEnv defaultStreamSize alloc allBenchmarks
55+
56+ where
57+
58+ alloc value = do
59+ let input = [1 .. value] :: [Int]
60+ let arr = Array.fromList input
61+ (ring, rh) <- Ring.new value
62+ void $ P.foldlM (Ring.unsafeInsert ring) rh input
63+ return (arr, (ring, rh))
64+
65+ allBenchmarks (arr, (ring, rh)) value =
66+ [ bgroup
67+ (o_1_space_prefix moduleName)
68+ (o_1_space_serial value arr (ring, rh))
69+ ]
benchmark/Streamly/Benchmark/Data/Serialize.hsnew file+591
@@ -0,0 +1,591 @@
1+{-# LANGUAGE TemplateHaskell #-}
2+{- HLINT ignore -}
3+
4+#undef FUSION_CHECK
5+#ifdef FUSION_CHECK
6+{-# OPTIONS_GHC -ddump-simpl -ddump-to-file -dsuppress-all #-}
7+#endif
8+
9+-- |
10+-- Module : Streamly.Benchmark.Data.Serialize
11+-- Copyright : (c) 2023 Composewell
12+-- License : BSD-3-Clause
13+-- Maintainer : streamly@composewell.com
14+
15+module Main (main) where
16+
17+-------------------------------------------------------------------------------
18+-- Imports
19+-------------------------------------------------------------------------------
20+
21+import Control.DeepSeq (NFData(..), deepseq)
22+import Control.Monad (when, void)
23+import GHC.Generics (Generic)
24+import System.Random (randomRIO)
25+#ifndef USE_UNBOX
26+import Test.QuickCheck (Arbitrary, arbitrary)
27+#endif
28+
29+import Streamly.Internal.Data.MutByteArray
30+import qualified Streamly.Internal.Data.MutByteArray as MBA
31+#ifdef USE_UNBOX
32+import Data.Proxy (Proxy(..))
33+#else
34+import Control.DeepSeq (force)
35+import Test.QuickCheck (oneof, generate)
36+#endif
37+
38+import Test.Tasty.Bench
39+import Streamly.Benchmark.Common
40+
41+#ifndef USE_UNBOX
42+import Streamly.Benchmark.Data.Serialize.RecCompatible
43+import Streamly.Benchmark.Data.Serialize.RecNonCompatible
44+#endif
45+
46+#ifdef USE_UNBOX
47+#define SERIALIZE_CLASS Unbox
48+#define DERIVE_CLASS(typ) $(deriveUnbox [d|instance Unbox typ|])
49+#define SERIALIZE_OP pokeAt
50+#define DESERIALIZE_OP peekAt
51+#else
52+#define SERIALIZE_CLASS Serialize
53+#define DERIVE_CLASS(typ) $(deriveSerialize [d|instance Serialize typ|])
54+#define SERIALIZE_OP serializeAt
55+#define DESERIALIZE_OP deserializeAt
56+#endif
57+
58+-------------------------------------------------------------------------------
59+-- Types
60+-------------------------------------------------------------------------------
61+
62+data Unit = Unit
63+ deriving (Generic, Show, Eq)
64+
65+#ifndef USE_TH
66+instance SERIALIZE_CLASS Unit
67+#else
68+DERIVE_CLASS(Unit)
69+#endif
70+
71+instance NFData Unit where
72+ {-# INLINE rnf #-}
73+ rnf _ = ()
74+
75+data Sum2
76+ = Sum21
77+ | Sum22
78+ deriving (Generic, Show, Eq)
79+
80+#ifndef USE_TH
81+instance SERIALIZE_CLASS Sum2
82+#else
83+DERIVE_CLASS(Sum2)
84+#endif
85+
86+instance NFData Sum2 where
87+ {-# INLINE rnf #-}
88+ rnf _ = ()
89+
90+data Sum25
91+ = Sum251
92+ | Sum252
93+ | Sum253
94+ | Sum254
95+ | Sum255
96+ | Sum256
97+ | Sum257
98+ | Sum258
99+ | Sum259
100+ | Sum2510
101+ | Sum2511
102+ | Sum2512
103+ | Sum2513
104+ | Sum2514
105+ | Sum2515
106+ | Sum2516
107+ | Sum2517
108+ | Sum2518
109+ | Sum2519
110+ | Sum2520
111+ | Sum2521
112+ | Sum2522
113+ | Sum2523
114+ | Sum2524
115+ | Sum2525
116+ deriving (Generic, Show, Eq)
117+
118+#ifndef USE_TH
119+instance SERIALIZE_CLASS Sum25
120+#else
121+DERIVE_CLASS(Sum25)
122+#endif
123+
124+instance NFData Sum25 where
125+ {-# INLINE rnf #-}
126+ rnf _ = ()
127+
128+data Product25
129+ = Product25
130+ Int
131+ Int
132+ Int
133+ Int
134+ Int
135+ Int
136+ Int
137+ Int
138+ Int
139+ Int
140+ Int
141+ Int
142+ Int
143+ Int
144+ Int
145+ Int
146+ Int
147+ Int
148+ Int
149+ Int
150+ Int
151+ Int
152+ Int
153+ Int
154+ Int
155+ deriving (Generic, Show)
156+
157+#ifndef USE_TH
158+instance SERIALIZE_CLASS Product25
159+#else
160+DERIVE_CLASS(Product25)
161+#endif
162+
163+instance NFData Product25 where
164+ {-# INLINE rnf #-}
165+ rnf
166+ (Product25 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 a20 a21 a22 a23 a24 a25)
167+ = a1
168+ `seq` a2
169+ `seq` a3
170+ `seq` a4
171+ `seq` a5
172+ `seq` a6
173+ `seq` a7
174+ `seq` a8
175+ `seq` a9
176+ `seq` a10
177+ `seq` a11
178+ `seq` a12
179+ `seq` a13
180+ `seq` a14
181+ `seq` a15
182+ `seq` a16
183+ `seq` a17
184+ `seq` a18
185+ `seq` a19
186+ `seq` a20
187+ `seq` a21
188+ `seq` a22
189+ `seq` a23
190+ `seq` a24
191+ `seq` a25
192+ `seq` ()
193+
194+-- XXX derived Eq instance is not inlined
195+instance Eq Product25 where
196+ {-# INLINE (==) #-}
197+ (==)
198+ (Product25 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 a20 a21 a22 a23 a24 a25)
199+ (Product25 b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 b15 b16 b17 b18 b19 b20 b21 b22 b23 b24 b25)
200+ = a1 == b1
201+ && a2 == b2
202+ && a3 == b3
203+ && a4 == b4
204+ && a5 == b5
205+ && a6 == b6
206+ && a7 == b7
207+ && a8 == b8
208+ && a9 == b9
209+ && a10 == b10
210+ && a11 == b11
211+ && a12 == b12
212+ && a13 == b13
213+ && a14 == b14
214+ && a15 == b15
215+ && a16 == b16
216+ && a17 == b17
217+ && a18 == b18
218+ && a19 == b19
219+ && a20 == b20
220+ && a21 == b21
221+ && a22 == b22
222+ && a23 == b23
223+ && a24 == b24
224+ && a25 == b25
225+
226+-------------------------------------------------------------------------------
227+-- Simple non-recursive ADT
228+-------------------------------------------------------------------------------
229+
230+{-
231+data CustomDT1
232+ = CDT1C1
233+ | CDT1C2 Int
234+ | CDT1C3 Int Int
235+ deriving (Generic, Show, Eq)
236+
237+#ifndef USE_TH
238+instance SERIALIZE_CLASS CustomDT1
239+#else
240+DERIVE_CLASS(CustomDT1)
241+#endif
242+
243+instance NFData CustomDT1 where
244+ {-# INLINE rnf #-}
245+ rnf CDT1C1 = ()
246+ rnf (CDT1C2 i) = i `seq` ()
247+ rnf (CDT1C3 i1 i2) = i1 `seq` i2 `seq` ()
248+-}
249+
250+-------------------------------------------------------------------------------
251+-- Recursive ADT
252+-------------------------------------------------------------------------------
253+
254+#ifndef USE_UNBOX
255+data BinTree a
256+ = Tree (BinTree a) (BinTree a)
257+ | Leaf a
258+ deriving (Show, Read, Eq, Generic)
259+
260+#ifndef USE_TH
261+instance Serialize (BinTree a)
262+#else
263+$(deriveSerialize [d|instance Serialize a => Serialize (BinTree a)|])
264+#endif
265+
266+instance NFData a => NFData (BinTree a) where
267+ {-# INLINE rnf #-}
268+ rnf (Leaf a) = rnf a `seq` ()
269+ rnf (Tree l r) = rnf l `seq` rnf r
270+
271+-- XXX This may not terminate, or could become really large.
272+instance Arbitrary a => Arbitrary (BinTree a) where
273+ arbitrary = oneof [Leaf <$> arbitrary, Tree <$> arbitrary <*> arbitrary]
274+
275+mkBinTree :: (Arbitrary a) => Int -> IO (BinTree a)
276+mkBinTree = go (generate arbitrary)
277+
278+ where
279+
280+ go r 0 = Leaf <$> r
281+ go r n = Tree <$> go r (n - 1) <*> go r (n - 1)
282+
283+#endif
284+
285+-------------------------------------------------------------------------------
286+-- Size helpers
287+-------------------------------------------------------------------------------
288+
289+{-# INLINE getSize #-}
290+getSize :: forall a. SERIALIZE_CLASS a => a -> Int
291+#ifdef USE_UNBOX
292+getSize _ = sizeOf (Proxy :: Proxy a)
293+#else
294+getSize = addSizeTo 0
295+#endif
296+
297+-------------------------------------------------------------------------------
298+-- Common helpers
299+-------------------------------------------------------------------------------
300+
301+{- HLINT ignore "Eta reduce" -}
302+-- Parts of "f" that are dependent on val will not be optimized out.
303+{-# INLINE loop #-}
304+loop :: Int -> (a -> IO b) -> a -> IO ()
305+loop count f val = go count val
306+ where
307+
308+ go n x = when (n > 0) $ f x >> go (n-1) x
309+
310+-- The first arg of "f" is the environment which is not threaded around in the
311+-- loop.
312+{-# INLINE loopWith #-}
313+loopWith :: Int -> (e -> a -> IO b) -> e -> a -> IO ()
314+loopWith count f e val = go count val
315+ where
316+
317+ go n x = when (n > 0) $ f e x >> go (n-1) x
318+
319+benchSink :: NFData b => String -> Int -> (Int -> IO b) -> Benchmark
320+benchSink name times f = bench name (nfIO (randomRIO (times, times) >>= f))
321+
322+-------------------------------------------------------------------------------
323+-- Serialization Helpers
324+-------------------------------------------------------------------------------
325+
326+{-
327+{-# INLINE pokeWithSize #-}
328+pokeWithSize :: SERIALIZE_CLASS a => MutByteArray -> a -> IO ()
329+pokeWithSize arr val = do
330+ let n = getSize val
331+ n `seq` SERIALIZE_OP 0 arr val >> return ()
332+
333+{-# INLINE pokeTimesWithSize #-}
334+pokeTimesWithSize :: SERIALIZE_CLASS a => a -> Int -> IO ()
335+pokeTimesWithSize val times = do
336+ let n = getSize val
337+ arr <- MBA.new n
338+ loopWith times pokeWithSize arr val
339+-}
340+
341+{-# INLINE poke #-}
342+poke :: SERIALIZE_CLASS a => MutByteArray -> a -> IO ()
343+poke arr val = void (SERIALIZE_OP 0 arr val)
344+
345+{-# INLINE pokeTimes #-}
346+pokeTimes :: SERIALIZE_CLASS a => a -> Int -> IO ()
347+pokeTimes val times = do
348+ let n = getSize val
349+ arr <- MBA.new n
350+ loopWith times poke arr val
351+
352+{-# INLINE encode #-}
353+encode :: SERIALIZE_CLASS a => a -> IO ()
354+encode val = do
355+ let n = getSize val
356+ arr <- MBA.new n
357+ void (SERIALIZE_OP 0 arr val)
358+
359+{-# INLINE encodeTimes #-}
360+encodeTimes :: SERIALIZE_CLASS a => a -> Int -> IO ()
361+encodeTimes val times = loop times encode val
362+
363+{-# INLINE peek #-}
364+peek :: forall a. (NFData a, SERIALIZE_CLASS a) =>
365+ (a, Int) -> MutByteArray -> IO ()
366+#ifdef USE_UNBOX
367+peek (_val, _) arr = do
368+ (val1 :: a) <- DESERIALIZE_OP 0 arr
369+#else
370+peek (_val, n) arr = do
371+ (_, val1 :: a) <- DESERIALIZE_OP 0 arr n
372+#endif
373+ -- If the datatype is not deeply strict or deepseq is not used then use
374+ -- Equality.
375+ -- Ensure that we are actually constructing the type and using it. This
376+ -- is important, otherwise the structure is created and discarded, the
377+ -- cost of creation of the structure is not accounted. Otherwise we may
378+ -- just read the values and discard them. The comparison adds to the
379+ -- cost though. We could use deepseq but then we need to write
380+ -- instances of NFData and ensure that they are correct and perform
381+ -- well. Equality check also ensures correctness.
382+ {-
383+ if (val1 /= val)
384+ then error "peek: no match"
385+ else return ()
386+ -}
387+ val1 `deepseq` return ()
388+
389+{-# INLINE peekTimes #-}
390+peekTimes :: (NFData a, SERIALIZE_CLASS a) => Int -> a -> Int -> IO ()
391+peekTimes n val times = do
392+ arr <- MBA.new n
393+ _ <- SERIALIZE_OP 0 arr val
394+ loopWith times peek (val, n) arr
395+
396+{-# INLINE trip #-}
397+trip :: forall a. (NFData a, SERIALIZE_CLASS a) => a -> IO ()
398+trip val = do
399+ let n = getSize val
400+ arr <- MBA.new n
401+ _ <- SERIALIZE_OP 0 arr val
402+#ifdef USE_UNBOX
403+ (val1 :: a) <- DESERIALIZE_OP 0 arr
404+#else
405+ (_, val1 :: a) <- DESERIALIZE_OP 0 arr n
406+#endif
407+ -- Do not remove this or use deepseq, see the comments in peek.
408+ {-
409+ if (val1 /= val)
410+ then error "roundtrip: no match"
411+ else return ()
412+ -}
413+ -- Note: deepseq is not needed if the datatype is strict
414+ val1 `deepseq` return ()
415+
416+{-# INLINE roundtrip #-}
417+roundtrip :: (NFData a, SERIALIZE_CLASS a) => a -> Int -> IO ()
418+roundtrip val times = loop times trip val
419+
420+-------------------------------------------------------------------------------
421+-- Benchmarks
422+-------------------------------------------------------------------------------
423+
424+{-# INLINE benchConst #-}
425+benchConst ::
426+ String
427+ -> (forall a. (NFData a, SERIALIZE_CLASS a) =>
428+ Int -> a -> Int -> IO ())
429+ -> Int
430+ -> Benchmark
431+benchConst gname f times =
432+ bgroup gname
433+ [ let !n = getSize Unit
434+ in benchSink "Unit" times (f n Unit)
435+ {-
436+ , let !n = getSize CDT1C1
437+ in benchSink "C1" times (f n CDT1C1)
438+ , let val = CDT1C2 5
439+ !n = getSize val
440+ in benchSink "C2" (times `div` 2) (f n val)
441+ , let val = CDT1C3 5 2
442+ !n = getSize val
443+ in benchSink "C3" (times `div` 3) (f n val)
444+ -}
445+ , let !n = getSize Sum21
446+ in benchSink "Sum2" times (f n Sum21)
447+ , let !n = getSize Sum2525
448+ in benchSink "Sum25" times (f n Sum2525)
449+ , let val = Product25 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
450+ !n = getSize val
451+ in benchSink "Product25" (times `div` 26) (f n val)
452+ ]
453+
454+#ifndef USE_UNBOX
455+{-# INLINE benchVar #-}
456+benchVar ::
457+ String
458+ -> (forall a. (NFData a, SERIALIZE_CLASS a) =>
459+ Int -> a -> Int -> IO ())
460+ -> BinTree Int
461+ -> [Int]
462+ -> Int
463+ -> Benchmark
464+benchVar gname f tInt lInt times =
465+ bgroup gname
466+ [ let !n = getSize tInt
467+ in benchSink "bintree-int" times (f n tInt)
468+ , let !n = getSize lInt
469+ in benchSink "list-int" times (f n lInt)
470+ ]
471+
472+{-
473+{-# INLINE benchGeneric #-}
474+benchGeneric
475+ :: (NFData b, Serialize b)
476+ => String
477+ -> String
478+ -> (forall a. (NFData a, Serialize a) =>
479+ Int -> a -> Int -> IO ())
480+ -> b
481+ -> Int
482+ -> Benchmark
483+benchGeneric gname valId f val times =
484+ bgroup gname
485+ [ let !n = getSize val
486+ in benchSink valId times (f n val)
487+ ]
488+-}
489+
490+{-# INLINE benchLargeRec #-}
491+benchLargeRec ::
492+ String
493+ -> (forall a. (NFData a, Serialize a) =>
494+ Int -> a -> Int -> IO ())
495+ -> RecNonCompatible
496+ -> RecCompatible
497+ -> Int
498+ -> Benchmark
499+benchLargeRec gname f recL recR times =
500+ bgroup gname
501+ [ let !n = getSize recL
502+ in benchSink "RecNonCompatible" times (f n recL)
503+ , let !n = getSize recR
504+ in benchSink "RecCompatible" times (f n recR)
505+ ]
506+#endif
507+
508+-- Times is scaled by the number of constructors to normalize
509+#ifdef USE_UNBOX
510+allBenchmarks :: Int -> [Benchmark]
511+allBenchmarks times =
512+#else
513+allBenchmarks ::
514+ BinTree Int -> [Int] -> RecNonCompatible -> RecCompatible -> Int -> [Benchmark]
515+allBenchmarks tInt lInt recL recR times =
516+#endif
517+ [ bgroup "sizeOf"
518+ [
519+#ifndef USE_UNBOX
520+ bench "bintree-int" $ nf getSize tInt
521+ , bench "list-int" $ nf getSize lInt
522+#endif
523+ ]
524+ , benchConst "poke" (const pokeTimes) times
525+ -- , benchConst "pokeWithSize" (const pokeTimesWithSize) times
526+ , benchConst "encode" (const encodeTimes) times
527+ , benchConst "peek" peekTimes times
528+ , benchConst "roundtrip" (const roundtrip) times
529+#ifndef USE_UNBOX
530+ , benchVar "poke" (const pokeTimes) tInt lInt 1
531+ -- , benchVar "pokeWithSize" (const pokeTimesWithSize) tInt lInt 1
532+ , benchVar "encode" (const encodeTimes) tInt lInt 1
533+ , benchVar "peek" peekTimes tInt lInt 1
534+ , benchVar "roundtrip" (const roundtrip) tInt lInt 1
535+ , benchLargeRec "poke" (const pokeTimes) recL recR times
536+ , benchLargeRec "encode" (const encodeTimes) recL recR times
537+ , benchLargeRec "peek" peekTimes recL recR times
538+ , benchLargeRec "roundtrip" (const roundtrip) recL recR times
539+#endif
540+ ]
541+
542+-------------------------------------------------------------------------------
543+-- Driver
544+-------------------------------------------------------------------------------
545+
546+main :: IO ()
547+main = do
548+#ifndef USE_UNBOX
549+ -- Approximately 100000 constructors
550+ -- Assuming Leaf nodes constitute two constructors (Leaf, Int) and internal
551+ -- nodes 1 level = log_2 (100001/3) + 1 = 16
552+ !(tInt :: BinTree Int) <- force <$> mkBinTree 16
553+
554+ let !recL = valRecNonCompatible
555+ let !recR = valRecCompatible
556+
557+ -- Approximately 100000 constructors, assuming two constructors (Cons, Int)
558+ -- per element.
559+ let lInt = [1..50000 :: Int]
560+ let !len = length lInt -- evaluate the list
561+#endif
562+#ifndef FUSION_CHECK
563+#ifdef USE_UNBOX
564+ runWithCLIOpts defaultStreamSize allBenchmarks
565+#else
566+ len
567+ `seq` runWithCLIOpts
568+ defaultStreamSize
569+ (allBenchmarks tInt lInt recL recR)
570+#endif
571+#else
572+ -- Enable FUSION_CHECK macro at the beginning of the file
573+ -- Enable one benchmark below, and run the benchmark
574+ -- Check the .dump-simpl output
575+ let value = 100000
576+ -- print $ getSize (CDT1C3 4 2)
577+ -- print $ getSize tInt
578+ -- print $ getSize lInt
579+
580+ -- pokeTimes tInt 1
581+
582+ -- peekTimes ((CDT1C2 (5 :: Int)) :: CustomDT1) value
583+ -- peekTimes (Sum2525) value
584+ -- peekTimes (Product25 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25) value
585+ -- peekTimes tInt 1
586+ let !n = getSize lInt
587+ peekTimes n lInt 1
588+
589+ -- roundtrip ((CDT1C2 (5 :: Int)) :: CustomDT1) value
590+ return ()
591+#endif
benchmark/Streamly/Benchmark/Data/Serialize/RecCompatible.hsnew file+24
@@ -0,0 +1,24 @@
1+{-# LANGUAGE TemplateHaskell #-}
2+
3+module Streamly.Benchmark.Data.Serialize.RecCompatible
4+ ( RecCompatible(..)
5+ , valRecCompatible
6+ ) where
7+
8+--------------------------------------------------------------------------------
9+-- Imports
10+--------------------------------------------------------------------------------
11+
12+import Streamly.Internal.Data.MutByteArray (Serialize)
13+import Streamly.Benchmark.Data.Serialize.TH (genLargeRecord)
14+
15+import qualified Streamly.Internal.Data.MutByteArray as Serialize
16+
17+--------------------------------------------------------------------------------
18+-- Code
19+--------------------------------------------------------------------------------
20+
21+$(genLargeRecord "RecCompatible" 50)
22+$(Serialize.deriveSerializeWith
23+ (Serialize.encodeRecordFields True)
24+ [d|instance Serialize RecCompatible|])
benchmark/Streamly/Benchmark/Data/Serialize/RecNonCompatible.hsnew file+21
@@ -0,0 +1,21 @@
1+{-# LANGUAGE TemplateHaskell #-}
2+
3+module Streamly.Benchmark.Data.Serialize.RecNonCompatible
4+ ( RecNonCompatible(..)
5+ , valRecNonCompatible
6+ ) where
7+
8+--------------------------------------------------------------------------------
9+-- Imports
10+--------------------------------------------------------------------------------
11+
12+import Streamly.Benchmark.Data.Serialize.TH (genLargeRecord)
13+
14+import qualified Streamly.Internal.Data.MutByteArray as Serialize
15+
16+--------------------------------------------------------------------------------
17+-- Code
18+--------------------------------------------------------------------------------
19+
20+$(genLargeRecord "RecNonCompatible" 50)
21+$(Serialize.deriveSerialize [d|instance Serialize.Serialize RecNonCompatible|])
benchmark/Streamly/Benchmark/Data/Serialize/TH.hsnew file+76
@@ -0,0 +1,76 @@
1+{-# LANGUAGE TemplateHaskell #-}
2+
3+module Streamly.Benchmark.Data.Serialize.TH (genLargeRecord) where
4+
5+--------------------------------------------------------------------------------
6+-- Imports
7+--------------------------------------------------------------------------------
8+
9+import Language.Haskell.TH
10+
11+import Streamly.Internal.Data.MutByteArray (makeI)
12+import Control.DeepSeq (NFData(..))
13+
14+--------------------------------------------------------------------------------
15+-- Large Record
16+--------------------------------------------------------------------------------
17+
18+genLargeRecord :: String -> Int -> Q [Dec]
19+genLargeRecord tyName numFields =
20+ sequence
21+ [ dataD
22+ (pure [])
23+ (mkName tyName)
24+ []
25+ Nothing
26+ [mkCon tyName]
27+ [derivClause Nothing [conT ''Eq, conT ''Show]]
28+ , mkValueSigDec
29+ , mkValueDec
30+ , nfDataInstance tyName
31+ ]
32+
33+ where
34+
35+ fieldTypeChoices = [conT ''()]
36+ chooseCycle i xs = xs !! (i `mod` length xs)
37+ nfDataInstance nm =
38+ instanceD
39+ (pure [])
40+ (appT (conT ''NFData) (conT (mkName nm)))
41+ [ funD
42+ 'rnf
43+ [ clause
44+ [ conP
45+ (mkName nm)
46+ (varP . makeI <$> [0 .. (numFields - 1)])
47+ ]
48+ (normalB
49+ (foldl
50+ (\b a -> [|rnf $(b) `seq` rnf $(a)|])
51+ [|()|]
52+ (varE . makeI <$> [0 .. (numFields - 1)])))
53+ []
54+ ]
55+ ]
56+ valueName = mkName $ "val" ++ tyName
57+ mkValueSigDec = sigD valueName [t|$(conT (mkName tyName))|]
58+ mkValueDec =
59+ funD
60+ valueName
61+ [ clause
62+ []
63+ (normalB
64+ (foldl
65+ (\b a -> [|$(b) $(a)|])
66+ (conE (mkName tyName))
67+ (conE '() <$ [0 .. (numFields - 1)])))
68+ []
69+ ]
70+ mkCon nm = recC (mkName nm) (mkField <$> [0 .. (numFields - 1)])
71+ mkField i =
72+ varBangType
73+ (mkName ("field" ++ show i))
74+ (bangType
75+ (bang noSourceUnpackedness noSourceStrictness)
76+ (chooseCycle i fieldTypeChoices))
benchmark/Streamly/Benchmark/Data/Stream.hsnew file+114
@@ -0,0 +1,114 @@
1+-- |
2+-- Module : Data.Stream
3+-- Copyright : (c) 2018 Composewell Technologies
4+-- License : BSD-3-Clause
5+-- Maintainer : streamly@composewell.com
6+
7+{-# LANGUAGE CPP #-}
8+{-# LANGUAGE FlexibleContexts #-}
9+{-# LANGUAGE ScopedTypeVariables #-}
10+{-# LANGUAGE RankNTypes #-}
11+
12+#undef FUSION_CHECK
13+#ifdef FUSION_CHECK
14+{-# OPTIONS_GHC -ddump-simpl -ddump-to-file -dsuppress-all #-}
15+#endif
16+
17+module Main (main) where
18+
19+import Streamly.Benchmark.Common.Handle (mkHandleBenchEnv)
20+
21+import qualified Stream.Eliminate as Elimination
22+#ifndef USE_STREAMLY_CORE
23+import qualified Stream.Exceptions as Exceptions
24+#endif
25+import qualified Stream.Expand as NestedStream
26+import qualified Stream.Generate as Generation
27+import qualified Stream.Lift as Lift
28+import qualified Stream.Reduce as NestedFold
29+#ifdef USE_PRELUDE
30+import qualified Stream.Split as Split
31+#endif
32+import qualified Stream.Transform as Transformation
33+
34+import Streamly.Benchmark.Common
35+
36+#ifdef FUSION_CHECK
37+import Data.Function ((&))
38+import Streamly.Data.Stream (Stream)
39+import qualified Streamly.Internal.Data.Stream as Stream
40+import qualified Streamly.Internal.Data.Fold as Fold
41+import qualified Data.Foldable as Foldable
42+import Stream.Common
43+#endif
44+
45+moduleName :: String
46+#ifdef USE_STREAMK
47+moduleName = "Data.Stream.StreamDK"
48+#else
49+moduleName = "Data.Stream"
50+#endif
51+
52+-------------------------------------------------------------------------------
53+-- Main
54+-------------------------------------------------------------------------------
55+
56+-- In addition to gauge options, the number of elements in the stream can be
57+-- passed using the --stream-size option.
58+--
59+main :: IO ()
60+main = do
61+#ifndef FUSION_CHECK
62+ env <- mkHandleBenchEnv
63+ runWithCLIOpts defaultStreamSize (allBenchmarks env)
64+
65+ where
66+
67+ allBenchmarks env size = Prelude.concat
68+ [ Generation.benchmarks moduleName size
69+ , Elimination.benchmarks moduleName size
70+#ifndef USE_STREAMLY_CORE
71+ , Exceptions.benchmarks moduleName env size
72+#endif
73+#ifdef USE_PRELUDE
74+ , Split.benchmarks moduleName env
75+#endif
76+ , Transformation.benchmarks moduleName size
77+ , NestedFold.benchmarks moduleName size
78+ , Lift.benchmarks moduleName size
79+ , NestedStream.benchmarks moduleName size
80+ ]
81+#else
82+ -- Enable FUSION_CHECK macro at the beginning of the file
83+ -- Enable one benchmark below, and run the benchmark
84+ -- Check the .dump-simpl output
85+ let value = 100000
86+ let input = sourceUnfoldrM value 1
87+
88+ -- Stream.foldr (:) [] input >>= print . Prelude.length
89+ -- Stream.fold (Fold.foldr' (:) []) input >>= print . Prelude.length
90+
91+ -- Stream.toList input >>= print . Prelude.length
92+ -- Stream.fold Fold.toList input >>= print . Prelude.length
93+
94+ -- We can automatically assert that these generate identical core
95+
96+ -- Stream.drain input >>= print
97+ -- Stream.fold Fold.drain input >>= print
98+
99+ -- Stream.last input >>= print
100+ -- Stream.fold Fold.latest input >>= print
101+
102+ -- Stream.length input >>= print
103+ -- Stream.fold Fold.length input >>= print
104+
105+ -- Stream.maximum input >>= print
106+ -- Stream.fold Fold.maximum input >>= print
107+
108+ -- Stream.head input >>= print
109+ -- Stream.fold Fold.one input >>= print
110+
111+ -- composeN 4 (Stream.scanl' (+) 0) input
112+ composeN 4 (Stream.scan (Fold.foldl' (+) 0)) input
113+ return ()
114+#endif
benchmark/Streamly/Benchmark/Data/Stream/Common.hsnew file+518
@@ -0,0 +1,518 @@
1+{-# LANGUAGE ConstraintKinds #-}
2+{-# LANGUAGE CPP #-}
3+{-# LANGUAGE FlexibleContexts #-}
4+{-# LANGUAGE ScopedTypeVariables #-}
5+
6+-- |
7+-- Module : Stream.Common
8+-- Copyright : (c) 2018 Composewell Technologies
9+-- License : BSD-3-Clause
10+-- Maintainer : streamly@composewell.com
11+
12+#ifdef USE_PRELUDE
13+{-# OPTIONS_GHC -Wno-deprecations #-}
14+#endif
15+
16+module Stream.Common
17+ ( MonadAsync
18+
19+ , fromStream
20+ , toStream
21+
22+ -- Generation
23+ , fromListM
24+ , fromFoldableM
25+
26+ , append
27+ , append2
28+
29+ -- Elimination
30+ , drain
31+ , foldl'
32+ , scanl'
33+
34+ -- Benchmark stream generation
35+ , sourceUnfoldr
36+ , sourceUnfoldrM
37+ , sourceUnfoldrAction
38+ , sourceConcatMapId
39+ , sourceFromFoldable
40+
41+ -- Benchmark stream elimination
42+ , benchIOSink
43+ , benchIOSrc
44+ , benchIO
45+
46+ -- Benchmarking functions
47+#ifdef USE_STREAMK
48+ , concatStreamsWith
49+ , mergeMapWith
50+#endif
51+ , apDiscardFst
52+ , apDiscardSnd
53+ , apLiftA2
54+ , toNullAp
55+ , monadThen
56+ , toNullM
57+ , toNullM3
58+ , filterAllOutM
59+ , filterAllInM
60+ , filterSome
61+ , breakAfterSome
62+ , toListM
63+ , toListSome
64+ , composeN
65+ , mapN
66+ , mapM
67+ , transformMapM
68+ , transformComposeMapM
69+ , transformTeeMapM
70+ , transformZipMapM
71+ )
72+where
73+
74+#if !MIN_VERSION_base(4,18,0)
75+import Control.Applicative (liftA2)
76+#endif
77+import Control.DeepSeq (NFData)
78+import Control.Exception (try)
79+import GHC.Exception (ErrorCall)
80+import System.Random (randomRIO)
81+
82+import qualified Streamly.Internal.Data.Fold as Fold
83+import qualified Streamly.Internal.Data.Pipe as Pipe
84+
85+#ifdef USE_PRELUDE
86+import Streamly.Prelude (foldl', scanl')
87+import qualified Streamly.Internal.Data.Stream.IsStream as Stream
88+import qualified Streamly.Prelude as Stream
89+import qualified Streamly.Prelude as StreamK
90+import Streamly.Benchmark.Prelude
91+ ( composeN, sourceConcatMapId, benchIOSink
92+ , concatStreamsWith
93+ )
94+#else
95+import Streamly.Internal.Data.Stream (Stream)
96+import qualified Streamly.Internal.Data.Stream as D
97+#ifdef USE_STREAMK
98+import Streamly.Internal.Data.StreamK (StreamK)
99+import qualified Streamly.Internal.Data.Stream as Stream
100+import qualified Streamly.Internal.Data.StreamK as StreamK
101+#else
102+import qualified Streamly.Internal.Data.Stream as Stream
103+import qualified Streamly.Internal.Data.Stream as StreamK
104+#endif
105+#endif
106+
107+import Test.Tasty.Bench
108+import Prelude hiding (Foldable(..), mapM, replicate)
109+
110+#ifdef USE_STREAMK
111+toStream :: Applicative m => StreamK m a -> Stream m a
112+toStream = StreamK.toStream
113+
114+fromStream :: Monad m => Stream m a -> StreamK m a
115+fromStream = StreamK.fromStream
116+#else
117+fromStream :: a -> a
118+fromStream = id
119+
120+toStream :: a -> a
121+toStream = id
122+#endif
123+
124+#ifdef USE_PRELUDE
125+type Stream = Stream.SerialT
126+type MonadAsync m = Stream.MonadAsync m
127+mkCross = id
128+unCross = id
129+#else
130+type MonadAsync = Monad
131+
132+#ifdef USE_STREAMK
133+mkCross :: StreamK m a -> StreamK.CrossStreamK m a
134+mkCross = StreamK.mkCross
135+
136+unCross :: StreamK.CrossStreamK m a -> StreamK m a
137+unCross = StreamK.unCross
138+#else
139+mkCross :: Stream m a -> Stream.CrossStream m a
140+mkCross = Stream.mkCross
141+
142+unCross :: Stream.CrossStream m a -> Stream m a
143+unCross = Stream.unCross
144+#endif
145+#endif
146+
147+#ifdef USE_PRELUDE
148+{-# INLINE append #-}
149+append :: Monad m => Stream m a -> Stream m a -> Stream m a
150+append = Stream.serial
151+#else
152+#ifdef USE_STREAMK
153+append :: StreamK m a -> StreamK m a -> StreamK m a
154+append = StreamK.append
155+#else
156+append :: Monad m => Stream m a -> Stream m a -> Stream m a
157+append = Stream.append
158+#endif
159+#endif
160+
161+{-# INLINE append2 #-}
162+append2 :: Monad m => Stream m a -> Stream m a -> Stream m a
163+#ifdef USE_PRELUDE
164+append2 = Stream.append
165+#else
166+append2 = D.append
167+#endif
168+
169+{-# INLINE drain #-}
170+drain :: Monad m => Stream m a -> m ()
171+{-# INLINE toList #-}
172+toList :: Monad m => Stream m a -> m [a]
173+#ifdef USE_PRELUDE
174+drain = Stream.drain
175+toList = Stream.toList
176+#else
177+drain = Stream.fold Fold.drain
178+toList = Stream.fold Fold.toList
179+#endif
180+
181+{-# INLINE fromListM #-}
182+fromListM :: MonadAsync m => [m a] -> Stream m a
183+#ifdef USE_PRELUDE
184+fromListM = Stream.fromListM
185+#else
186+fromListM = Stream.sequence . Stream.fromList
187+#endif
188+
189+{-# INLINE fromFoldableM #-}
190+fromFoldableM :: MonadAsync m => [m a] -> Stream m a
191+#ifdef USE_PRELUDE
192+fromFoldableM = Stream.fromFoldableM
193+#else
194+fromFoldableM = Stream.sequence . toStream . StreamK.fromFoldable
195+#endif
196+
197+{-# INLINE sourceUnfoldrM #-}
198+sourceUnfoldrM :: MonadAsync m => Int -> Int -> Stream m Int
199+sourceUnfoldrM count start = Stream.unfoldrM step start
200+
201+ where
202+
203+ step cnt =
204+ if cnt > start + count
205+ then return Nothing
206+ else return (Just (cnt, cnt + 1))
207+
208+{-# INLINE sourceUnfoldr #-}
209+sourceUnfoldr :: Monad m => Int -> Int -> Stream m Int
210+sourceUnfoldr count start = Stream.unfoldr step start
211+
212+ where
213+
214+ step cnt =
215+ if cnt > start + count
216+ then Nothing
217+ else Just (cnt, cnt + 1)
218+
219+{-# INLINE sourceUnfoldrAction #-}
220+sourceUnfoldrAction :: (Monad m1, Monad m) => Int -> Int -> Stream m (m1 Int)
221+sourceUnfoldrAction value n = Stream.unfoldr step n
222+
223+ where
224+
225+ step cnt =
226+ if cnt > n + value
227+ then Nothing
228+ else Just (return cnt, cnt + 1)
229+
230+{-# INLINE sourceFromFoldable #-}
231+sourceFromFoldable :: Monad m => Int -> Int -> Stream m Int
232+sourceFromFoldable value n = toStream $ StreamK.fromFoldable [n..n+value]
233+
234+#ifndef USE_PRELUDE
235+{-# INLINE benchIOSink #-}
236+benchIOSink
237+ :: (NFData b)
238+ => Int -> String -> (Stream IO Int -> IO b) -> Benchmark
239+benchIOSink value name f =
240+ bench name $ nfIO $ randomRIO (1,1) >>= f . sourceUnfoldrM value
241+#endif
242+
243+-- | Takes a source, and uses it with a default drain/fold method.
244+{-# INLINE benchIOSrc #-}
245+benchIOSrc
246+ :: String
247+ -> (Int -> Stream IO a)
248+ -> Benchmark
249+benchIOSrc name f =
250+ bench name $ nfIO $ randomRIO (1,1) >>= drain . f
251+
252+{-# NOINLINE benchIO #-}
253+benchIO :: (NFData b) => String -> (Int -> IO b) -> Benchmark
254+benchIO name f = bench name $ nfIO $ randomRIO (1,1) >>= f
255+
256+#ifndef USE_PRELUDE
257+#ifdef USE_STREAMK
258+{-# INLINE concatStreamsWith #-}
259+concatStreamsWith
260+ :: (StreamK IO Int -> StreamK IO Int -> StreamK IO Int)
261+ -> Int
262+ -> Int
263+ -> Int
264+ -> IO ()
265+concatStreamsWith op outer inner n =
266+ drain $ toStream $ StreamK.concatMapWith op
267+ (fromStream . sourceUnfoldrM inner)
268+ (fromStream $ sourceUnfoldrM outer n)
269+
270+{-# INLINE mergeMapWith #-}
271+mergeMapWith
272+ :: (StreamK IO Int -> StreamK IO Int -> StreamK IO Int)
273+ -> Int
274+ -> Int
275+ -> Int
276+ -> IO ()
277+mergeMapWith op outer inner n =
278+ drain $ toStream $ StreamK.mergeMapWith op
279+ (fromStream . sourceUnfoldrM inner)
280+ (fromStream $ sourceUnfoldrM outer n)
281+#endif
282+
283+{-# INLINE sourceConcatMapId #-}
284+sourceConcatMapId :: (Monad m)
285+ => Int -> Int -> Stream m (Stream m Int)
286+sourceConcatMapId value n =
287+ Stream.fromList $ fmap (D.fromEffect . return) [n..n+value]
288+#endif
289+
290+{-# INLINE apDiscardFst #-}
291+apDiscardFst :: MonadAsync m =>
292+ Int -> Int -> m ()
293+apDiscardFst linearCount start = drain $ toStream $ unCross $
294+ mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
295+ *> mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
296+
297+ where
298+
299+ nestedCount2 = round (fromIntegral linearCount**(1/2::Double))
300+
301+{-# INLINE apDiscardSnd #-}
302+apDiscardSnd :: MonadAsync m => Int -> Int -> m ()
303+apDiscardSnd linearCount start = drain $ toStream $ unCross $
304+ mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
305+ <* mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
306+
307+ where
308+
309+ nestedCount2 = round (fromIntegral linearCount**(1/2::Double))
310+
311+{-# INLINE apLiftA2 #-}
312+apLiftA2 :: MonadAsync m => Int -> Int -> m ()
313+apLiftA2 linearCount start = drain $ toStream $ unCross $
314+ liftA2 (+) (mkCross (fromStream $ sourceUnfoldrM nestedCount2 start))
315+ (mkCross (fromStream $ sourceUnfoldrM nestedCount2 start))
316+
317+ where
318+
319+ nestedCount2 = round (fromIntegral linearCount**(1/2::Double))
320+
321+{-# INLINE toNullAp #-}
322+toNullAp :: MonadAsync m => Int -> Int -> m ()
323+toNullAp linearCount start = drain $ toStream $ unCross $
324+ (+) <$> mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
325+ <*> mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
326+
327+ where
328+
329+ nestedCount2 = round (fromIntegral linearCount**(1/2::Double))
330+
331+{-# INLINE monadThen #-}
332+monadThen :: MonadAsync m => Int -> Int -> m ()
333+monadThen linearCount start = drain $ toStream $ unCross $ do
334+ mkCross (fromStream $ sourceUnfoldrM nestedCount2 start) >>
335+ mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
336+
337+ where
338+
339+ nestedCount2 = round (fromIntegral linearCount**(1/2::Double))
340+
341+{-# INLINE toNullM #-}
342+toNullM :: MonadAsync m => Int -> Int -> m ()
343+toNullM linearCount start = drain $ toStream $ unCross $ do
344+ x <- mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
345+ y <- mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
346+ return $ x + y
347+
348+ where
349+
350+ nestedCount2 = round (fromIntegral linearCount**(1/2::Double))
351+
352+{-# INLINE toNullM3 #-}
353+toNullM3 :: MonadAsync m => Int -> Int -> m ()
354+toNullM3 linearCount start = drain $ toStream $ unCross $ do
355+ x <- mkCross (fromStream $ sourceUnfoldrM nestedCount3 start)
356+ y <- mkCross (fromStream $ sourceUnfoldrM nestedCount3 start)
357+ z <- mkCross (fromStream $ sourceUnfoldrM nestedCount3 start)
358+ return $ x + y + z
359+ where
360+ nestedCount3 = round (fromIntegral linearCount**(1/3::Double))
361+
362+{-# INLINE filterAllOutM #-}
363+filterAllOutM :: MonadAsync m => Int -> Int -> m ()
364+filterAllOutM linearCount start = drain $ toStream $ unCross $ do
365+ x <- mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
366+ y <- mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
367+ let s = x + y
368+ if s < 0
369+ then return s
370+ else mkCross StreamK.nil
371+ where
372+ nestedCount2 = round (fromIntegral linearCount**(1/2::Double))
373+
374+{-# INLINE filterAllInM #-}
375+filterAllInM :: MonadAsync m => Int -> Int -> m ()
376+filterAllInM linearCount start = drain $ toStream $ unCross $ do
377+ x <- mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
378+ y <- mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
379+ let s = x + y
380+ if s > 0
381+ then return s
382+ else mkCross StreamK.nil
383+ where
384+ nestedCount2 = round (fromIntegral linearCount**(1/2::Double))
385+
386+{-# INLINE filterSome #-}
387+filterSome :: MonadAsync m => Int -> Int -> m ()
388+filterSome linearCount start = drain $ toStream $ unCross $ do
389+ x <- mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
390+ y <- mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
391+ let s = x + y
392+ if s > 1100000
393+ then return s
394+ else mkCross StreamK.nil
395+ where
396+ nestedCount2 = round (fromIntegral linearCount**(1/2::Double))
397+
398+{-# INLINE breakAfterSome #-}
399+breakAfterSome :: Int -> Int -> IO ()
400+breakAfterSome linearCount start = do
401+ (_ :: Either ErrorCall ()) <- try $ drain $ toStream $ unCross $ do
402+ x <- mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
403+ y <- mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
404+ let s = x + y
405+ if s > 1100000
406+ then error "break"
407+ else return s
408+ return ()
409+ where
410+ nestedCount2 = round (fromIntegral linearCount**(1/2::Double))
411+
412+{-# INLINE toListM #-}
413+toListM :: MonadAsync m => Int -> Int -> m [Int]
414+toListM linearCount start = toList $ toStream $ unCross $ do
415+ x <- mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
416+ y <- mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
417+ return $ x + y
418+ where
419+ nestedCount2 = round (fromIntegral linearCount**(1/2::Double))
420+
421+-- Taking a specified number of elements is very expensive in logict so we have
422+-- a test to measure the same.
423+{-# INLINE toListSome #-}
424+toListSome :: MonadAsync m => Int -> Int -> m [Int]
425+toListSome linearCount start =
426+ toList $ Stream.take 10000 $ toStream $ unCross $ do
427+ x <- mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
428+ y <- mkCross (fromStream $ sourceUnfoldrM nestedCount2 start)
429+ return $ x + y
430+ where
431+ nestedCount2 = round (fromIntegral linearCount**(1/2::Double))
432+
433+#ifndef USE_PRELUDE
434+{-# INLINE composeN #-}
435+composeN ::
436+ (Monad m)
437+ => Int
438+ -> (Stream m Int -> Stream m Int)
439+ -> Stream m Int
440+ -> m ()
441+composeN n f =
442+ case n of
443+ 1 -> drain . f
444+ 2 -> drain . f . f
445+ 3 -> drain . f . f . f
446+ 4 -> drain . f . f . f . f
447+ _ -> undefined
448+#endif
449+
450+{-# INLINE mapN #-}
451+mapN ::
452+ Monad m
453+ => Int
454+ -> Stream m Int
455+ -> m ()
456+mapN n = composeN n $ fmap (+ 1)
457+
458+{-# INLINE mapM #-}
459+mapM ::
460+ MonadAsync m
461+ => Int
462+ -> Stream m Int
463+ -> m ()
464+mapM n = composeN n $ Stream.mapM return
465+
466+#ifndef USE_PRELUDE
467+foldl' :: Monad m => (b -> a -> b) -> b -> Stream m a -> m b
468+foldl' f z = Stream.fold (Fold.foldl' f z)
469+
470+scanl' :: Monad m => (b -> a -> b) -> b -> Stream m a -> Stream m b
471+scanl' f z = Stream.scan (Fold.foldl' f z)
472+#endif
473+
474+{-# INLINE transformMapM #-}
475+transformMapM ::
476+ (Monad m)
477+ => Int
478+ -> Stream m Int
479+ -> m ()
480+transformMapM n = composeN n $ Stream.transform (Pipe.mapM return)
481+
482+{-# INLINE transformComposeMapM #-}
483+transformComposeMapM ::
484+ (Monad m)
485+ => Int
486+ -> Stream m Int
487+ -> m ()
488+transformComposeMapM n =
489+ composeN n $
490+ Stream.transform
491+ (Pipe.mapM (\x -> return (x + 1)) `Pipe.compose`
492+ Pipe.mapM (\x -> return (x + 2)))
493+
494+{-# INLINE transformTeeMapM #-}
495+transformTeeMapM ::
496+ (Monad m)
497+ => Int
498+ -> Stream m Int
499+ -> m ()
500+transformTeeMapM n =
501+ composeN n $
502+ Stream.transform
503+ (Pipe.mapM (\x -> return (x + 1)) `Pipe.tee`
504+ Pipe.mapM (\x -> return (x + 2)))
505+
506+{-# INLINE transformZipMapM #-}
507+transformZipMapM ::
508+ (Monad m)
509+ => Int
510+ -> Stream m Int
511+ -> m ()
512+transformZipMapM n =
513+ composeN n $
514+ Stream.transform
515+ (Pipe.zipWith
516+ (+)
517+ (Pipe.mapM (\x -> return (x + 1)))
518+ (Pipe.mapM (\x -> return (x + 2))))
benchmark/Streamly/Benchmark/Data/Stream/Concurrent.hsnew file+20
@@ -0,0 +1,20 @@
1+{-# LANGUAGE FlexibleContexts #-}
2+-- |
3+-- Module : Main
4+-- Copyright : (c) 2018 Composewell Technologies
5+--
6+-- License : BSD3
7+-- Maintainer : streamly@composewell.com
8+
9+import Stream.ConcurrentCommon (allBenchmarks)
10+import Streamly.Benchmark.Common (runWithCLIOpts, defaultStreamSize)
11+
12+moduleName :: String
13+moduleName = "Data.Stream.Concurrent"
14+
15+-------------------------------------------------------------------------------
16+-- Main
17+-------------------------------------------------------------------------------
18+
19+main :: IO ()
20+main = runWithCLIOpts defaultStreamSize (allBenchmarks moduleName False id)
benchmark/Streamly/Benchmark/Data/Stream/ConcurrentCommon.hsnew file+208
@@ -0,0 +1,208 @@
1+{-# LANGUAGE FlexibleContexts #-}
2+-- |
3+-- Module : Main
4+-- Copyright : (c) 2018 Composewell Technologies
5+--
6+-- License : BSD3
7+-- Maintainer : streamly@composewell.com
8+
9+module Stream.ConcurrentCommon
10+ ( allBenchmarks
11+ )
12+where
13+
14+import Stream.Common
15+ (composeN, benchIO, benchIOSink, benchIOSrc, sourceUnfoldrM)
16+import Streamly.Data.Stream (Stream)
17+import Streamly.Internal.Data.Stream.Prelude (MonadAsync, Config)
18+
19+import qualified Data.List as List
20+import qualified Streamly.Data.Fold as Fold
21+import qualified Streamly.Data.Stream as Stream
22+import qualified Streamly.Internal.Data.Stream.Prelude as Async
23+
24+import Test.Tasty.Bench
25+import Prelude hiding (mapM)
26+import Streamly.Benchmark.Common
27+
28+-- XXX Write inspection tests to make sure no dictionaries are being passed
29+-- around to find specialization issues. Could be really bad for perf.
30+
31+-------------------------------------------------------------------------------
32+-- Mapping
33+-------------------------------------------------------------------------------
34+
35+{-# INLINE mapM #-}
36+mapM ::
37+ MonadAsync m
38+ => (Config -> Config)
39+ -> Int
40+ -> Stream m Int
41+ -> m ()
42+mapM f n = composeN n $ Async.parMapM f return
43+
44+o_1_space_mapping :: Int -> (Config -> Config) -> [Benchmark]
45+o_1_space_mapping value f =
46+ [ bgroup "mapping"
47+ [ benchIOSink value "mapM" $ mapM f 1
48+ ]
49+ ]
50+
51+-------------------------------------------------------------------------------
52+-- Size conserving transformations (reordering, buffering, etc.)
53+-------------------------------------------------------------------------------
54+
55+o_n_heap_buffering :: Int -> (Config -> Config) -> [Benchmark]
56+o_n_heap_buffering value f =
57+ [ bgroup "buffered"
58+ [ benchIOSink value "mkAsync"
59+ (Stream.fold Fold.drain . Async.parEval f)
60+ ]
61+ ]
62+
63+-------------------------------------------------------------------------------
64+-- Joining
65+-------------------------------------------------------------------------------
66+
67+{-# INLINE async2 #-}
68+async2 :: (Config -> Config) -> Int -> Int -> IO ()
69+async2 f count n =
70+ Stream.fold Fold.drain
71+ $ Async.parTwo f
72+ (sourceUnfoldrM count n) (sourceUnfoldrM count (n + 1))
73+
74+{-# INLINE concatAsync2 #-}
75+concatAsync2 :: (Config -> Config) -> Int -> Int -> IO ()
76+concatAsync2 f count n =
77+ Stream.fold Fold.drain
78+ $ Async.parConcat f
79+ $ Stream.fromList
80+ [sourceUnfoldrM count n, sourceUnfoldrM count (n + 1)]
81+
82+o_1_space_joining :: Int -> (Config -> Config) -> [Benchmark]
83+o_1_space_joining value f =
84+ [ bgroup "joining"
85+ [ benchIOSrc1 "async (2 of n/2)" (async2 f (value `div` 2))
86+ , benchIOSrc1 "concat async (2 of n/2)" (concatAsync2 f (value `div` 2))
87+ ]
88+ ]
89+
90+-------------------------------------------------------------------------------
91+-- Concat
92+-------------------------------------------------------------------------------
93+
94+{-# INLINE sourceFoldMapWith #-}
95+sourceFoldMapWith :: (Config -> Config) -> Int -> Int -> Stream IO Int
96+sourceFoldMapWith f value n =
97+ Async.parConcatMap f Stream.fromPure $ Stream.fromList [n..n+value]
98+
99+{-# INLINE sourceFoldMapWithStream #-}
100+sourceFoldMapWithStream :: (Config -> Config) -> Int -> Int -> Stream IO Int
101+sourceFoldMapWithStream f value n =
102+ Async.parConcatMap f Stream.fromPure
103+ $ Stream.enumerateFromTo n (n + value)
104+
105+{-# INLINE concatFoldableWith #-}
106+concatFoldableWith :: (Config -> Config) -> Int -> Int -> Stream IO Int
107+concatFoldableWith f value n =
108+ let step x =
109+ if x <= n + value
110+ then Just (Stream.fromPure x, x + 1)
111+ else Nothing
112+ list = List.unfoldr step n
113+ in Async.parConcat f (Stream.fromList list)
114+
115+o_1_space_concatFoldable :: Int -> (Config -> Config) -> [Benchmark]
116+o_1_space_concatFoldable value f =
117+ [ bgroup "concat-foldable"
118+ [ benchIOSrc "foldMapWith (<>) (List)"
119+ (sourceFoldMapWith f value)
120+ , benchIOSrc "foldMapWith (<>) (Stream)"
121+ (sourceFoldMapWithStream f value)
122+ , benchIOSrc "S.concatFoldableWith (<>) (List)"
123+ (concatFoldableWith f value)
124+ ]
125+ ]
126+
127+{-# INLINE concatMapStreamsWith #-}
128+concatMapStreamsWith
129+ :: (Config -> Config)
130+ -> Int
131+ -> Int
132+ -> Int
133+ -> IO ()
134+concatMapStreamsWith f outer inner n =
135+ Stream.fold Fold.drain
136+ $ Async.parConcatMap f (sourceUnfoldrM inner) (sourceUnfoldrM outer n)
137+
138+{-# INLINE concatFmapStreamsWith #-}
139+concatFmapStreamsWith
140+ :: (Config -> Config)
141+ -> Int
142+ -> Int
143+ -> Int
144+ -> IO ()
145+concatFmapStreamsWith f outer inner n =
146+ Stream.fold Fold.drain
147+ $ Async.parConcat f
148+ $ fmap (sourceUnfoldrM inner) (sourceUnfoldrM outer n)
149+
150+o_1_space_concatMap :: Int -> (Config -> Config) -> [Benchmark]
151+o_1_space_concatMap value f =
152+ value2 `seq`
153+ [ bgroup "concat"
154+ [ benchIO "parConcatMap (n of 1)"
155+ (concatMapStreamsWith f value 1)
156+ , benchIO "parConcatMap (sqrt x of sqrt x)"
157+ (concatMapStreamsWith f value2 value2)
158+ , benchIO "parConcatMap (1 of n)"
159+ (concatMapStreamsWith f 1 value)
160+ , benchIO "concat . fmap (n of 1)"
161+ (concatFmapStreamsWith f value 1)
162+ ]
163+ ]
164+
165+ where
166+
167+ value2 = round $ sqrt (fromIntegral value :: Double)
168+
169+-------------------------------------------------------------------------------
170+-- Monadic outer product
171+-------------------------------------------------------------------------------
172+
173+{-# INLINE toNullAp #-}
174+toNullAp :: (Config -> Config) -> Int -> Int -> IO ()
175+toNullAp f linearCount start =
176+ Stream.fold Fold.drain
177+ $ Async.parApply f
178+ (fmap (+) (sourceUnfoldrM nestedCount2 start))
179+ (sourceUnfoldrM nestedCount2 start)
180+
181+ where
182+
183+ nestedCount2 = round (fromIntegral linearCount**(1/2::Double))
184+
185+o_1_space_outerProduct :: Int -> (Config -> Config) -> [Benchmark]
186+o_1_space_outerProduct value f =
187+ [ bgroup "monad-outer-product"
188+ [ benchIO "toNullAp" $ toNullAp f value
189+ ]
190+ ]
191+
192+-------------------------------------------------------------------------------
193+-- Benchmark sets
194+-------------------------------------------------------------------------------
195+
196+allBenchmarks :: String -> Bool -> (Config -> Config) -> Int -> [Benchmark]
197+allBenchmarks moduleName wide modifier value =
198+ [ bgroup (o_1_space_prefix moduleName) $ concat
199+ [ o_1_space_mapping value modifier
200+ , o_1_space_concatFoldable value modifier
201+ , o_1_space_concatMap value modifier
202+ , o_1_space_joining value modifier
203+ ] ++ if wide then [] else o_1_space_outerProduct value modifier
204+ , bgroup (o_n_heap_prefix moduleName) $ concat
205+ [ if wide then o_1_space_outerProduct value modifier else []
206+ , o_n_heap_buffering value modifier
207+ ]
208+ ]
benchmark/Streamly/Benchmark/Data/Stream/ConcurrentEager.hsnew file+25
@@ -0,0 +1,25 @@
1+{-# LANGUAGE FlexibleContexts #-}
2+-- |
3+-- Module : Main
4+-- Copyright : (c) 2018 Composewell Technologies
5+--
6+-- License : BSD3
7+-- Maintainer : streamly@composewell.com
8+
9+import Stream.ConcurrentCommon (allBenchmarks)
10+import Streamly.Benchmark.Common (runWithCLIOpts, defaultStreamSize)
11+
12+import qualified Streamly.Internal.Data.Stream.Prelude as Async
13+
14+moduleName :: String
15+moduleName = "Data.Stream.ConcurrentEager"
16+
17+-------------------------------------------------------------------------------
18+-- Main
19+-------------------------------------------------------------------------------
20+
21+main :: IO ()
22+main =
23+ runWithCLIOpts
24+ defaultStreamSize
25+ (allBenchmarks moduleName True (Async.eager True))
benchmark/Streamly/Benchmark/Data/Stream/ConcurrentInterleaved.hsnew file+25
@@ -0,0 +1,25 @@
1+{-# LANGUAGE FlexibleContexts #-}
2+-- |
3+-- Module : Main
4+-- Copyright : (c) 2022 Composewell Technologies
5+--
6+-- License : BSD3
7+-- Maintainer : streamly@composewell.com
8+
9+import Stream.ConcurrentCommon (allBenchmarks)
10+import Streamly.Benchmark.Common (runWithCLIOpts, defaultStreamSize)
11+
12+import qualified Streamly.Internal.Data.Stream.Prelude as Async
13+
14+moduleName :: String
15+moduleName = "Data.Stream.ConcurrentInterleaved"
16+
17+-------------------------------------------------------------------------------
18+-- Main
19+-------------------------------------------------------------------------------
20+
21+main :: IO ()
22+main =
23+ runWithCLIOpts
24+ defaultStreamSize
25+ (allBenchmarks moduleName True (Async.interleaved True))
benchmark/Streamly/Benchmark/Data/Stream/ConcurrentOrdered.hsnew file+25
@@ -0,0 +1,25 @@
1+{-# LANGUAGE FlexibleContexts #-}
2+-- |
3+-- Module : Main
4+-- Copyright : (c) 2018 Composewell Technologies
5+--
6+-- License : BSD3
7+-- Maintainer : streamly@composewell.com
8+
9+import Stream.ConcurrentCommon (allBenchmarks)
10+import Streamly.Benchmark.Common (runWithCLIOpts, defaultStreamSize)
11+
12+import qualified Streamly.Internal.Data.Stream.Prelude as Async
13+
14+moduleName :: String
15+moduleName = "Data.Stream.ConcurrentOrdered"
16+
17+-------------------------------------------------------------------------------
18+-- Main
19+-------------------------------------------------------------------------------
20+
21+main :: IO ()
22+main =
23+ runWithCLIOpts
24+ defaultStreamSize
25+ (allBenchmarks moduleName False (Async.ordered True))
benchmark/Streamly/Benchmark/Data/Stream/Eliminate.hsnew file+748
@@ -0,0 +1,748 @@
1+-- |
2+-- Module : Stream.Eliminate
3+-- Copyright : (c) 2018 Composewell Technologies
4+-- License : BSD-3-Clause
5+-- Maintainer : streamly@composewell.com
6+
7+{-# LANGUAGE CPP #-}
8+{-# LANGUAGE FlexibleContexts #-}
9+{-# LANGUAGE FlexibleInstances #-}
10+{-# LANGUAGE ScopedTypeVariables #-}
11+{-# LANGUAGE RankNTypes #-}
12+
13+{-# OPTIONS_GHC -Wno-orphans #-}
14+#ifdef USE_PRELUDE
15+{-# OPTIONS_GHC -Wno-deprecations #-}
16+#endif
17+
18+#ifdef __HADDOCK_VERSION__
19+#undef INSPECTION
20+#endif
21+
22+#ifdef INSPECTION
23+{-# LANGUAGE TemplateHaskell #-}
24+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
25+#endif
26+
27+module Stream.Eliminate (benchmarks) where
28+
29+import Control.DeepSeq (NFData(..))
30+import Data.Functor.Identity (Identity, runIdentity)
31+import System.Random (randomRIO)
32+
33+import qualified Data.Foldable as F
34+import qualified GHC.Exts as GHC
35+import qualified Streamly.Internal.Data.Fold as Fold
36+
37+#ifdef INSPECTION
38+import GHC.Types (SPEC(..))
39+import Test.Inspection
40+import qualified Streamly.Internal.Data.Stream as D
41+#endif
42+
43+#ifdef USE_PRELUDE
44+import Streamly.Prelude (fromSerial)
45+import Streamly.Benchmark.Prelude
46+import qualified Streamly.Internal.Data.Stream.IsStream as S
47+import qualified Streamly.Internal.Data.Stream.IsStream as StreamK
48+#else
49+import Stream.Common
50+import Streamly.Internal.Data.Stream (Stream)
51+import qualified Streamly.Internal.Data.Stream as S
52+#ifdef USE_STREAMK
53+import Streamly.Internal.Data.StreamK (StreamK)
54+import qualified Streamly.Data.StreamK as StreamK
55+#else
56+import qualified Streamly.Internal.Data.Stream as StreamK
57+#endif
58+#endif
59+
60+import Test.Tasty.Bench
61+import Streamly.Benchmark.Common
62+import Prelude hiding (length, sum, or, and, any, all, notElem, elem, (!!),
63+ lookup, repeat, minimum, maximum, product, last, mapM_, init)
64+import qualified Prelude
65+
66+#ifdef USE_PRELUDE
67+type Stream = S.SerialT
68+fromStream = id
69+
70+{-# INLINE repeat #-}
71+repeat :: (Monad m, S.IsStream t) => Int -> Int -> t m Int
72+repeat count = S.take count . S.repeat
73+#endif
74+
75+-------------------------------------------------------------------------------
76+-- Elimination
77+-------------------------------------------------------------------------------
78+
79+-------------------------------------------------------------------------------
80+-- Foldable Instance
81+-------------------------------------------------------------------------------
82+
83+{-# INLINE foldableFoldl' #-}
84+foldableFoldl' :: Int -> Int -> Int
85+foldableFoldl' value n =
86+ F.foldl' (+) 0 (sourceUnfoldr value n :: Stream Identity Int)
87+
88+{-# INLINE foldableFoldrElem #-}
89+foldableFoldrElem :: Int -> Int -> Bool
90+foldableFoldrElem value n =
91+ F.foldr (\x xs -> x == value || xs)
92+ False
93+ (sourceUnfoldr value n :: Stream Identity Int)
94+
95+{-# INLINE foldableSum #-}
96+foldableSum :: Int -> Int -> Int
97+foldableSum value n =
98+ Prelude.sum (sourceUnfoldr value n :: Stream Identity Int)
99+
100+{-# INLINE foldableProduct #-}
101+foldableProduct :: Int -> Int -> Int
102+foldableProduct value n =
103+ Prelude.product (sourceUnfoldr value n :: Stream Identity Int)
104+
105+{-# INLINE _foldableNull #-}
106+_foldableNull :: Int -> Int -> Bool
107+_foldableNull value n =
108+ Prelude.null (sourceUnfoldr value n :: Stream Identity Int)
109+
110+{-# INLINE foldableElem #-}
111+foldableElem :: Int -> Int -> Bool
112+foldableElem value n =
113+ value `Prelude.elem` (sourceUnfoldr value n :: Stream Identity Int)
114+
115+{-# INLINE foldableNotElem #-}
116+foldableNotElem :: Int -> Int -> Bool
117+foldableNotElem value n =
118+ value `Prelude.notElem` (sourceUnfoldr value n :: Stream Identity Int)
119+
120+{-# INLINE foldableFind #-}
121+foldableFind :: Int -> Int -> Maybe Int
122+foldableFind value n =
123+ F.find (== (value + 1)) (sourceUnfoldr value n :: Stream Identity Int)
124+
125+{-# INLINE foldableAll #-}
126+foldableAll :: Int -> Int -> Bool
127+foldableAll value n =
128+ Prelude.all (<= (value + 1)) (sourceUnfoldr value n :: Stream Identity Int)
129+
130+{-# INLINE foldableAny #-}
131+foldableAny :: Int -> Int -> Bool
132+foldableAny value n =
133+ Prelude.any (> (value + 1)) (sourceUnfoldr value n :: Stream Identity Int)
134+
135+{- HLINT ignore "Use all"-}
136+{-# INLINE foldableAnd #-}
137+foldableAnd :: Int -> Int -> Bool
138+foldableAnd value n =
139+ Prelude.and $ fmap
140+ (<= (value + 1)) (sourceUnfoldr value n :: Stream Identity Int)
141+
142+{- HLINT ignore "Use any"-}
143+{-# INLINE foldableOr #-}
144+foldableOr :: Int -> Int -> Bool
145+foldableOr value n =
146+ Prelude.or $ fmap
147+ (> (value + 1)) (sourceUnfoldr value n :: Stream Identity Int)
148+
149+{-# INLINE foldableLength #-}
150+foldableLength :: Int -> Int -> Int
151+foldableLength value n =
152+ Prelude.length (sourceUnfoldr value n :: Stream Identity Int)
153+
154+{-# INLINE foldableMin #-}
155+foldableMin :: Int -> Int -> Int
156+foldableMin value n =
157+ Prelude.minimum (sourceUnfoldr value n :: Stream Identity Int)
158+
159+{-# INLINE ordInstanceMin #-}
160+ordInstanceMin :: Stream Identity Int -> Stream Identity Int
161+ordInstanceMin src = min src src
162+
163+{-# INLINE foldableMax #-}
164+foldableMax :: Int -> Int -> Int
165+foldableMax value n =
166+ Prelude.maximum (sourceUnfoldr value n :: Stream Identity Int)
167+
168+{-# INLINE foldableMinBy #-}
169+foldableMinBy :: Int -> Int -> Int
170+foldableMinBy value n =
171+ F.minimumBy compare (sourceUnfoldr value n :: Stream Identity Int)
172+
173+{-# INLINE foldableListMinBy #-}
174+foldableListMinBy :: Int -> Int -> Int
175+foldableListMinBy value n = F.minimumBy compare [1..value+n]
176+
177+{-# INLINE foldableMaxBy #-}
178+foldableMaxBy :: Int -> Int -> Int
179+foldableMaxBy value n =
180+ F.maximumBy compare (sourceUnfoldr value n :: Stream Identity Int)
181+
182+{-# INLINE foldableToList #-}
183+foldableToList :: Int -> Int -> [Int]
184+foldableToList value n =
185+ F.toList (sourceUnfoldr value n :: Stream Identity Int)
186+
187+{-# INLINE foldableMapM_ #-}
188+foldableMapM_ :: Monad m => Int -> Int -> m ()
189+foldableMapM_ value n =
190+ F.mapM_ (\_ -> return ()) (sourceUnfoldr value n :: Stream Identity Int)
191+
192+{-# INLINE foldableSequence_ #-}
193+foldableSequence_ :: Int -> Int -> IO ()
194+foldableSequence_ value n =
195+ F.sequence_ (sourceUnfoldrAction value n :: Stream Identity (IO Int))
196+
197+{-# INLINE _foldableMsum #-}
198+_foldableMsum :: Int -> Int -> IO Int
199+_foldableMsum value n =
200+ F.msum (sourceUnfoldrAction value n :: Stream Identity (IO Int))
201+
202+{-# INLINE showInstance #-}
203+showInstance :: Stream Identity Int -> String
204+showInstance = show
205+
206+o_1_space_elimination_foldable :: Int -> [Benchmark]
207+o_1_space_elimination_foldable value =
208+ [ bgroup "foldable"
209+ -- Foldable instance
210+ [ bench "foldl'" $ nf (foldableFoldl' value) 1
211+ , bench "foldrElem" $ nf (foldableFoldrElem value) 1
212+ -- , bench "null" $ nf (_foldableNull value) 1
213+ , bench "elem" $ nf (foldableElem value) 1
214+ , bench "length" $ nf (foldableLength value) 1
215+ , bench "sum" $ nf (foldableSum value) 1
216+ , bench "product" $ nf (foldableProduct value) 1
217+ , bench "minimum" $ nf (foldableMin value) 1
218+ , benchPureSink value "min (ord)" ordInstanceMin
219+ , bench "maximum" $ nf (foldableMax value) 1
220+ , bench "minimumBy" $ nf (`foldableMinBy` 1) value
221+ , bench "maximumBy" $ nf (`foldableMaxBy` 1) value
222+ , bench "minimumByList" $ nf (`foldableListMinBy` 1) value
223+ , bench "length . toList"
224+ $ nf (Prelude.length . foldableToList value) 1
225+ , bench "notElem" $ nf (foldableNotElem value) 1
226+ , bench "find" $ nf (foldableFind value) 1
227+ , bench "all" $ nf (foldableAll value) 1
228+ , bench "any" $ nf (foldableAny value) 1
229+ , bench "and" $ nf (foldableAnd value) 1
230+ , bench "or" $ nf (foldableOr value) 1
231+
232+ -- Applicative and Traversable operations
233+ -- TBD: traverse_
234+ , benchIOSink1 "mapM_" (foldableMapM_ value)
235+ -- TBD: for_
236+ -- TBD: forM_
237+ , benchIOSink1 "sequence_" (foldableSequence_ value)
238+ -- TBD: sequenceA_
239+ -- TBD: asum
240+ -- XXX needs to be fixed, results are in ns
241+ -- , benchIOSink1 "msum" (foldableMsum value)
242+ ]
243+ ]
244+
245+-------------------------------------------------------------------------------
246+-- Stream folds
247+-------------------------------------------------------------------------------
248+
249+#ifndef USE_PRELUDE
250+instance NFData a => NFData (Stream Identity a) where
251+ {-# INLINE rnf #-}
252+ rnf xs = runIdentity $ S.fold (Fold.foldl' (\_ x -> rnf x) ()) xs
253+#endif
254+
255+{-# INLINE benchPureSink #-}
256+benchPureSink :: NFData b
257+ => Int -> String -> (Stream Identity Int -> b) -> Benchmark
258+benchPureSink value name = benchPure name (sourceUnfoldr value)
259+
260+{-# INLINE benchHoistSink #-}
261+benchHoistSink
262+ :: (NFData b)
263+ => Int -> String -> (Stream Identity Int -> IO b) -> Benchmark
264+benchHoistSink value name f =
265+ bench name $ nfIO $ randomRIO (1,1) >>= f . sourceUnfoldr value
266+
267+-- XXX We should be using sourceUnfoldrM for fair comparison with IO monad, but
268+-- we can't use it as it requires MonadAsync constraint.
269+{-# INLINE benchIdentitySink #-}
270+benchIdentitySink
271+ :: (NFData b)
272+ => Int -> String -> (Stream Identity Int -> Identity b) -> Benchmark
273+benchIdentitySink value name f = bench name $ nf (f . sourceUnfoldr value) 1
274+
275+-------------------------------------------------------------------------------
276+-- Reductions
277+-------------------------------------------------------------------------------
278+
279+{-# INLINE uncons #-}
280+#ifdef USE_STREAMK
281+uncons :: Monad m => StreamK m Int -> m ()
282+#else
283+uncons :: Monad m => Stream m Int -> m ()
284+#endif
285+uncons s = do
286+ r <- StreamK.uncons s
287+ case r of
288+ Nothing -> return ()
289+ Just (_, t) -> uncons t
290+
291+#ifdef USE_PRELUDE
292+{-# INLINE init #-}
293+init :: Monad m => Stream m a -> m ()
294+init s = S.init s >>= Prelude.mapM_ S.drain
295+
296+{-# INLINE mapM_ #-}
297+mapM_ :: Monad m => Stream m Int -> m ()
298+mapM_ = S.mapM_ (\_ -> return ())
299+#endif
300+
301+{-# INLINE foldrMElem #-}
302+foldrMElem :: Monad m => Int -> Stream m Int -> m Bool
303+foldrMElem e =
304+ S.foldrM
305+ (\x xs ->
306+ if x == e
307+ then return True
308+ else xs)
309+ (return False)
310+
311+#ifdef USE_STREAMK
312+{-# INLINE foldrToStream #-}
313+foldrToStream :: Monad m => Stream m Int -> m (StreamK Identity Int)
314+foldrToStream = S.foldr StreamK.cons StreamK.nil
315+#else
316+-- {-# INLINE foldrToStream #-}
317+-- foldrToStream :: Monad m => Stream m Int -> m (Stream Identity Int)
318+-- foldrToStream = S.foldr S.cons S.nil
319+#endif
320+
321+{-# INLINE foldrMBuild #-}
322+foldrMBuild :: Monad m => Stream m Int -> m [Int]
323+foldrMBuild = S.foldrM (\x xs -> (x :) <$> xs) (return [])
324+
325+#ifdef USE_PRELUDE
326+{-# INLINE foldl'Reduce #-}
327+foldl'Reduce :: Monad m => Stream m Int -> m Int
328+foldl'Reduce = S.foldl' (+) 0
329+
330+{-# INLINE foldl1'Reduce #-}
331+foldl1'Reduce :: Monad m => Stream m Int -> m (Maybe Int)
332+foldl1'Reduce = S.foldl1' (+)
333+
334+{-# INLINE foldlM'Reduce #-}
335+foldlM'Reduce :: Monad m => Stream m Int -> m Int
336+foldlM'Reduce = S.foldlM' (\xs a -> return $ a + xs) (return 0)
337+
338+{-# INLINE last #-}
339+last :: Monad m => Stream m Int -> m (Maybe Int)
340+last = S.last
341+
342+{-# INLINE _head #-}
343+_head :: Monad m => Stream m Int -> m (Maybe Int)
344+_head = S.head
345+
346+{-# INLINE elem #-}
347+elem :: Monad m => Int -> Stream m Int -> m Bool
348+elem value = S.elem (value + 1)
349+
350+{-# INLINE notElem #-}
351+notElem :: Monad m => Int -> Stream m Int -> m Bool
352+notElem value = S.notElem (value + 1)
353+
354+{-# INLINE length #-}
355+length :: Monad m => Stream m Int -> m Int
356+length = S.length
357+
358+{-# INLINE all #-}
359+all :: Monad m => Int -> Stream m Int -> m Bool
360+all value = S.all (<= (value + 1))
361+
362+{-# INLINE any #-}
363+any :: Monad m => Int -> Stream m Int -> m Bool
364+any value = S.any (> (value + 1))
365+
366+{-# INLINE and #-}
367+and :: Monad m => Int -> Stream m Int -> m Bool
368+and value = S.and . S.map (<= (value + 1))
369+
370+{-# INLINE or #-}
371+or :: Monad m => Int -> Stream m Int -> m Bool
372+or value = S.or . S.map (> (value + 1))
373+
374+{-# INLINE find #-}
375+find :: Monad m => Int -> Stream m Int -> m (Maybe Int)
376+find value = S.find (== (value + 1))
377+
378+{-# INLINE findM #-}
379+findM :: Monad m => Int -> Stream m Int -> m (Maybe Int)
380+findM value = S.findM (\z -> return $ z == (value + 1))
381+
382+{-# INLINE findIndex #-}
383+findIndex :: Monad m => Int -> Stream m Int -> m (Maybe Int)
384+findIndex value = S.findIndex (== (value + 1))
385+
386+{-# INLINE elemIndex #-}
387+elemIndex :: Monad m => Int -> Stream m Int -> m (Maybe Int)
388+elemIndex value = S.elemIndex (value + 1)
389+
390+{-# INLINE maximum #-}
391+maximum :: Monad m => Stream m Int -> m (Maybe Int)
392+maximum = S.maximum
393+
394+{-# INLINE minimum #-}
395+minimum :: Monad m => Stream m Int -> m (Maybe Int)
396+minimum = S.minimum
397+
398+{-# INLINE sum #-}
399+sum :: Monad m => Stream m Int -> m Int
400+sum = S.sum
401+
402+{-# INLINE product #-}
403+product :: Monad m => Stream m Int -> m Int
404+product = S.product
405+
406+{-# INLINE minimumBy #-}
407+minimumBy :: Monad m => Stream m Int -> m (Maybe Int)
408+minimumBy = S.minimumBy compare
409+
410+{-# INLINE maximumBy #-}
411+maximumBy :: Monad m => Stream m Int -> m (Maybe Int)
412+maximumBy = S.maximumBy compare
413+
414+{-# INLINE the #-}
415+the :: Monad m => Stream m Int -> m (Maybe Int)
416+the = S.the
417+
418+{-# INLINE drainN #-}
419+drainN :: Monad m => Int -> Stream m Int -> m ()
420+drainN = S.drainN
421+
422+{-# INLINE drainWhile #-}
423+drainWhile :: Monad m => Stream m Int -> m ()
424+drainWhile = S.drainWhile (const True)
425+
426+{-# INLINE (!!) #-}
427+(!!) :: Monad m => Int -> Stream m Int -> m (Maybe Int)
428+(!!) = flip (S.!!)
429+
430+{-# INLINE lookup #-}
431+lookup :: Monad m => Int -> Stream m Int -> m (Maybe Int)
432+lookup val = S.lookup val . S.map (\x -> (x, x))
433+#endif
434+
435+o_1_space_elimination_folds :: Int -> [Benchmark]
436+o_1_space_elimination_folds value =
437+ [ bgroup "elimination"
438+ -- Basic folds
439+ [
440+#ifdef USE_PRELUDE
441+ bgroup "reduce"
442+ [ bgroup
443+ "IO"
444+ [ benchIOSink value "foldl'" foldl'Reduce
445+ , benchIOSink value "foldl1'" foldl1'Reduce
446+ , benchIOSink value "foldlM'" foldlM'Reduce
447+ ]
448+
449+ , bgroup
450+ "Identity"
451+ [ benchIdentitySink value "foldl'" foldl'Reduce
452+ , benchIdentitySink value "foldl1'" foldl1'Reduce
453+ , benchIdentitySink value "foldlM'" foldlM'Reduce
454+ ]
455+ ] ,
456+#endif
457+ bgroup "build"
458+ [ bgroup "IO"
459+ [ benchIOSink value "foldrMElem" (foldrMElem value)
460+ ]
461+ , bgroup "Identity"
462+ [ benchIdentitySink value "foldrMElem" (foldrMElem value)
463+#ifdef USE_STREAMK
464+ , benchIdentitySink value "foldrToStreamLength"
465+ (S.fold Fold.length . toStream . runIdentity . foldrToStream)
466+ {-
467+ , benchIdentitySink 16 "foldrToStreamLength (16)"
468+ (S.fold Fold.length . toStream . runIdentity . foldrToStream)
469+ -}
470+#else
471+ {-
472+ , benchIdentitySink 16 "foldrToStreamLength (16)"
473+ (S.fold Fold.length . runIdentity . foldrToStream)
474+ -}
475+#endif
476+ {-
477+ , benchPureSink 16 "foldrMToListLength (16)"
478+ (Prelude.length . runIdentity . foldrMBuild)
479+ -}
480+ , benchPureSink value "foldrMToListLength"
481+ (Prelude.length . runIdentity . foldrMBuild)
482+ ]
483+ ]
484+
485+ -- deconstruction
486+ , benchIOSink value "uncons" (uncons . fromStream)
487+#ifndef USE_PRELUDE
488+ , benchHoistSink value "length . generalizeInner"
489+ (S.fold Fold.length . S.generalizeInner)
490+#endif
491+#ifdef USE_PRELUDE
492+ , benchIOSink value "init" init
493+
494+ -- draining
495+ , benchIOSink value "drain" $ toNull fromSerial
496+ , benchIOSink value "drainN" $ drainN value
497+ , benchIOSink value "drainWhile" drainWhile
498+ , benchPureSink value "drain (pure)" id
499+ , benchIOSink value "mapM_" mapM_
500+
501+ -- this is too fast, causes all benchmarks reported in ns
502+ -- , benchIOSink value "head" head
503+ , benchIOSink value "last" last
504+ , benchIOSink value "length" length
505+ , benchIOSink value "sum" sum
506+ , benchIOSink value "product" product
507+ , benchIOSink value "maximumBy" maximumBy
508+ , benchIOSink value "maximum" maximum
509+ , benchIOSink value "minimumBy" minimumBy
510+ , benchIOSink value "minimum" minimum
511+
512+ , bench "the" $ nfIO $ randomRIO (1,1) >>= the . repeat value
513+ , benchIOSink value "find" (find value)
514+ , benchIOSink value "findM" (findM value)
515+ -- , benchIOSink value "lookupFirst" (lookup 1)
516+ , benchIOSink value "lookupNever" (lookup (value + 1))
517+ , benchIOSink value "(!!)" (value !!)
518+ , benchIOSink value "findIndex" (findIndex value)
519+ , benchIOSink value "elemIndex" (elemIndex value)
520+ -- this is too fast, causes all benchmarks reported in ns
521+ -- , benchIOSink value "null" S.null
522+ , benchIOSink value "elem" (elem value)
523+ , benchIOSink value "notElem" (notElem value)
524+ , benchIOSink value "all" (all value)
525+ , benchIOSink value "any" (any value)
526+ , benchIOSink value "and" (and value)
527+ , benchIOSink value "or" (or value)
528+#endif
529+
530+ -- length is used to check for foldr/build fusion
531+ , benchPureSink value "length . IsList.toList" (Prelude.length . GHC.toList)
532+ ]
533+ ]
534+
535+-------------------------------------------------------------------------------
536+-- Buffered Transformations by fold
537+-------------------------------------------------------------------------------
538+
539+#ifdef USE_PRELUDE
540+{-# INLINE foldl'Build #-}
541+foldl'Build :: Monad m => Stream m Int -> m [Int]
542+foldl'Build = S.foldl' (flip (:)) []
543+
544+{-# INLINE foldlM'Build #-}
545+foldlM'Build :: Monad m => Stream m Int -> m [Int]
546+foldlM'Build = S.foldlM' (\xs x -> return $ x : xs) (return [])
547+
548+o_n_heap_elimination_foldl :: Int -> [Benchmark]
549+o_n_heap_elimination_foldl value =
550+ [ bgroup "foldl"
551+ -- Left folds for building a structure are inherently non-streaming
552+ -- as the structure cannot be lazily consumed until fully built.
553+ [ benchIOSink value "foldl'/build/IO" foldl'Build
554+ , benchIdentitySink value "foldl'/build/Identity" foldl'Build
555+ , benchIOSink value "foldlM'/build/IO" foldlM'Build
556+ , benchIdentitySink value "foldlM'/build/Identity" foldlM'Build
557+ ]
558+ ]
559+#endif
560+
561+-- For comparisons
562+{-# INLINE showInstanceList #-}
563+showInstanceList :: [Int] -> String
564+showInstanceList = show
565+
566+o_n_heap_elimination_buffered :: Int -> [Benchmark]
567+o_n_heap_elimination_buffered value =
568+ [ bgroup "buffered"
569+ -- Buffers the output of show/read.
570+ -- XXX can the outputs be streaming? Can we have special read/show
571+ -- style type classes, readM/showM supporting streaming effects?
572+ [ bench "showPrec Haskell lists" $ nf showInstanceList (mkList value)
573+ -- XXX This is not o-1-space for GHC-8.10
574+ , benchPureSink value "showsPrec pure streams" showInstance
575+ ]
576+ ]
577+
578+{-# INLINE foldrMReduce #-}
579+foldrMReduce :: Monad m => Stream m Int -> m Int
580+foldrMReduce = S.foldrM (\x xs -> (x +) <$> xs) (return 0)
581+
582+o_n_space_elimination_foldr :: Int -> [Benchmark]
583+o_n_space_elimination_foldr value =
584+ -- Head recursive strict right folds.
585+ [ bgroup "foldr"
586+ -- accumulation due to strictness of IO monad
587+ [ benchIOSink value "foldrM/build/IO (toList)" foldrMBuild
588+ -- Right folds for reducing are inherently non-streaming as the
589+ -- expression needs to be fully built before it can be reduced.
590+ , benchIdentitySink value "foldrM/reduce/Identity (sum)" foldrMReduce
591+ , benchIOSink value "foldrM/reduce/IO (sum)" foldrMReduce
592+ ]
593+ ]
594+
595+#ifdef USE_PRELUDE
596+o_n_heap_elimination_toList :: Int -> [Benchmark]
597+o_n_heap_elimination_toList value =
598+ [ bgroup "toList"
599+ -- Converting the stream to a list or pure stream in a strict monad
600+ [ benchIOSink value "toListRev" S.toListRev
601+ , benchIOSink value "toStreamRev"
602+ (S.toStreamRev :: (Stream IO Int -> IO (Stream Identity Int)))
603+ ]
604+ ]
605+
606+o_n_space_elimination_toList :: Int -> [Benchmark]
607+o_n_space_elimination_toList value =
608+ [ bgroup "toList"
609+ -- Converting the stream to a list or pure stream in a strict monad
610+ [ benchIOSink value "toList" S.toList
611+#ifndef USE_PRELUDE
612+ , benchIOSink value "toStream"
613+ (S.toStream :: (Stream IO Int -> IO (Stream Identity Int)))
614+#endif
615+ ]
616+ ]
617+#endif
618+
619+-------------------------------------------------------------------------------
620+-- Multi-stream folds
621+-------------------------------------------------------------------------------
622+
623+-------------------------------------------------------------------------------
624+-- Multi-stream pure
625+-------------------------------------------------------------------------------
626+
627+{-# INLINE eqBy' #-}
628+eqBy' :: (Monad m, Eq a) => Stream m a -> m Bool
629+eqBy' src = S.eqBy (==) src src
630+
631+{-# INLINE eqByPure #-}
632+eqByPure :: Int -> Int -> Identity Bool
633+eqByPure value n = eqBy' (sourceUnfoldr value n)
634+
635+#ifdef INSPECTION
636+inspect $ hasNoTypeClasses 'eqByPure
637+inspect $ 'eqByPure `hasNoType` ''SPEC
638+inspect $ 'eqByPure `hasNoType` ''D.Step
639+#endif
640+
641+{-# INLINE eqInstance #-}
642+eqInstance :: Stream Identity Int -> Bool
643+eqInstance src = src == src
644+
645+{-# INLINE eqInstanceNotEq #-}
646+eqInstanceNotEq :: Stream Identity Int -> Bool
647+eqInstanceNotEq src = src /= src
648+
649+{-# INLINE cmpBy' #-}
650+cmpBy' :: (Monad m, Ord a) => Stream m a -> m Ordering
651+cmpBy' src = S.cmpBy compare src src
652+
653+{-# INLINE cmpByPure #-}
654+cmpByPure :: Int -> Int -> Identity Ordering
655+cmpByPure value n = cmpBy' (sourceUnfoldr value n)
656+
657+#ifdef INSPECTION
658+inspect $ hasNoTypeClasses 'cmpByPure
659+inspect $ 'cmpByPure `hasNoType` ''SPEC
660+inspect $ 'cmpByPure `hasNoType` ''D.Step
661+#endif
662+
663+{-# INLINE ordInstance #-}
664+ordInstance :: Stream Identity Int -> Bool
665+ordInstance src = src < src
666+
667+o_1_space_elimination_multi_stream_pure :: Int -> [Benchmark]
668+o_1_space_elimination_multi_stream_pure value =
669+ [ bgroup "multi-stream-pure"
670+ [ benchPureSink1 "eqBy" (eqByPure value)
671+ , benchPureSink value "==" eqInstance
672+ , benchPureSink value "/=" eqInstanceNotEq
673+ , benchPureSink1 "cmpBy" (cmpByPure value)
674+ , benchPureSink value "<" ordInstance
675+ ]
676+ ]
677+
678+{-# INLINE isPrefixOf #-}
679+isPrefixOf :: Monad m => Stream m Int -> m Bool
680+isPrefixOf src = S.isPrefixOf src src
681+
682+{-# INLINE isSubsequenceOf #-}
683+isSubsequenceOf :: Monad m => Stream m Int -> m Bool
684+isSubsequenceOf src = S.isSubsequenceOf src src
685+
686+{-# INLINE stripPrefix #-}
687+stripPrefix :: Monad m => Stream m Int -> m ()
688+stripPrefix src = do
689+ _ <- S.stripPrefix src src
690+ return ()
691+
692+{-# INLINE eqBy #-}
693+eqBy :: Int -> Int -> IO Bool
694+eqBy value n = eqBy' (sourceUnfoldrM value n)
695+
696+#ifdef INSPECTION
697+inspect $ hasNoTypeClasses 'eqBy
698+inspect $ 'eqBy `hasNoType` ''SPEC
699+inspect $ 'eqBy `hasNoType` ''D.Step
700+#endif
701+
702+{-# INLINE cmpBy #-}
703+cmpBy :: Int -> Int -> IO Ordering
704+cmpBy value n = cmpBy' (sourceUnfoldrM value n)
705+
706+#ifdef INSPECTION
707+inspect $ hasNoTypeClasses 'cmpBy
708+inspect $ 'cmpBy `hasNoType` ''SPEC
709+inspect $ 'cmpBy `hasNoType` ''D.Step
710+#endif
711+
712+o_1_space_elimination_multi_stream :: Int -> [Benchmark]
713+o_1_space_elimination_multi_stream value =
714+ [ bgroup "multi-stream"
715+ [ benchIOSink1 "eqBy" (eqBy value)
716+ , benchIOSink1 "cmpBy" (cmpBy value)
717+ , benchIOSink value "isPrefixOf" isPrefixOf
718+ , benchIOSink value "isSubsequenceOf" isSubsequenceOf
719+ , benchIOSink value "stripPrefix" stripPrefix
720+ ]
721+ ]
722+
723+-------------------------------------------------------------------------------
724+-- Main
725+-------------------------------------------------------------------------------
726+
727+-- In addition to gauge options, the number of elements in the stream can be
728+-- passed using the --stream-size option.
729+--
730+benchmarks :: String -> Int -> [Benchmark]
731+benchmarks moduleName size =
732+ [ bgroup (o_1_space_prefix moduleName) $ concat
733+ [ o_1_space_elimination_foldable size
734+ , o_1_space_elimination_folds size
735+ , o_1_space_elimination_multi_stream_pure size
736+ , o_1_space_elimination_multi_stream size
737+ ]
738+
739+ , bgroup (o_n_heap_prefix moduleName) $
740+ o_n_heap_elimination_buffered size
741+#ifdef USE_PRELUDE
742+ ++ o_n_heap_elimination_foldl size
743+ ++ o_n_heap_elimination_toList size
744+ ++ o_n_space_elimination_toList size
745+#endif
746+ , bgroup (o_n_space_prefix moduleName) $
747+ o_n_space_elimination_foldr size
748+ ]
benchmark/Streamly/Benchmark/Data/Stream/Exceptions.hsnew file+371
@@ -0,0 +1,371 @@
1+-- |
2+-- Module : Stream.Exceptions
3+-- Copyright : (c) 2019 Composewell Technologies
4+-- License : BSD-3-Clause
5+-- Maintainer : streamly@composewell.com
6+-- Stability : experimental
7+-- Portability : GHC
8+
9+{-# LANGUAGE CPP #-}
10+{-# LANGUAGE FlexibleContexts #-}
11+{-# LANGUAGE ScopedTypeVariables #-}
12+
13+#ifdef USE_PRELUDE
14+{-# OPTIONS_GHC -Wno-deprecations #-}
15+#endif
16+
17+#ifdef __HADDOCK_VERSION__
18+#undef INSPECTION
19+#endif
20+
21+#ifdef INSPECTION
22+{-# LANGUAGE TemplateHaskell #-}
23+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
24+#endif
25+
26+module Stream.Exceptions (benchmarks) where
27+
28+import Control.Exception (Exception, throwIO)
29+import Stream.Common (drain)
30+
31+import qualified Data.IORef as Ref
32+import qualified Data.Map.Strict as Map
33+
34+import Control.Exception (SomeException)
35+import System.IO (Handle, hClose, hPutChar)
36+import qualified Streamly.FileSystem.Handle as FH
37+import qualified Streamly.Internal.FileSystem.Handle as IFH
38+import qualified Streamly.Internal.Data.Unfold as IUF
39+import qualified Streamly.Internal.Data.Unfold.Prelude as IUF
40+
41+#ifdef USE_PRELUDE
42+import qualified Streamly.Internal.Data.Stream.IsStream as Stream
43+#else
44+import qualified Streamly.Internal.Data.Stream as Stream
45+import qualified Streamly.Internal.Data.Stream.Prelude as Stream
46+#endif
47+
48+import Test.Tasty.Bench hiding (env)
49+import Prelude hiding (last, length)
50+import Streamly.Benchmark.Common
51+import Streamly.Benchmark.Common.Handle
52+
53+#ifdef INSPECTION
54+import Control.Monad.Catch (MonadCatch)
55+import Test.Inspection
56+
57+import qualified Streamly.Internal.Data.Stream as D
58+#endif
59+
60+#ifdef USE_PRELUDE
61+type Stream = Stream.SerialT
62+toStreamD = Stream.toStream
63+fromStreamD = Stream.fromStream
64+#else
65+type Stream = Stream.Stream
66+toStreamD :: a -> a
67+toStreamD = id
68+fromStreamD :: a -> a
69+fromStreamD = id
70+#endif
71+
72+afterUnsafe :: IO b -> Stream IO a -> Stream IO a
73+finallyUnsafe :: IO b -> Stream IO a -> Stream IO a
74+bracketUnsafe :: IO b -> (b -> IO c) -> (b -> Stream IO a) -> Stream IO a
75+#ifdef USE_PRELUDE
76+afterUnsafe = Stream.after_
77+finallyUnsafe = Stream.finally_
78+bracketUnsafe = Stream.bracket_
79+#else
80+afterUnsafe = Stream.afterUnsafe
81+finallyUnsafe = Stream.finallyUnsafe
82+bracketUnsafe = Stream.bracketUnsafe
83+#endif
84+
85+-------------------------------------------------------------------------------
86+-- stream exceptions
87+-------------------------------------------------------------------------------
88+
89+data BenchException
90+ = BenchException1
91+ | BenchException2
92+ deriving (Show, Eq, Ord)
93+
94+instance Exception BenchException
95+
96+retryNoneSimple :: Int -> Int -> IO ()
97+retryNoneSimple length from =
98+ drain
99+ $ Stream.retry
100+ (Map.singleton BenchException1 length)
101+ (const Stream.nil)
102+ source
103+
104+ where
105+
106+ source = Stream.enumerateFromTo from (from + length)
107+
108+retryNone :: Int -> Int -> IO ()
109+retryNone length from = do
110+ ref <- Ref.newIORef (0 :: Int)
111+ drain
112+ $ Stream.retry (Map.singleton BenchException1 length) (const Stream.nil)
113+ $ source ref
114+
115+ where
116+
117+ source ref =
118+ Stream.replicateM (from + length)
119+ $ Ref.modifyIORef' ref (+ 1) >> Ref.readIORef ref
120+
121+retryAll :: Int -> Int -> IO ()
122+retryAll length from = do
123+ ref <- Ref.newIORef 0
124+ drain
125+ $ Stream.retry
126+ (Map.singleton BenchException1 (length + from)) (const Stream.nil)
127+ $ source ref
128+
129+ where
130+
131+ source ref =
132+ Stream.fromEffect
133+ $ do
134+ Ref.modifyIORef' ref (+ 1)
135+ val <- Ref.readIORef ref
136+ if val >= length
137+ then return length
138+ else throwIO BenchException1
139+
140+retryUnknown :: Int -> Int -> IO ()
141+retryUnknown length from = do
142+ drain
143+ $ Stream.retry (Map.singleton BenchException1 length) (const source)
144+ $ throwIO BenchException2 `Stream.before` Stream.nil
145+
146+ where
147+
148+ source = Stream.enumerateFromTo from (from + length)
149+
150+
151+o_1_space_serial_exceptions :: Int -> [Benchmark]
152+o_1_space_serial_exceptions length =
153+ [ bgroup
154+ "exceptions/serial"
155+ [ benchIOSrc1 "retryNoneSimple" (retryNoneSimple length)
156+ , benchIOSrc1 "retryNone" (retryNone length)
157+ , benchIOSrc1 "retryAll" (retryAll length)
158+ , benchIOSrc1 "retryUnknown" (retryUnknown length)
159+ ]
160+ ]
161+
162+-- XXX Move these to FileSystem.Handle benchmarks
163+
164+-------------------------------------------------------------------------------
165+-- copy stream exceptions
166+-------------------------------------------------------------------------------
167+
168+-- | Send the file contents to /dev/null with exception handling
169+readWriteOnExceptionStream :: Handle -> Handle -> IO ()
170+readWriteOnExceptionStream inh devNull =
171+ let readEx = Stream.onException (hClose inh) (Stream.unfold FH.reader inh)
172+ in Stream.fold (FH.write devNull) readEx
173+
174+#ifdef INSPECTION
175+inspect $ hasNoTypeClasses 'readWriteOnExceptionStream
176+#endif
177+
178+-- | Send the file contents to /dev/null with exception handling
179+readWriteHandleExceptionStream :: Handle -> Handle -> IO ()
180+readWriteHandleExceptionStream inh devNull =
181+ let handler (_e :: SomeException) =
182+ return $ Stream.fromEffect (hClose inh >> return 10)
183+ readEx = Stream.handle handler (Stream.unfold FH.reader inh)
184+ in Stream.fold (FH.write devNull) readEx
185+
186+#ifdef INSPECTION
187+inspect $ hasNoTypeClasses 'readWriteHandleExceptionStream
188+#endif
189+
190+-- | Send the file contents to /dev/null with exception handling
191+readWriteFinally_Stream :: Handle -> Handle -> IO ()
192+readWriteFinally_Stream inh devNull =
193+ let readEx =
194+ finallyUnsafe (hClose inh) (Stream.unfold FH.reader inh)
195+ in Stream.fold (FH.write devNull) readEx
196+
197+#ifdef INSPECTION
198+inspect $ hasNoTypeClasses 'readWriteFinally_Stream
199+#endif
200+
201+readWriteFinallyStream :: Handle -> Handle -> IO ()
202+readWriteFinallyStream inh devNull =
203+ let readEx = Stream.finally (hClose inh) (Stream.unfold FH.reader inh)
204+ in Stream.fold (FH.write devNull) readEx
205+
206+-- | Send the file contents to /dev/null with exception handling
207+fromToBytesBracket_Stream :: Handle -> Handle -> IO ()
208+fromToBytesBracket_Stream inh devNull =
209+ let readEx = bracketUnsafe (return ()) (\_ -> hClose inh)
210+ (\_ -> fromStreamD $ IFH.read inh)
211+ in IFH.putBytes devNull (toStreamD readEx)
212+
213+#ifdef INSPECTION
214+inspect $ hasNoTypeClasses 'fromToBytesBracket_Stream
215+#endif
216+
217+fromToBytesBracketStream :: Handle -> Handle -> IO ()
218+fromToBytesBracketStream inh devNull =
219+ let readEx = Stream.bracket (return ()) (\_ -> hClose inh)
220+ (\_ -> fromStreamD $ IFH.read inh)
221+ in IFH.putBytes devNull (toStreamD readEx)
222+
223+readWriteBeforeAfterStream :: Handle -> Handle -> IO ()
224+readWriteBeforeAfterStream inh devNull =
225+ let readEx =
226+ Stream.after (hClose inh)
227+ $ Stream.before (hPutChar devNull 'A') (Stream.unfold FH.reader inh)
228+ in Stream.fold (FH.write devNull) readEx
229+
230+#ifdef INSPECTION
231+inspect $ 'readWriteBeforeAfterStream `hasNoType` ''D.Step
232+#endif
233+
234+readWriteAfterStream :: Handle -> Handle -> IO ()
235+readWriteAfterStream inh devNull =
236+ let readEx = Stream.after (hClose inh) (Stream.unfold FH.reader inh)
237+ in Stream.fold (FH.write devNull) readEx
238+
239+#ifdef INSPECTION
240+inspect $ 'readWriteAfterStream `hasNoType` ''D.Step
241+#endif
242+
243+readWriteAfter_Stream :: Handle -> Handle -> IO ()
244+readWriteAfter_Stream inh devNull =
245+ let readEx = afterUnsafe (hClose inh) (Stream.unfold FH.reader inh)
246+ in Stream.fold (FH.write devNull) readEx
247+
248+#ifdef INSPECTION
249+inspect $ hasNoTypeClasses 'readWriteAfter_Stream
250+inspect $ 'readWriteAfter_Stream `hasNoType` ''D.Step
251+#endif
252+
253+o_1_space_copy_stream_exceptions :: BenchEnv -> [Benchmark]
254+o_1_space_copy_stream_exceptions env =
255+ [ bgroup "exceptions"
256+ [ mkBenchSmall "Stream.onException" env $ \inh _ ->
257+ readWriteOnExceptionStream inh (nullH env)
258+ , mkBenchSmall "Stream.handle" env $ \inh _ ->
259+ readWriteHandleExceptionStream inh (nullH env)
260+ , mkBenchSmall "Stream.finally_" env $ \inh _ ->
261+ readWriteFinally_Stream inh (nullH env)
262+ , mkBenchSmall "Stream.finally" env $ \inh _ ->
263+ readWriteFinallyStream inh (nullH env)
264+ , mkBenchSmall "Stream.after . Stream.before" env $ \inh _ ->
265+ readWriteBeforeAfterStream inh (nullH env)
266+ , mkBenchSmall "Stream.after" env $ \inh _ ->
267+ readWriteAfterStream inh (nullH env)
268+ , mkBenchSmall "Stream.after_" env $ \inh _ ->
269+ readWriteAfter_Stream inh (nullH env)
270+ ]
271+ , bgroup "exceptions/fromToBytes"
272+ [ mkBenchSmall "Stream.bracket_" env $ \inh _ ->
273+ fromToBytesBracket_Stream inh (nullH env)
274+ , mkBenchSmall "Stream.bracket" env $ \inh _ ->
275+ fromToBytesBracketStream inh (nullH env)
276+ ]
277+ ]
278+
279+ -------------------------------------------------------------------------------
280+-- Exceptions readChunks
281+-------------------------------------------------------------------------------
282+
283+-- | Send the file contents to /dev/null with exception handling
284+readChunksOnException :: Handle -> Handle -> IO ()
285+readChunksOnException inh devNull =
286+ let readEx = IUF.onException (\_ -> hClose inh) FH.chunkReader
287+ in IUF.fold (IFH.writeChunks devNull) readEx inh
288+
289+#ifdef INSPECTION
290+#if __GLASGOW_HASKELL__ >= 906
291+inspect $ hasNoTypeClassesExcept 'readChunksOnException [''MonadCatch]
292+#else
293+inspect $ hasNoTypeClasses 'readChunksOnException
294+#endif
295+#endif
296+
297+-- | Send the file contents to /dev/null with exception handling
298+readChunksBracket_ :: Handle -> Handle -> IO ()
299+readChunksBracket_ inh devNull =
300+ let readEx = IUF.bracket_ return (\_ -> hClose inh) FH.chunkReader
301+ in IUF.fold (IFH.writeChunks devNull) readEx inh
302+
303+#ifdef INSPECTION
304+#if __GLASGOW_HASKELL__ >= 906
305+inspect $ hasNoTypeClassesExcept 'readChunksBracket_ [''MonadCatch]
306+#else
307+inspect $ hasNoTypeClasses 'readChunksBracket_
308+#endif
309+#endif
310+
311+readChunksBracket :: Handle -> Handle -> IO ()
312+readChunksBracket inh devNull =
313+ let readEx = IUF.bracket return (\_ -> hClose inh) FH.chunkReader
314+ in IUF.fold (IFH.writeChunks devNull) readEx inh
315+
316+o_1_space_copy_exceptions_readChunks :: BenchEnv -> [Benchmark]
317+o_1_space_copy_exceptions_readChunks env =
318+ [ bgroup "exceptions/readChunks"
319+ [ mkBench "UF.onException" env $ \inH _ ->
320+ readChunksOnException inH (nullH env)
321+ , mkBench "UF.bracket_" env $ \inH _ ->
322+ readChunksBracket_ inH (nullH env)
323+ , mkBench "UF.bracket" env $ \inH _ ->
324+ readChunksBracket inH (nullH env)
325+ ]
326+ ]
327+
328+-------------------------------------------------------------------------------
329+-- Exceptions toChunks
330+-------------------------------------------------------------------------------
331+
332+-- | Send the file contents to /dev/null with exception handling
333+toChunksBracket_ :: Handle -> Handle -> IO ()
334+toChunksBracket_ inh devNull =
335+ let readEx = bracketUnsafe
336+ (return ())
337+ (\_ -> hClose inh)
338+ (\_ -> fromStreamD $ IFH.readChunks inh)
339+ in Stream.fold (IFH.writeChunks devNull) readEx
340+
341+#ifdef INSPECTION
342+inspect $ hasNoTypeClasses 'toChunksBracket_
343+#endif
344+
345+toChunksBracket :: Handle -> Handle -> IO ()
346+toChunksBracket inh devNull =
347+ let readEx = Stream.bracket
348+ (return ())
349+ (\_ -> hClose inh)
350+ (\_ -> fromStreamD $ IFH.readChunks inh)
351+ in Stream.fold (IFH.writeChunks devNull) readEx
352+
353+o_1_space_copy_exceptions_toChunks :: BenchEnv -> [Benchmark]
354+o_1_space_copy_exceptions_toChunks env =
355+ [ bgroup "exceptions/toChunks"
356+ [ mkBench "Stream.bracket_" env $ \inH _ ->
357+ toChunksBracket_ inH (nullH env)
358+ , mkBench "Stream.bracket" env $ \inH _ ->
359+ toChunksBracket inH (nullH env)
360+ ]
361+ ]
362+
363+benchmarks :: String -> BenchEnv -> Int -> [Benchmark]
364+benchmarks moduleName _env size =
365+ [ bgroup (o_1_space_prefix moduleName) $ concat
366+ [ o_1_space_serial_exceptions size
367+ , o_1_space_copy_exceptions_readChunks _env
368+ , o_1_space_copy_exceptions_toChunks _env
369+ , o_1_space_copy_stream_exceptions _env
370+ ]
371+ ]
benchmark/Streamly/Benchmark/Data/Stream/Expand.hsnew file+563
@@ -0,0 +1,563 @@
1+-- |
2+-- Module : Stream.Expand
3+-- Copyright : (c) 2018 Composewell Technologies
4+-- License : BSD-3-Clause
5+-- Maintainer : streamly@composewell.com
6+
7+{-# LANGUAGE CPP #-}
8+{-# LANGUAGE FlexibleContexts #-}
9+{-# LANGUAGE ScopedTypeVariables #-}
10+{-# LANGUAGE RankNTypes #-}
11+{-# LANGUAGE TupleSections #-}
12+
13+#ifdef USE_PRELUDE
14+{-# OPTIONS_GHC -Wno-deprecations #-}
15+#endif
16+
17+#ifdef __HADDOCK_VERSION__
18+#undef INSPECTION
19+#endif
20+
21+#ifdef INSPECTION
22+{-# LANGUAGE TemplateHaskell #-}
23+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
24+#endif
25+
26+module Stream.Expand (benchmarks) where
27+
28+#ifdef INSPECTION
29+import GHC.Types (SPEC(..))
30+import Test.Inspection
31+
32+import qualified Streamly.Internal.Data.Stream as D
33+#endif
34+
35+import qualified Stream.Common as Common
36+import qualified Streamly.Internal.Data.Unfold as UF
37+
38+#ifdef USE_PRELUDE
39+import qualified Streamly.Internal.Data.Stream.IsStream as S
40+import qualified Streamly.Internal.Data.Stream.IsStream as StreamK
41+import Streamly.Benchmark.Prelude
42+ ( sourceFoldMapM, sourceFoldMapWith, sourceFoldMapWithM
43+ , sourceFoldMapWithStream, concatFoldableWith, concatForFoldableWith)
44+#else
45+import qualified Streamly.Internal.Data.Stream as S
46+#ifdef USE_STREAMK
47+import Streamly.Internal.Data.Stream (Stream)
48+import Streamly.Internal.Data.StreamK (StreamK, CrossStreamK)
49+import qualified Control.Applicative as AP
50+import qualified Streamly.Internal.Data.Fold as Fold
51+import qualified Streamly.Internal.Data.StreamK as StreamK
52+#else
53+import qualified Streamly.Internal.Data.Stream as StreamK
54+#endif
55+#endif
56+
57+import Test.Tasty.Bench
58+import Stream.Common
59+import Streamly.Benchmark.Common
60+import Prelude hiding (concatMap)
61+
62+-------------------------------------------------------------------------------
63+-- Iteration/looping utilities
64+-------------------------------------------------------------------------------
65+
66+#ifdef USE_STREAMK
67+{-# INLINE iterateN #-}
68+iterateN :: (Int -> a -> a) -> a -> Int -> a
69+iterateN g initial count = f count initial
70+
71+ where
72+
73+ f (0 :: Int) x = x
74+ f i x = f (i - 1) (g i x)
75+
76+-- Iterate a transformation over a singleton stream
77+{-# INLINE iterateSingleton #-}
78+iterateSingleton :: Applicative m =>
79+ (Int -> CrossStreamK m Int -> CrossStreamK m Int)
80+ -> Int
81+ -> Int
82+ -> Stream m Int
83+iterateSingleton g count n =
84+ toStream
85+ $ StreamK.unCross
86+ $ iterateN g (StreamK.mkCross (StreamK.fromPure n)) count
87+#endif
88+
89+{-
90+-- XXX need to check why this is slower than the explicit recursion above, even
91+-- if the above code is written in a foldr like head recursive way. We also
92+-- need to try this with foldlM' once #150 is fixed.
93+-- However, it is perhaps best to keep the iteration benchmarks independent of
94+-- foldrM and any related fusion issues.
95+{-# INLINE _iterateSingleton #-}
96+_iterateSingleton ::
97+ Monad m
98+ => (Int -> Stream m Int -> Stream m Int)
99+ -> Int
100+ -> Int
101+ -> Stream m Int
102+_iterateSingleton g value n = S.foldrM g (return n) $ sourceIntFromTo value n
103+-}
104+
105+-------------------------------------------------------------------------------
106+-- Multi-Stream
107+-------------------------------------------------------------------------------
108+
109+-------------------------------------------------------------------------------
110+-- Appending
111+-------------------------------------------------------------------------------
112+
113+{-# INLINE serial2 #-}
114+serial2 :: Int -> Int -> IO ()
115+serial2 count n =
116+ drain $ toStream $
117+ Common.append
118+ (fromStream $ sourceUnfoldrM count n)
119+ (fromStream $ sourceUnfoldrM count (n + 1))
120+
121+{-# INLINE serial4 #-}
122+serial4 :: Int -> Int -> IO ()
123+serial4 count n =
124+ drain $ toStream $
125+ Common.append
126+ (Common.append
127+ (fromStream $ sourceUnfoldrM count n)
128+ (fromStream $ sourceUnfoldrM count (n + 1)))
129+ (Common.append
130+ (fromStream $ sourceUnfoldrM count (n + 2))
131+ (fromStream $ sourceUnfoldrM count (n + 3)))
132+
133+o_1_space_joining :: Int -> [Benchmark]
134+o_1_space_joining value =
135+ [ bgroup "joining"
136+ [ benchIOSrc1 "serial (2,x/2)" (serial2 (value `div` 2))
137+ , benchIOSrc1 "serial (2,2,x/4)" (serial4 (value `div` 4))
138+ ]
139+ ]
140+
141+-------------------------------------------------------------------------------
142+-- Concat Foldable containers
143+-------------------------------------------------------------------------------
144+
145+#ifdef USE_PRELUDE
146+o_1_space_concatFoldable :: Int -> [Benchmark]
147+o_1_space_concatFoldable value =
148+ [ bgroup "concat-foldable"
149+ [ benchIOSrc "foldMapWith (<>) (List)"
150+ (sourceFoldMapWith value)
151+ , benchIOSrc "foldMapWith (<>) (Stream)"
152+ (sourceFoldMapWithStream value)
153+ , benchIOSrc "foldMapWithM (<>) (List)"
154+ (sourceFoldMapWithM value)
155+ , benchIOSrc "S.concatFoldableWith (<>) (List)"
156+ (concatFoldableWith value)
157+ , benchIOSrc "S.concatForFoldableWith (<>) (List)"
158+ (concatForFoldableWith value)
159+ , benchIOSrc "foldMapM (List)" (sourceFoldMapM value)
160+ ]
161+ ]
162+#endif
163+
164+-------------------------------------------------------------------------------
165+-- Concat
166+-------------------------------------------------------------------------------
167+
168+-- concatMap unfoldrM/unfoldrM
169+
170+{-# INLINE concatMap #-}
171+concatMap :: Int -> Int -> Int -> IO ()
172+concatMap outer inner n =
173+ drain $ toStream $ StreamK.concatMap
174+ (\_ -> fromStream $ sourceUnfoldrM inner n)
175+ (fromStream $ sourceUnfoldrM outer n)
176+
177+#ifndef USE_STREAMK
178+{-# INLINE concatMapM #-}
179+concatMapM :: Int -> Int -> Int -> IO ()
180+concatMapM outer inner n =
181+ drain $ S.concatMapM
182+ (\_ -> return $ sourceUnfoldrM inner n)
183+ (sourceUnfoldrM outer n)
184+
185+#ifdef INSPECTION
186+inspect $ hasNoTypeClasses 'concatMap
187+inspect $ 'concatMap `hasNoType` ''SPEC
188+#endif
189+#endif
190+
191+-- concatMap unfoldr/unfoldr
192+
193+{-# INLINE concatMapPure #-}
194+concatMapPure :: Int -> Int -> Int -> IO ()
195+concatMapPure outer inner n =
196+ drain $ toStream $ StreamK.concatMap
197+ (\_ -> fromStream $ sourceUnfoldr inner n)
198+ (fromStream $ sourceUnfoldr outer n)
199+
200+#ifdef INSPECTION
201+#if __GLASGOW_HASKELL__ >= 906
202+inspect $ hasNoTypeClassesExcept 'concatMapPure [''Applicative]
203+#else
204+inspect $ hasNoTypeClasses 'concatMapPure
205+#endif
206+inspect $ 'concatMapPure `hasNoType` ''SPEC
207+#endif
208+
209+-- concatMap replicate/unfoldrM
210+
211+{-# INLINE concatMapRepl #-}
212+concatMapRepl :: Int -> Int -> Int -> IO ()
213+concatMapRepl outer inner n =
214+ drain $ toStream $ StreamK.concatMap
215+ (fromStream . S.replicate inner) (fromStream $ sourceUnfoldrM outer n)
216+
217+#ifdef INSPECTION
218+#if __GLASGOW_HASKELL__ >= 906
219+inspect $ hasNoTypeClassesExcept 'concatMapRepl [''Applicative]
220+#else
221+inspect $ hasNoTypeClasses 'concatMapRepl
222+#endif
223+inspect $ 'concatMapRepl `hasNoType` ''SPEC
224+#endif
225+
226+-- concatMapWith
227+
228+#ifdef USE_STREAMK
229+{-# INLINE concatMapWithSerial #-}
230+concatMapWithSerial :: Int -> Int -> Int -> IO ()
231+concatMapWithSerial = concatStreamsWith Common.append
232+
233+#ifdef INSPECTION
234+inspect $ hasNoTypeClasses 'concatMapWithSerial
235+inspect $ 'concatMapWithSerial `hasNoType` ''SPEC
236+#endif
237+
238+{-
239+{-# INLINE concatMapWithAppend #-}
240+concatMapWithAppend :: Int -> Int -> Int -> IO ()
241+concatMapWithAppend = concatStreamsWith Common.append2
242+
243+#ifdef INSPECTION
244+inspect $ hasNoTypeClasses 'concatMapWithAppend
245+inspect $ 'concatMapWithAppend `hasNoType` ''SPEC
246+#endif
247+-}
248+
249+-- mergeMapWith
250+
251+{-# INLINE mergeMapWithSerial #-}
252+mergeMapWithSerial :: Int -> Int -> Int -> IO ()
253+mergeMapWithSerial = mergeMapWith Common.append
254+
255+{-
256+{-# INLINE mergeMapWithAppend #-}
257+mergeMapWithAppend :: Int -> Int -> Int -> IO ()
258+mergeMapWithAppend = mergeMapWith Common.append2
259+-}
260+#endif
261+
262+-- unfoldMany
263+
264+-- unfoldMany replicate/unfoldrM
265+
266+{-# INLINE unfoldManyRepl #-}
267+unfoldManyRepl :: Int -> Int -> Int -> IO ()
268+unfoldManyRepl outer inner n =
269+ drain
270+ $ S.unfoldMany
271+ UF.replicateM
272+ (fmap ((inner,) . return) (sourceUnfoldrM outer n))
273+
274+
275+#ifdef INSPECTION
276+inspect $ hasNoTypeClasses 'unfoldManyRepl
277+inspect $ 'unfoldManyRepl `hasNoType` ''D.ConcatMapUState
278+inspect $ 'unfoldManyRepl `hasNoType` ''SPEC
279+#endif
280+
281+o_1_space_concat :: Int -> [Benchmark]
282+o_1_space_concat value = sqrtVal `seq`
283+ [ bgroup "concat"
284+ [ benchIOSrc1 "concatMapPure (n of 1)"
285+ (concatMapPure value 1)
286+ , benchIOSrc1 "concatMapPure (sqrt n of sqrt n)"
287+ (concatMapPure sqrtVal sqrtVal)
288+ , benchIOSrc1 "concatMapPure (1 of n)"
289+ (concatMapPure 1 value)
290+
291+ , benchIOSrc1 "concatMap (n of 1)"
292+ (concatMap value 1)
293+ , benchIOSrc1 "concatMap (sqrt n of sqrt n)"
294+ (concatMap sqrtVal sqrtVal)
295+ , benchIOSrc1 "concatMap (1 of n)"
296+ (concatMap 1 value)
297+
298+#ifndef USE_STREAMK
299+ -- This is for comparison with foldMapWith
300+ , benchIOSrc "concatMapId (n of 1) (fromFoldable)"
301+ (S.concatMap id . sourceConcatMapId value)
302+
303+ , benchIOSrc1 "concatMapM (n of 1)"
304+ (concatMapM value 1)
305+ , benchIOSrc1 "concatMapM (sqrt n of sqrt n)"
306+ (concatMapM sqrtVal sqrtVal)
307+ , benchIOSrc1 "concatMapM (1 of n)"
308+ (concatMapM 1 value)
309+#endif
310+
311+#ifdef USE_STREAMK
312+ {-
313+ -- This is for comparison with foldMapWith
314+ , benchIOSrc "concatMapWithId (n of 1) (fromFoldable)"
315+ (toStream . S.concatMapWith Common.append id . sourceConcatMapId value)
316+ -}
317+
318+ , benchIOSrc1 "concatMapWith (n of 1)"
319+ (concatMapWithSerial value 1)
320+ , benchIOSrc1 "concatMapWith (sqrt n of sqrt n)"
321+ (concatMapWithSerial sqrtVal sqrtVal)
322+ , benchIOSrc1 "concatMapWith (1 of n)"
323+ (concatMapWithSerial 1 value)
324+
325+ {-
326+ -- quadratic with number of outer streams
327+ , benchIOSrc1 "concatMapWithAppend (2 of n/2)"
328+ (concatMapWithAppend 2 (value `div` 2))
329+ -}
330+#endif
331+
332+ -- concatMap vs unfoldMany
333+ , benchIOSrc1 "concatMapRepl (sqrt n of sqrt n)"
334+ (concatMapRepl sqrtVal sqrtVal)
335+ , benchIOSrc1 "unfoldManyRepl (sqrt n of sqrt n)"
336+ (unfoldManyRepl sqrtVal sqrtVal)
337+ ]
338+ ]
339+
340+ where
341+
342+ sqrtVal = round $ sqrt (fromIntegral value :: Double)
343+
344+#ifdef USE_STREAMK
345+o_n_space_merge :: Int -> [Benchmark]
346+o_n_space_merge value = sqrtVal `seq`
347+ [ bgroup "concat"
348+ [
349+ -------------------mergeMapWith-----------------
350+
351+ -- Use large number of streams to check scalability
352+
353+ benchIOSrc1 "mergeMapWithSerial (n of 1)"
354+ (mergeMapWithSerial value 1)
355+ , benchIOSrc1 "mergeMapWithSerial (sqrtVal of sqrtVal)"
356+ (mergeMapWithSerial sqrtVal sqrtVal)
357+ , benchIOSrc1 "mergeMapWithSerial (2 of n/2)"
358+ (mergeMapWithSerial 2 (value `div` 2))
359+
360+ {-
361+ , benchIOSrc1 "mergeMapWithAppend (n of 1)"
362+ (mergeMapWithAppend value 1)
363+ , benchIOSrc1 "mergeMapWithAppend (sqrtVal of sqrtVal)"
364+ (mergeMapWithAppend sqrtVal sqrtVal)
365+ -}
366+ ]
367+ ]
368+
369+ where
370+
371+ sqrtVal = round $ sqrt (fromIntegral value :: Double)
372+#endif
373+
374+-------------------------------------------------------------------------------
375+-- Applicative
376+-------------------------------------------------------------------------------
377+
378+o_1_space_applicative :: Int -> [Benchmark]
379+o_1_space_applicative value =
380+ [ bgroup "Applicative"
381+ [ benchIO "(*>) (sqrt n x sqrt n)" $ apDiscardFst value
382+ , benchIO "(<*) (sqrt n x sqrt n)" $ apDiscardSnd value
383+ , benchIO "(<*>) (sqrt n x sqrt n)" $ toNullAp value
384+ , benchIO "liftA2 (sqrt n x sqrt n)" $ apLiftA2 value
385+ ]
386+ ]
387+
388+#ifdef USE_STREAMK
389+o_n_space_applicative :: Int -> [Benchmark]
390+o_n_space_applicative value =
391+ [ bgroup "iterated"
392+ [ benchIOSrc "(*>) (n times)" $
393+ iterateSingleton ((*>) . pure) value
394+ , benchIOSrc "(<*) (n times)" $
395+ iterateSingleton (\x xs -> xs <* pure x) value
396+ , benchIOSrc "(<*>) (n times)" $
397+ iterateSingleton (\x xs -> pure (+ x) <*> xs) value
398+ , benchIOSrc "liftA2 (n times)" $
399+ iterateSingleton (AP.liftA2 (+) . pure) value
400+ ]
401+ ]
402+#endif
403+
404+-------------------------------------------------------------------------------
405+-- Monad
406+-------------------------------------------------------------------------------
407+
408+o_1_space_monad :: Int -> [Benchmark]
409+o_1_space_monad value =
410+ [ bgroup "Monad"
411+ [ benchIO "(>>) (sqrt n x sqrt n)" $ monadThen value
412+ , benchIO "(>>=) (sqrt n x sqrt n)" $ toNullM value
413+ , benchIO "(>>=) (sqrt n x sqrt n) (filterAllOut)" $
414+ filterAllOutM value
415+ , benchIO "(>>=) (sqrt n x sqrt n) (filterAllIn)" $
416+ filterAllInM value
417+ , benchIO "(>>=) (sqrt n x sqrt n) (filterSome)" $
418+ filterSome value
419+ , benchIO "(>>=) (sqrt n x sqrt n) (breakAfterSome)" $
420+ breakAfterSome value
421+ , benchIO "(>>=) (cubert n x cubert n x cubert n)" $
422+ toNullM3 value
423+ ]
424+ ]
425+
426+#ifdef USE_STREAMK
427+-- This is a good benchmark but inefficient way to compute primes. As we see a
428+-- new prime we keep appending a division filter for all the future numbers.
429+{-# INLINE sieve #-}
430+sieve :: Monad m => StreamK m Int -> StreamK m Int
431+sieve s = StreamK.concatEffect $ do
432+ r <- StreamK.uncons s
433+ case r of
434+ Just (prime, rest) ->
435+ -- XXX Use K.filter or rewrite to K.filter
436+ let f = S.filter (\n -> n `mod` prime /= 0)
437+ in pure $ prime `StreamK.cons` sieve (fromStream $ f $ toStream rest)
438+ Nothing -> pure StreamK.nil
439+
440+o_n_space_iterated :: Int -> [Benchmark]
441+o_n_space_iterated value =
442+ [ bgroup "iterated"
443+ [
444+ benchIO "concatEffect prime sieve (n/4)"
445+ (\n ->
446+ S.fold Fold.sum
447+ $ toStream
448+ $ sieve
449+ $ fromStream
450+ $ S.enumerateFromTo 2 (value `div` 4 + n))
451+ , benchIOSrc "(>>) (n times)" $
452+ iterateSingleton ((>>) . pure) value
453+ , benchIOSrc "(>>=) (n times)" $
454+ iterateSingleton (\x xs -> xs >>= \y -> return (x + y)) value
455+ ]
456+ ]
457+#endif
458+
459+o_n_space_monad :: Int -> [Benchmark]
460+o_n_space_monad value =
461+ [ bgroup "Monad"
462+ [ benchIO "(>>=) (sqrt n x sqrt n) (toList)" $
463+ toListM value
464+ , benchIO "(>>=) (sqrt n x sqrt n) (toListSome)" $
465+ toListSome value
466+ ]
467+ ]
468+
469+-------------------------------------------------------------------------------
470+-- Joining
471+-------------------------------------------------------------------------------
472+
473+{-
474+toKv :: Int -> (Int, Int)
475+toKv p = (p, p)
476+
477+{-# INLINE joinWith #-}
478+joinWith :: Common.MonadAsync m =>
479+ ((Int -> Int -> Bool) -> Stream m Int -> Stream m Int -> Stream m b)
480+ -> Int
481+ -> Int
482+ -> m ()
483+joinWith j val i =
484+ drain $ j (==) (sourceUnfoldrM val i) (sourceUnfoldrM val (val `div` 2))
485+
486+{-# INLINE joinMapWith #-}
487+joinMapWith :: Common.MonadAsync m =>
488+ (Stream m (Int, Int) -> Stream m (Int, Int) -> Stream m b)
489+ -> Int
490+ -> Int
491+ -> m ()
492+joinMapWith j val i =
493+ drain
494+ $ j
495+ (fmap toKv (sourceUnfoldrM val i))
496+ (fmap toKv (sourceUnfoldrM val (val `div` 2)))
497+
498+o_n_heap_buffering :: Int -> [Benchmark]
499+o_n_heap_buffering value =
500+ [ bgroup "buffered"
501+ [
502+ benchIOSrc1 "joinInnerGeneric (sqrtVal)"
503+ $ joinWith S.joinInnerGeneric sqrtVal
504+ , benchIOSrc1 "joinInner"
505+ $ joinMapWith S.joinInner halfVal
506+ , benchIOSrc1 "joinLeftGeneric (sqrtVal)"
507+ $ joinWith S.joinLeftGeneric sqrtVal
508+ , benchIOSrc1 "joinLeft "
509+ $ joinMapWith S.joinLeft halfVal
510+ , benchIOSrc1 "joinOuterGeneric (sqrtVal)"
511+ $ joinWith S.joinOuterGeneric sqrtVal
512+ , benchIOSrc1 "joinOuter"
513+ $ joinMapWith S.joinOuter halfVal
514+ , benchIOSrc1 "filterInStreamGenericBy (sqrtVal)"
515+ $ joinWith S.filterInStreamGenericBy sqrtVal
516+ , benchIOSrc1 "filterInStreamAscBy"
517+ $ joinMapWith (S.filterInStreamAscBy compare) halfVal
518+ ]
519+ ]
520+
521+ where
522+
523+ halfVal = value `div` 2
524+ sqrtVal = round $ sqrt (fromIntegral value :: Double)
525+-}
526+
527+-------------------------------------------------------------------------------
528+-- Main
529+-------------------------------------------------------------------------------
530+
531+-- In addition to gauge options, the number of elements in the stream can be
532+-- passed using the --stream-size option.
533+--
534+{-# ANN benchmarks "HLint: ignore" #-}
535+benchmarks :: String -> Int -> [Benchmark]
536+benchmarks moduleName size =
537+ [ bgroup (o_1_space_prefix moduleName) $ Prelude.concat
538+ [
539+ -- multi-stream
540+ o_1_space_joining size
541+#ifdef USE_PRELUDE
542+ , o_1_space_concatFoldable size
543+#endif
544+ , o_1_space_concat size
545+ , o_1_space_applicative size
546+ , o_1_space_monad size
547+ ]
548+ , bgroup (o_n_space_prefix moduleName) $ Prelude.concat
549+ [
550+ -- multi-stream
551+ o_n_space_monad size
552+#ifdef USE_STREAMK
553+ , o_n_space_merge size
554+ , o_n_space_iterated size
555+ , o_n_space_applicative size
556+#endif
557+ ]
558+ {-
559+ , bgroup (o_n_heap_prefix moduleName) $
560+ -- multi-stream
561+ o_n_heap_buffering size
562+ -}
563+ ]
benchmark/Streamly/Benchmark/Data/Stream/Generate.hsnew file+278
@@ -0,0 +1,278 @@
1+-- |
2+-- Module : Stream.Generate
3+-- Copyright : (c) 2018 Composewell Technologies
4+-- License : BSD-3-Clause
5+-- Maintainer : streamly@composewell.com
6+
7+{-# LANGUAGE CPP #-}
8+{-# LANGUAGE FlexibleContexts #-}
9+{-# LANGUAGE FlexibleInstances #-}
10+{-# LANGUAGE ScopedTypeVariables #-}
11+{-# LANGUAGE RankNTypes #-}
12+
13+{-# OPTIONS_GHC -Wno-orphans #-}
14+#ifdef USE_PRELUDE
15+{-# OPTIONS_GHC -Wno-deprecations #-}
16+#endif
17+
18+module Stream.Generate (benchmarks) where
19+
20+import Control.DeepSeq (NFData(..))
21+import Data.Functor.Identity (Identity(..))
22+
23+import qualified GHC.Exts as GHC
24+import qualified Streamly.Internal.Data.Fold as Fold
25+
26+#ifdef USE_PRELUDE
27+import Streamly.Prelude (MonadAsync)
28+import Stream.Common hiding (MonadAsync)
29+import Streamly.Benchmark.Prelude (sourceFromFoldableM, absTimes)
30+import qualified Streamly.Prelude as S
31+import qualified Streamly.Internal.Data.Stream.IsStream as Stream
32+#else
33+import Stream.Common
34+import Streamly.Internal.Data.Stream (Stream)
35+import qualified Streamly.Internal.Data.Stream as Stream
36+#ifdef USE_STREAMK
37+import System.IO.Unsafe (unsafeInterleaveIO)
38+import qualified Streamly.Internal.Data.StreamK as StreamK
39+import qualified Stream.Common as Common
40+#endif
41+#endif
42+
43+import Test.Tasty.Bench
44+import Streamly.Benchmark.Common
45+import qualified Prelude
46+
47+import Prelude hiding (repeat, replicate, iterate)
48+
49+-------------------------------------------------------------------------------
50+-- Generation
51+-------------------------------------------------------------------------------
52+
53+#ifdef USE_PRELUDE
54+type Stream = Stream.SerialT
55+toStreamD = Stream.toStream
56+#else
57+toStreamD :: a -> a
58+toStreamD = id
59+#endif
60+
61+-------------------------------------------------------------------------------
62+-- fromList
63+-------------------------------------------------------------------------------
64+
65+{-# INLINE sourceFromList #-}
66+sourceFromList :: Monad m => Int -> Int -> Stream m Int
67+sourceFromList value n = Stream.fromList [n..n+value]
68+
69+{-# INLINE sourceFromListM #-}
70+sourceFromListM :: MonadAsync m => Int -> Int -> Stream m Int
71+sourceFromListM value n = fromListM (fmap return [n..n+value])
72+
73+{-# INLINE sourceIsList #-}
74+sourceIsList :: Int -> Int -> Stream Identity Int
75+sourceIsList value n = GHC.fromList [n..n+value]
76+
77+{-# INLINE sourceIsString #-}
78+sourceIsString :: Int -> Int -> Stream Identity Char
79+sourceIsString value n = GHC.fromString (Prelude.replicate (n + value) 'a')
80+
81+{-# INLINE readInstance #-}
82+readInstance :: String -> Stream Identity Int
83+readInstance str =
84+ let r = reads str
85+ in case r of
86+ [(x,"")] -> x
87+ _ -> error "readInstance: no parse"
88+
89+-- For comparisons
90+{-# INLINE readInstanceList #-}
91+readInstanceList :: String -> [Int]
92+readInstanceList str =
93+ let r = reads str
94+ in case r of
95+ [(x,"")] -> x
96+ _ -> error "readInstance: no parse"
97+
98+{-# INLINE repeat #-}
99+repeat :: Monad m => Int -> Int -> Stream m Int
100+repeat count = Stream.take count . Stream.repeat
101+
102+{-# INLINE replicate #-}
103+replicate :: Monad m => Int -> Int -> Stream m Int
104+replicate = Stream.replicate
105+
106+-------------------------------------------------------------------------------
107+-- enumerate
108+-------------------------------------------------------------------------------
109+
110+{-# INLINE sourceIntFromTo #-}
111+sourceIntFromTo :: Monad m => Int -> Int -> Stream m Int
112+sourceIntFromTo value n = Stream.enumerateFromTo n (n + value)
113+
114+{-# INLINE sourceIntFromThenTo #-}
115+sourceIntFromThenTo :: Monad m => Int -> Int -> Stream m Int
116+sourceIntFromThenTo value n = Stream.enumerateFromThenTo n (n + 1) (n + value)
117+
118+{-# INLINE sourceFracFromTo #-}
119+sourceFracFromTo :: Monad m => Int -> Int -> Stream m Double
120+sourceFracFromTo value n =
121+ Stream.enumerateFromTo (fromIntegral n) (fromIntegral (n + value))
122+
123+{-# INLINE sourceFracFromThenTo #-}
124+sourceFracFromThenTo :: Monad m => Int -> Int -> Stream m Double
125+sourceFracFromThenTo value n = Stream.enumerateFromThenTo (fromIntegral n)
126+ (fromIntegral n + 1.0001) (fromIntegral (n + value))
127+
128+{-# INLINE sourceIntegerFromStep #-}
129+sourceIntegerFromStep :: Monad m => Int -> Int -> Stream m Integer
130+sourceIntegerFromStep value n =
131+ Stream.take value $ Stream.enumerateFromThen (fromIntegral n) (fromIntegral n + 1)
132+
133+{-# INLINE enumerateFrom #-}
134+enumerateFrom :: Monad m => Int -> Int -> Stream m Int
135+enumerateFrom count = Stream.take count . Stream.enumerateFrom
136+
137+{-# INLINE enumerateFromTo #-}
138+enumerateFromTo :: Monad m => Int -> Int -> Stream m Int
139+enumerateFromTo = sourceIntFromTo
140+
141+{-# INLINE enumerateFromThen #-}
142+enumerateFromThen :: Monad m => Int -> Int -> Stream m Int
143+enumerateFromThen count inp = Stream.take count $ Stream.enumerateFromThen inp (inp + 1)
144+
145+{-# INLINE enumerateFromThenTo #-}
146+enumerateFromThenTo :: Monad m => Int -> Int -> Stream m Int
147+enumerateFromThenTo = sourceIntFromThenTo
148+
149+-- n ~ 1
150+{-# INLINE enumerate #-}
151+enumerate :: Monad m => Int -> Int -> Stream m Int
152+enumerate count n = Stream.take (count + n) Stream.enumerate
153+
154+-- n ~ 1
155+{-# INLINE enumerateTo #-}
156+enumerateTo :: Monad m => Int -> Int -> Stream m Int
157+enumerateTo count n = Stream.enumerateTo (minBound + count + n)
158+
159+{-# INLINE iterate #-}
160+iterate :: Monad m => Int -> Int -> Stream m Int
161+iterate count = Stream.take count . Stream.iterate (+1)
162+
163+{-# INLINE iterateM #-}
164+iterateM :: MonadAsync m => Int -> Int -> Stream m Int
165+iterateM count = Stream.take count . Stream.iterateM (return . (+1)) . return
166+
167+{-# INLINE repeatM #-}
168+repeatM :: MonadAsync m => Int -> Int -> Stream m Int
169+repeatM count = Stream.take count . Stream.repeatM . return
170+
171+{-# INLINE replicateM #-}
172+replicateM :: MonadAsync m => Int -> Int -> Stream m Int
173+replicateM count = Stream.replicateM count . return
174+
175+#ifdef USE_PRELUDE
176+{-# INLINE fromIndices #-}
177+fromIndices :: (Monad m, S.IsStream t) => Int -> Int -> t m Int
178+fromIndices value n = S.take value $ S.fromIndices (+ n)
179+
180+{-# INLINE fromIndicesM #-}
181+fromIndicesM :: (MonadAsync m, S.IsStream t) => Int -> Int -> t m Int
182+fromIndicesM value n = S.take value $ S.fromIndicesM (return <$> (+ n))
183+#endif
184+
185+#ifdef USE_STREAMK
186+{-# INLINE mfixUnfold #-}
187+mfixUnfold :: Int -> Int -> Stream IO (Int, Int)
188+mfixUnfold count start = toStream $ StreamK.mfix f
189+ where
190+ f action = StreamK.unCross $ do
191+ let incr n act = fmap ((+n) . snd) $ unsafeInterleaveIO act
192+ x <- StreamK.mkCross (fromStream $ Common.fromListM [incr 1 action, incr 2 action])
193+ y <- StreamK.mkCross (fromStream $ Common.sourceUnfoldr count start)
194+ return (x, y)
195+#endif
196+
197+o_1_space_generation :: Int -> [Benchmark]
198+o_1_space_generation value =
199+ [ bgroup "generation"
200+ [ benchIOSrc "unfoldr" (sourceUnfoldr value)
201+ , benchIOSrc "unfoldrM" (sourceUnfoldrM value)
202+ , benchIOSrc "repeat" (repeat value)
203+ , benchIOSrc "replicate" (replicate value)
204+ , benchIOSrc "iterate" (iterate value)
205+ , benchIOSrc "iterateM" (iterateM value)
206+ , benchIOSrc "intFromTo" (sourceIntFromTo value)
207+ , benchIOSrc "intFromThenTo" (sourceIntFromThenTo value)
208+ , benchIOSrc "integerFromStep" (sourceIntegerFromStep value)
209+ , benchIOSrc "fracFromThenTo" (sourceFracFromThenTo value)
210+ , benchIOSrc "fracFromTo" (sourceFracFromTo value)
211+ , benchIOSrc "fromList" (sourceFromList value)
212+ , benchIOSrc "fromListM" (sourceFromListM value)
213+ , benchPureSrc "IsList.fromList" (toStreamD . sourceIsList value)
214+ , benchPureSrc "IsString.fromString" (toStreamD . sourceIsString value)
215+ , benchIOSrc "enumerateFrom" (enumerateFrom value)
216+ , benchIOSrc "enumerateFromTo" (enumerateFromTo value)
217+ , benchIOSrc "enumerateFromThen" (enumerateFromThen value)
218+ , benchIOSrc "enumerateFromThenTo" (enumerateFromThenTo value)
219+ , benchIOSrc "enumerate" (enumerate value)
220+ , benchIOSrc "enumerateTo" (enumerateTo value)
221+ , benchIOSrc "repeatM" (repeatM value)
222+ , benchIOSrc "replicateM" (replicateM value)
223+#ifdef USE_PRELUDE
224+ , benchIOSrc "fromIndices" (fromIndices value)
225+ , benchIOSrc "fromIndicesM" (fromIndicesM value)
226+#endif
227+
228+ -- These essentially test cons and consM
229+#ifdef USE_STREAMK
230+ , benchIOSrc "fromFoldable" (sourceFromFoldable value)
231+ -- , benchIOSrc "fromFoldable 16" (sourceFromFoldable 16)
232+#else
233+ -- , benchIOSrc "fromFoldable 16" (sourceFromFoldable 16)
234+#endif
235+
236+#ifdef USE_PRELUDE
237+ , benchIOSrc "fromFoldableM" (sourceFromFoldableM value)
238+ , benchIOSrc "absTimes" $ absTimes value
239+#endif
240+#ifdef USE_STREAMK
241+ , Common.benchIOSrc "mfix_10" (mfixUnfold 10)
242+ , Common.benchIOSrc "mfix_100" (mfixUnfold 100)
243+ , Common.benchIOSrc "mfix_1000" (mfixUnfold 1000)
244+#endif
245+ ]
246+ ]
247+
248+#ifndef USE_PRELUDE
249+instance NFData a => NFData (Stream Identity a) where
250+ {-# INLINE rnf #-}
251+ rnf xs = runIdentity $ Stream.fold (Fold.foldl' (\_ x -> rnf x) ()) xs
252+#endif
253+
254+o_n_heap_generation :: Int -> [Benchmark]
255+o_n_heap_generation value =
256+ [ bgroup "buffered"
257+ -- Buffers the output of show/read.
258+ -- XXX can the outputs be streaming? Can we have special read/show
259+ -- style type classes, readM/showM supporting streaming effects?
260+ [ bench "readsPrec pure streams" $
261+ nf readInstance (mkString value)
262+ , bench "readsPrec Haskell lists" $
263+ nf readInstanceList (mkListString value)
264+ ]
265+ ]
266+
267+-------------------------------------------------------------------------------
268+-- Main
269+-------------------------------------------------------------------------------
270+
271+-- In addition to gauge options, the number of elements in the stream can be
272+-- passed using the --stream-size option.
273+--
274+benchmarks :: String -> Int -> [Benchmark]
275+benchmarks moduleName size =
276+ [ bgroup (o_1_space_prefix moduleName) (o_1_space_generation size)
277+ , bgroup (o_n_heap_prefix moduleName) (o_n_heap_generation size)
278+ ]
benchmark/Streamly/Benchmark/Data/Stream/Lift.hsnew file+146
@@ -0,0 +1,146 @@
1+-- |
2+-- Module : Stream.Lift
3+-- Copyright : (c) 2018 Composewell Technologies
4+-- License : BSD-3-Clause
5+-- Maintainer : streamly@composewell.com
6+
7+{-# LANGUAGE CPP #-}
8+{-# LANGUAGE FlexibleContexts #-}
9+{-# LANGUAGE ScopedTypeVariables #-}
10+{-# LANGUAGE RankNTypes #-}
11+
12+#ifdef USE_PRELUDE
13+{-# OPTIONS_GHC -Wno-deprecations #-}
14+#endif
15+
16+module Stream.Lift (benchmarks) where
17+
18+import Control.DeepSeq (NFData(..))
19+import Control.Monad.State.Strict (StateT, get, put)
20+import Data.Functor.Identity (Identity)
21+import Stream.Common (sourceUnfoldr, sourceUnfoldrM, benchIOSrc)
22+import System.Random (randomRIO)
23+
24+import qualified Stream.Common as Common
25+import qualified Streamly.Internal.Data.Fold as Fold
26+
27+#ifdef USE_PRELUDE
28+import qualified Streamly.Internal.Data.Stream.IsStream as Stream
29+#else
30+import Streamly.Internal.Data.Stream (Stream)
31+import qualified Streamly.Internal.Data.Stream as Stream
32+#ifdef USE_STREAMK
33+import Stream.Common (benchIO, drain)
34+import Streamly.Internal.Data.StreamK (StreamK)
35+import qualified Streamly.Internal.Data.StreamK as StreamK
36+import qualified Control.Monad.State.Strict as State
37+#endif
38+#endif
39+
40+import Test.Tasty.Bench
41+import Streamly.Benchmark.Common
42+import Prelude hiding (reverse, tail)
43+
44+#ifdef USE_PRELUDE
45+type Stream = Stream.SerialT
46+#endif
47+
48+-------------------------------------------------------------------------------
49+-- Monad transformation (hoisting etc.)
50+-------------------------------------------------------------------------------
51+
52+{-# INLINE sourceUnfoldrState #-}
53+sourceUnfoldrState :: Common.MonadAsync m =>
54+ Int -> Int -> Stream (StateT Int m) Int
55+sourceUnfoldrState value n = Stream.unfoldrM step n
56+ where
57+ step cnt =
58+ if cnt > n + value
59+ then return Nothing
60+ else do
61+ s <- get
62+ put (s + 1)
63+ return (Just (s, cnt + 1))
64+
65+{-# INLINE evalStateT #-}
66+evalStateT :: Common.MonadAsync m => Int -> Int -> Stream m Int
67+evalStateT value n =
68+ Stream.evalStateT (return 0) (sourceUnfoldrState value n)
69+
70+{-# INLINE withState #-}
71+withState :: Common.MonadAsync m => Int -> Int -> Stream m Int
72+withState value n =
73+ Stream.evalStateT
74+ (return (0 :: Int)) (Stream.liftInner (sourceUnfoldrM value n))
75+
76+{-# INLINE benchHoistSink #-}
77+benchHoistSink
78+ :: (NFData b)
79+ => Int -> String -> (Stream Identity Int -> IO b) -> Benchmark
80+benchHoistSink value name f =
81+ bench name $ nfIO $ randomRIO (1,1) >>= f . sourceUnfoldr value
82+
83+o_1_space_hoisting :: Int -> [Benchmark]
84+o_1_space_hoisting value =
85+ [ bgroup "hoisting"
86+ [ benchIOSrc "evalState" (evalStateT value)
87+ , benchIOSrc "withState" (withState value)
88+#ifndef USE_PRELUDE
89+ , benchHoistSink value "generalizeInner"
90+ ((\xs -> Stream.fold Fold.length xs :: IO Int)
91+ . Stream.generalizeInner)
92+#endif
93+ ]
94+ ]
95+
96+#ifdef USE_STREAMK
97+{-# INLINE iterateStateIO #-}
98+iterateStateIO ::
99+ Monad m
100+ => Int
101+ -> StateT Int m Int
102+iterateStateIO n = do
103+ x <- get
104+ if x > n
105+ then do
106+ put (x - 1)
107+ iterateStateIO n
108+ else return x
109+
110+-- XXX This is basically testing the perf of concatEffect, change it to just
111+-- use concatEffect and move it along with other concatMap benchmarks.
112+{-# INLINE iterateStateT #-}
113+iterateStateT :: Int -> StreamK (StateT Int IO) Int
114+iterateStateT n = StreamK.concatEffect $ do
115+ x <- get
116+ if x > n
117+ then do
118+ put (x - 1)
119+ return $ iterateStateT n
120+ else return $ StreamK.fromPure x
121+
122+o_n_heap_transformer :: Int -> [Benchmark]
123+o_n_heap_transformer value =
124+ [ bgroup "transformer"
125+ [ benchIO "StateT Int IO (n times) (baseline)" $ \n ->
126+ State.evalStateT (iterateStateIO n) value
127+ , benchIO "Stream (StateT Int IO) (n times)" $ \n ->
128+ State.evalStateT (drain $ Common.toStream (iterateStateT n)) value
129+ ]
130+ ]
131+#endif
132+
133+-------------------------------------------------------------------------------
134+-- Main
135+-------------------------------------------------------------------------------
136+
137+-- In addition to gauge options, the number of elements in the stream can be
138+-- passed using the --stream-size option.
139+--
140+benchmarks :: String -> Int -> [Benchmark]
141+benchmarks moduleName size =
142+ [ bgroup (o_1_space_prefix moduleName) (o_1_space_hoisting size)
143+#ifdef USE_STREAMK
144+ , bgroup (o_n_heap_prefix moduleName) (o_n_heap_transformer size)
145+#endif
146+ ]
benchmark/Streamly/Benchmark/Data/Stream/Reduce.hsnew file+588
@@ -0,0 +1,588 @@
1+-- |
2+-- Module : Stream.Reduce
3+-- Copyright : (c) 2018 Composewell Technologies
4+-- License : BSD-3-Clause
5+-- Maintainer : streamly@composewell.com
6+
7+{-# LANGUAGE CPP #-}
8+{-# LANGUAGE FlexibleContexts #-}
9+{-# LANGUAGE ScopedTypeVariables #-}
10+{-# LANGUAGE DeriveAnyClass #-}
11+{-# LANGUAGE DeriveGeneric #-}
12+{-# LANGUAGE RankNTypes #-}
13+
14+#ifdef USE_PRELUDE
15+{-# OPTIONS_GHC -Wno-deprecations #-}
16+#endif
17+
18+module Stream.Reduce (benchmarks) where
19+
20+import Control.DeepSeq (NFData(..))
21+import Control.Monad.IO.Class (MonadIO(..))
22+import Data.Monoid (Sum(..))
23+import GHC.Generics (Generic)
24+
25+import qualified Streamly.Internal.Data.Refold.Type as Refold
26+import qualified Streamly.Internal.Data.Fold as FL
27+import qualified Stream.Common as Common
28+
29+#ifndef USE_STREAMLY_CORE
30+import Data.HashMap.Strict (HashMap)
31+import Data.Proxy (Proxy(..))
32+import Streamly.Internal.Data.IsMap.HashMap ()
33+#endif
34+
35+#ifdef USE_PRELUDE
36+import Control.Monad (when)
37+import qualified Streamly.Internal.Data.Stream.IsStream as S
38+import qualified Streamly.Prelude as S
39+import Streamly.Prelude (fromSerial)
40+import Streamly.Benchmark.Prelude hiding
41+ ( benchIO, benchIOSrc, sourceUnfoldrM, apDiscardFst, apDiscardSnd, apLiftA2
42+ , toNullAp, monadThen, toNullM, toNullM3, filterAllInM, filterAllOutM
43+ , filterSome, breakAfterSome, toListM, toListSome, transformMapM
44+ , transformComposeMapM, transformTeeMapM, transformZipMapM)
45+#else
46+
47+import Streamly.Internal.Data.Stream (Stream)
48+import qualified Streamly.Internal.Data.Stream as S
49+#ifndef USE_STREAMLY_CORE
50+import qualified Streamly.Data.Stream.Prelude as S
51+import qualified Streamly.Internal.Data.Stream.Prelude as S
52+#endif
53+
54+#ifdef USE_STREAMK
55+import Streamly.Internal.Data.StreamK (StreamK)
56+import qualified Streamly.Internal.Data.Parser as PR
57+import qualified Streamly.Internal.Data.StreamK as K
58+#else
59+import qualified Streamly.Internal.Data.Stream as K
60+#endif
61+
62+#endif
63+
64+import Test.Tasty.Bench
65+import Streamly.Benchmark.Common
66+import Stream.Common
67+import Prelude hiding (reverse, tail)
68+
69+#ifdef USE_PRELUDE
70+type Stream = S.SerialT
71+#endif
72+
73+-- Apply transformation g count times on a stream of length len
74+#ifdef USE_STREAMK
75+{-# INLINE iterateSource #-}
76+iterateSource ::
77+ MonadAsync m
78+ => (StreamK m Int -> StreamK m Int)
79+ -> Int
80+ -> Int
81+ -> Int
82+ -> StreamK m Int
83+iterateSource g count len n = f count (fromStream $ sourceUnfoldrM len n)
84+
85+ where
86+
87+ f (0 :: Int) stream = stream
88+ f i stream = f (i - 1) (g stream)
89+#else
90+{-# INLINE iterateSource #-}
91+iterateSource ::
92+ MonadAsync m
93+ => (Stream m Int -> Stream m Int)
94+ -> Int
95+ -> Int
96+ -> Int
97+ -> Stream m Int
98+iterateSource g count len n = f count (sourceUnfoldrM len n)
99+
100+ where
101+
102+ f (0 :: Int) stream = stream
103+ f i stream = f (i - 1) (g stream)
104+#endif
105+
106+-------------------------------------------------------------------------------
107+-- Grouping transformations
108+-------------------------------------------------------------------------------
109+
110+{-# INLINE groups #-}
111+groups :: MonadIO m => Stream m Int -> m ()
112+groups =
113+#ifdef USE_PRELUDE
114+ Common.drain . S.groups FL.drain
115+#else
116+ Common.drain . S.groupsWhile (==) FL.drain
117+#endif
118+
119+{-# INLINE groupsWhileLT #-}
120+groupsWhileLT :: MonadIO m => Stream m Int -> m ()
121+groupsWhileLT =
122+#ifdef USE_PRELUDE
123+ Common.drain . S.groupsBy (>) FL.drain
124+#else
125+ Common.drain . S.groupsWhile (<) FL.drain
126+#endif
127+
128+{-# INLINE groupsWhileEq #-}
129+groupsWhileEq :: MonadIO m => Stream m Int -> m ()
130+groupsWhileEq =
131+#ifdef USE_PRELUDE
132+ Common.drain . S.groupsBy (==) FL.drain
133+#else
134+ Common.drain . S.groupsWhile (==) FL.drain
135+#endif
136+
137+
138+{-# INLINE groupsByRollingLT #-}
139+groupsByRollingLT :: MonadIO m => Stream m Int -> m ()
140+groupsByRollingLT =
141+#ifdef USE_PRELUDE
142+ Common.drain . S.groupsByRolling (<) FL.drain
143+#else
144+ Common.drain . S.groupsRollingBy (<) FL.drain
145+#endif
146+
147+{-# INLINE groupsByRollingEq #-}
148+groupsByRollingEq :: MonadIO m => Stream m Int -> m ()
149+groupsByRollingEq =
150+#ifdef USE_PRELUDE
151+ Common.drain . S.groupsByRolling (==) FL.drain
152+#else
153+ Common.drain . S.groupsRollingBy (==) FL.drain
154+#endif
155+
156+{-# INLINE foldMany #-}
157+foldMany :: Monad m => Stream m Int -> m ()
158+foldMany =
159+ Common.drain
160+ . fmap getSum
161+ . S.foldMany (FL.take 2 FL.mconcat)
162+ . fmap Sum
163+
164+{-# INLINE foldManyPost #-}
165+foldManyPost :: Monad m => Stream m Int -> m ()
166+foldManyPost =
167+ Common.drain
168+ . fmap getSum
169+ . S.foldManyPost (FL.take 2 FL.mconcat)
170+ . fmap Sum
171+
172+{-# INLINE refoldMany #-}
173+refoldMany :: Monad m => Stream m Int -> m ()
174+refoldMany =
175+ Common.drain
176+ . fmap getSum
177+ . S.refoldMany (Refold.take 2 Refold.sconcat) (return mempty)
178+ . fmap Sum
179+
180+{-# INLINE foldIterateM #-}
181+foldIterateM :: Monad m => Stream m Int -> m ()
182+foldIterateM =
183+ Common.drain
184+ . fmap getSum
185+ . S.foldIterateM
186+ (return . FL.take 2 . FL.sconcat) (return (Sum 0))
187+ . fmap Sum
188+
189+{-# INLINE refoldIterateM #-}
190+refoldIterateM :: Monad m => Stream m Int -> m ()
191+refoldIterateM =
192+ Common.drain
193+ . fmap getSum
194+ . S.refoldIterateM
195+ (Refold.take 2 Refold.sconcat) (return (Sum 0))
196+ . fmap Sum
197+
198+#ifdef USE_STREAMK
199+{-# INLINE parseBreak #-}
200+parseBreak :: Monad m => StreamK m Int -> m ()
201+parseBreak s = do
202+ r <- K.parseDBreak PR.one s
203+ case r of
204+ (Left _, _) -> return ()
205+ (Right _, s1) -> parseBreak s1
206+#endif
207+
208+o_1_space_grouping :: Int -> [Benchmark]
209+o_1_space_grouping value =
210+ -- Buffering operations using heap proportional to group/window sizes.
211+ [ bgroup "grouping"
212+ [
213+ benchIOSink value "groups" groups
214+ , benchIOSink value "groupsWhileLT" groupsWhileLT
215+ , benchIOSink value "groupsWhileEq" groupsWhileEq
216+ , benchIOSink value "groupsByRollingLT" groupsByRollingLT
217+ , benchIOSink value "groupsByRollingEq" groupsByRollingEq
218+ ,
219+
220+ -- XXX parseMany/parseIterate benchmarks are in the Parser/ParserD
221+ -- modules we can bring those here. chunksOf benchmarks are in
222+ -- Parser/ParserD/Array.Stream/FileSystem.Handle.
223+ benchIOSink value "foldMany" foldMany
224+ , benchIOSink value "foldManyPost" foldManyPost
225+ , benchIOSink value "refoldMany" refoldMany
226+ , benchIOSink value "foldIterateM" foldIterateM
227+ , benchIOSink value "refoldIterateM" refoldIterateM
228+#ifdef USE_STREAMK
229+ , benchIOSink value "parseBreak (recursive)" (parseBreak . fromStream)
230+#endif
231+
232+#ifndef USE_STREAMLY_CORE
233+ , benchIOSink value "classifySessionsOf (10000 buckets)"
234+ (classifySessionsOf (getKey 10000))
235+ , benchIOSink value "classifySessionsOf (64 buckets)"
236+ (classifySessionsOf (getKey 64))
237+ , benchIOSink value "classifySessionsOfHash (10000 buckets)"
238+ (classifySessionsOfHash (getKey 10000))
239+ , benchIOSink value "classifySessionsOfHash (64 buckets)"
240+ (classifySessionsOfHash (getKey 64))
241+#endif
242+ ]
243+ ]
244+
245+#ifndef USE_STREAMLY_CORE
246+ where
247+
248+ getKey :: Int -> Int -> Int
249+ getKey n = (`mod` n)
250+#endif
251+
252+-------------------------------------------------------------------------------
253+-- Size conserving transformations (reordering, buffering, etc.)
254+-------------------------------------------------------------------------------
255+
256+#ifndef USE_PRELUDE
257+{-# INLINE reverse #-}
258+reverse :: MonadIO m => Int -> Stream m Int -> m ()
259+reverse n = composeN n (toStream . K.reverse . fromStream)
260+
261+{-# INLINE reverse' #-}
262+reverse' :: MonadIO m => Int -> Stream m Int -> m ()
263+reverse' n = composeN n S.reverseUnbox
264+#endif
265+
266+o_n_heap_buffering :: Int -> [Benchmark]
267+o_n_heap_buffering value =
268+ [ bgroup "buffered"
269+ [
270+#ifndef USE_PRELUDE
271+ -- Reversing a stream
272+ benchIOSink value "reverse" (reverse 1)
273+ , benchIOSink value "reverse'" (reverse' 1)
274+#else
275+ benchIOSink value "mkAsync" (mkAsync fromSerial)
276+#endif
277+ ]
278+ ]
279+
280+-------------------------------------------------------------------------------
281+-- Grouping/Splitting
282+-------------------------------------------------------------------------------
283+
284+#ifndef USE_STREAMLY_CORE
285+{-# INLINE classifySessionsOf #-}
286+classifySessionsOf :: S.MonadAsync m => (Int -> Int) -> Stream m Int -> m ()
287+classifySessionsOf getKey =
288+ Common.drain
289+ . S.classifySessionsOf
290+ (const (return False)) 3 (FL.take 10 FL.sum)
291+ . S.timestamped
292+ . fmap (\x -> (getKey x, x))
293+
294+{-# INLINE classifySessionsOfHash #-}
295+classifySessionsOfHash :: S.MonadAsync m =>
296+ (Int -> Int) -> Stream m Int -> m ()
297+classifySessionsOfHash getKey =
298+ Common.drain
299+ . S.classifySessionsByGeneric
300+ (Proxy :: Proxy (HashMap k))
301+ 1 False (const (return False)) 3 (FL.take 10 FL.sum)
302+ . S.timestamped
303+ . fmap (\x -> (getKey x, x))
304+#endif
305+
306+-------------------------------------------------------------------------------
307+-- Mixed Transformation
308+-------------------------------------------------------------------------------
309+
310+{-# INLINE scanMap #-}
311+scanMap :: MonadIO m => Int -> Stream m Int -> m ()
312+scanMap n = composeN n $ fmap (subtract 1) . Common.scanl' (+) 0
313+
314+{-# INLINE dropMap #-}
315+dropMap :: MonadIO m => Int -> Stream m Int -> m ()
316+dropMap n = composeN n $ fmap (subtract 1) . S.drop 1
317+
318+{-# INLINE dropScan #-}
319+dropScan :: MonadIO m => Int -> Stream m Int -> m ()
320+dropScan n = composeN n $ Common.scanl' (+) 0 . S.drop 1
321+
322+{-# INLINE takeDrop #-}
323+takeDrop :: MonadIO m => Int -> Int -> Stream m Int -> m ()
324+takeDrop value n = composeN n $ S.drop 1 . S.take (value + 1)
325+
326+{-# INLINE takeScan #-}
327+takeScan :: MonadIO m => Int -> Int -> Stream m Int -> m ()
328+takeScan value n = composeN n $ Common.scanl' (+) 0 . S.take (value + 1)
329+
330+{-# INLINE takeMap #-}
331+takeMap :: MonadIO m => Int -> Int -> Stream m Int -> m ()
332+takeMap value n = composeN n $ fmap (subtract 1) . S.take (value + 1)
333+
334+{-# INLINE filterDrop #-}
335+filterDrop :: MonadIO m => Int -> Int -> Stream m Int -> m ()
336+filterDrop value n = composeN n $ S.drop 1 . S.filter (<= (value + 1))
337+
338+{-# INLINE filterTake #-}
339+filterTake :: MonadIO m => Int -> Int -> Stream m Int -> m ()
340+filterTake value n = composeN n $ S.take (value + 1) . S.filter (<= (value + 1))
341+
342+{-# INLINE filterScan #-}
343+filterScan :: MonadIO m => Int -> Stream m Int -> m ()
344+filterScan n = composeN n $ Common.scanl' (+) 0 . S.filter (<= maxBound)
345+
346+#ifdef USE_PRELUDE
347+{-# INLINE filterScanl1 #-}
348+filterScanl1 :: MonadIO m => Int -> Stream m Int -> m ()
349+filterScanl1 n = composeN n $ S.scanl1' (+) . S.filter (<= maxBound)
350+#endif
351+
352+{-# INLINE filterMap #-}
353+filterMap :: MonadIO m => Int -> Int -> Stream m Int -> m ()
354+filterMap value n = composeN n $ fmap (subtract 1) . S.filter (<= (value + 1))
355+
356+-------------------------------------------------------------------------------
357+-- Scan and fold
358+-------------------------------------------------------------------------------
359+
360+data Pair a b =
361+ Pair !a !b
362+ deriving (Generic, NFData)
363+
364+{-# INLINE sumProductFold #-}
365+sumProductFold :: Monad m => Stream m Int -> m (Pair Int Int)
366+sumProductFold =
367+ Common.foldl' (\(Pair s p) x -> Pair (s + x) (p * x)) (Pair 0 1)
368+
369+{-# INLINE sumProductScan #-}
370+sumProductScan :: Monad m => Stream m Int -> m (Pair Int Int)
371+sumProductScan =
372+ Common.foldl' (\(Pair _ p) (s0, x) -> Pair s0 (p * x)) (Pair 0 1) .
373+ Common.scanl' (\(s, _) x -> (s + x, x)) (0, 0)
374+
375+{-# INLINE foldl'ReduceMap #-}
376+foldl'ReduceMap :: Monad m => Stream m Int -> m Int
377+foldl'ReduceMap = fmap (+ 1) . Common.foldl' (+) 0
378+
379+o_1_space_transformations_mixed :: Int -> [Benchmark]
380+o_1_space_transformations_mixed value =
381+ -- scanl-map and foldl-map are equivalent to the scan and fold in the foldl
382+ -- library. If scan/fold followed by a map is efficient enough we may not
383+ -- need monolithic implementations of these.
384+ [ bgroup "mixed"
385+ [ benchIOSink value "scanl-map" (scanMap 1)
386+ , benchIOSink value "foldl-map" foldl'ReduceMap
387+ , benchIOSink value "sum-product-fold" sumProductFold
388+ , benchIOSink value "sum-product-scan" sumProductScan
389+ ]
390+ ]
391+
392+o_1_space_transformations_mixedX4 :: Int -> [Benchmark]
393+o_1_space_transformations_mixedX4 value =
394+ [ bgroup "mixedX4"
395+ [ benchIOSink value "scan-map" (scanMap 4)
396+ , benchIOSink value "drop-map" (dropMap 4)
397+ , benchIOSink value "drop-scan" (dropScan 4)
398+ , benchIOSink value "take-drop" (takeDrop value 4)
399+ , benchIOSink value "take-scan" (takeScan value 4)
400+ , benchIOSink value "take-map" (takeMap value 4)
401+ , benchIOSink value "filter-drop" (filterDrop value 4)
402+ , benchIOSink value "filter-take" (filterTake value 4)
403+ , benchIOSink value "filter-scan" (filterScan 4)
404+#ifdef USE_PRELUDE
405+ , benchIOSink value "filter-scanl1" (filterScanl1 4)
406+#endif
407+ , benchIOSink value "filter-map" (filterMap value 4)
408+ ]
409+ ]
410+
411+-------------------------------------------------------------------------------
412+-- Iterating a transformation over and over again
413+-------------------------------------------------------------------------------
414+
415+#ifdef USE_STREAMK
416+{-
417+-- this is quadratic
418+{-# INLINE iterateScan #-}
419+iterateScan :: MonadAsync m => Int -> Int -> Int -> Stream m Int
420+iterateScan count len = toStream . iterateSource (K.scanl' (+) 0) count len
421+-}
422+
423+{-# INLINE iterateMapM #-}
424+iterateMapM :: MonadAsync m => Int -> Int -> Int -> Stream m Int
425+iterateMapM count len = toStream . iterateSource (K.mapM return) count len
426+
427+{-# INLINE iterateFilterEven #-}
428+iterateFilterEven :: MonadAsync m => Int -> Int -> Int -> Stream m Int
429+iterateFilterEven count len =
430+ toStream . iterateSource (K.filter even) count len
431+
432+{-# INLINE iterateTakeAll #-}
433+iterateTakeAll :: MonadAsync m => Int -> Int -> Int -> Int -> Stream m Int
434+iterateTakeAll value count len =
435+ toStream . iterateSource (K.take (value + 1)) count len
436+
437+{-# INLINE iterateDropOne #-}
438+iterateDropOne :: MonadAsync m => Int -> Int -> Int -> Stream m Int
439+iterateDropOne count len = toStream . iterateSource (K.drop 1) count len
440+
441+{-# INLINE iterateDropWhileTrue #-}
442+iterateDropWhileTrue :: MonadAsync m
443+ => Int -> Int -> Int -> Int -> Stream m Int
444+iterateDropWhileTrue value count len =
445+ toStream . iterateSource (K.dropWhile (<= (value + 1))) count len
446+
447+{-# INLINE iterateDropWhileFalse #-}
448+iterateDropWhileFalse :: MonadAsync m
449+ => Int -> Int -> Int -> Int -> Stream m Int
450+iterateDropWhileFalse value count len =
451+ toStream . iterateSource (K.dropWhile (> (value + 1))) count len
452+
453+#else
454+
455+-- this is quadratic
456+{-# INLINE iterateScan #-}
457+iterateScan :: MonadAsync m => Int -> Int -> Int -> Stream m Int
458+iterateScan = iterateSource (Common.scanl' (+) 0)
459+
460+#ifdef USE_PRELUDE
461+-- this is quadratic
462+{-# INLINE iterateScanl1 #-}
463+iterateScanl1 :: MonadAsync m => Int -> Int -> Int -> Stream m Int
464+iterateScanl1 = iterateSource (S.scanl1' (+))
465+#endif
466+
467+{-# INLINE iterateMapM #-}
468+iterateMapM :: MonadAsync m => Int -> Int -> Int -> Stream m Int
469+iterateMapM = iterateSource (S.mapM return)
470+
471+{-# INLINE iterateFilterEven #-}
472+iterateFilterEven :: MonadAsync m => Int -> Int -> Int -> Stream m Int
473+iterateFilterEven = iterateSource (S.filter even)
474+
475+{-# INLINE iterateTakeAll #-}
476+iterateTakeAll :: MonadAsync m => Int -> Int -> Int -> Int -> Stream m Int
477+iterateTakeAll value = iterateSource (S.take (value + 1))
478+
479+{-# INLINE iterateDropOne #-}
480+iterateDropOne :: MonadAsync m => Int -> Int -> Int -> Stream m Int
481+iterateDropOne = iterateSource (S.drop 1)
482+
483+{-# INLINE iterateDropWhileTrue #-}
484+iterateDropWhileTrue :: MonadAsync m
485+ => Int -> Int -> Int -> Int -> Stream m Int
486+iterateDropWhileTrue value = iterateSource (S.dropWhile (<= (value + 1)))
487+#endif
488+
489+#ifdef USE_PRELUDE
490+{-# INLINE tail #-}
491+tail :: Monad m => Stream m a -> m ()
492+tail s = S.tail s >>= mapM_ tail
493+
494+{-# INLINE nullHeadTail #-}
495+nullHeadTail :: Monad m => Stream m Int -> m ()
496+nullHeadTail s = do
497+ r <- S.null s
498+ when (not r) $ do
499+ _ <- S.head s
500+ S.tail s >>= mapM_ nullHeadTail
501+#endif
502+
503+-- Head recursive operations.
504+o_n_stack_iterated :: Int -> [Benchmark]
505+o_n_stack_iterated value = by10 `seq` by100 `seq`
506+ [ bgroup "iterated"
507+ [ benchIOSrc "mapM (n/10 x 10)" $ iterateMapM by10 10
508+#ifndef USE_STREAMK
509+ , benchIOSrc "scanl' (quadratic) (n/100 x 100)" $
510+ iterateScan by100 100
511+#endif
512+#ifdef USE_PRELUDE
513+ , benchIOSrc "scanl1' (n/10 x 10)" $ iterateScanl1 by10 10
514+#endif
515+ , benchIOSrc "filterEven (n/10 x 10)" $
516+ iterateFilterEven by10 10
517+ , benchIOSrc "takeAll (n/10 x 10)" $
518+ iterateTakeAll value by10 10
519+ , benchIOSrc "dropOne (n/10 x 10)" $ iterateDropOne by10 10
520+#ifdef USE_STREAMK
521+ , benchIOSrc "dropWhileFalse (n/10 x 10)" $
522+ iterateDropWhileFalse value by10 10
523+#endif
524+ , benchIOSrc "dropWhileTrue (n/10 x 10)" $
525+ iterateDropWhileTrue value by10 10
526+#ifdef USE_PRELUDE
527+ , benchIOSink value "tail" tail
528+ , benchIOSink value "nullHeadTail" nullHeadTail
529+#endif
530+ ]
531+ ]
532+
533+ where
534+
535+ by10 = value `div` 10
536+ by100 = value `div` 100
537+
538+-------------------------------------------------------------------------------
539+-- Pipes
540+-------------------------------------------------------------------------------
541+
542+o_1_space_pipes :: Int -> [Benchmark]
543+o_1_space_pipes value =
544+ [ bgroup "pipes"
545+ [ benchIOSink value "mapM" (transformMapM 1)
546+ , benchIOSink value "compose" (transformComposeMapM 1)
547+ , benchIOSink value "tee" (transformTeeMapM 1)
548+#ifdef DEVBUILD
549+ -- XXX this take 1 GB memory to compile
550+ , benchIOSink value "zip" (transformZipMapM 1)
551+#endif
552+ ]
553+ ]
554+
555+o_1_space_pipesX4 :: Int -> [Benchmark]
556+o_1_space_pipesX4 value =
557+ [ bgroup "pipesX4"
558+ [ benchIOSink value "mapM" (transformMapM 4)
559+ , benchIOSink value "compose" (transformComposeMapM 4)
560+ , benchIOSink value "tee" (transformTeeMapM 4)
561+#ifdef DEVBUILD
562+ -- XXX this take 1 GB memory to compile
563+ , benchIOSink value "zip" (transformZipMapM 4)
564+#endif
565+ ]
566+ ]
567+
568+-------------------------------------------------------------------------------
569+-- Main
570+-------------------------------------------------------------------------------
571+
572+-- In addition to gauge options, the number of elements in the stream can be
573+-- passed using the --stream-size option.
574+--
575+benchmarks :: String -> Int -> [Benchmark]
576+benchmarks moduleName size =
577+ [ bgroup (o_1_space_prefix moduleName) $ Prelude.concat
578+ [ o_1_space_grouping size
579+ , o_1_space_transformations_mixed size
580+ , o_1_space_transformations_mixedX4 size
581+
582+ -- pipes
583+ , o_1_space_pipes size
584+ , o_1_space_pipesX4 size
585+ ]
586+ , bgroup (o_n_stack_prefix moduleName) (o_n_stack_iterated size)
587+ , bgroup (o_n_heap_prefix moduleName) (o_n_heap_buffering size)
588+ ]
benchmark/Streamly/Benchmark/Data/Stream/Split.hsnew file+244
@@ -0,0 +1,244 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+-- |
4+-- Module : Stream.Split
5+-- Copyright : (c) 2019 Composewell Technologies
6+-- License : BSD-3-Clause
7+-- Maintainer : streamly@composewell.com
8+-- Stability : experimental
9+-- Portability : GHC
10+
11+{-# LANGUAGE CPP #-}
12+{-# LANGUAGE ScopedTypeVariables #-}
13+
14+#ifdef __HADDOCK_VERSION__
15+#undef INSPECTION
16+#endif
17+
18+#ifdef INSPECTION
19+{-# LANGUAGE TemplateHaskell #-}
20+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
21+#endif
22+
23+module Stream.Split (benchmarks) where
24+
25+import Data.Char (ord)
26+import Data.Word (Word8)
27+import System.IO (Handle)
28+
29+import qualified Streamly.FileSystem.Handle as FH
30+import qualified Streamly.Internal.Data.Array as A
31+import qualified Streamly.Internal.Data.Fold as FL
32+import qualified Streamly.Internal.Data.Parser as PR
33+import qualified Streamly.Internal.Data.Stream.IsStream as IP
34+import qualified Streamly.Internal.FileSystem.Handle as IFH
35+import qualified Streamly.Internal.Unicode.Stream as IUS
36+import qualified Streamly.Prelude as S
37+
38+import Test.Tasty.Bench hiding (env)
39+import Prelude hiding (last, length)
40+import Streamly.Benchmark.Common
41+import Streamly.Benchmark.Common.Handle
42+
43+#ifdef INSPECTION
44+import Streamly.Internal.Data.Stream (Step(..))
45+
46+import qualified Streamly.Internal.Data.MutArray as MA
47+import qualified Streamly.Internal.Data.Unfold as IUF
48+
49+import Test.Inspection
50+#endif
51+
52+ -------------------------------------------------------------------------------
53+-- reduce with splitting transformations
54+-------------------------------------------------------------------------------
55+
56+lf :: Word8
57+lf = fromIntegral (ord '\n')
58+
59+toarr :: String -> A.Array Word8
60+toarr = A.fromList . map (fromIntegral . ord)
61+
62+-- | Split on line feed.
63+splitOn :: Handle -> IO Int
64+splitOn inh =
65+ (S.length $ S.splitOn (== lf) FL.drain
66+ $ S.unfold FH.read inh) -- >>= print
67+
68+#ifdef INSPECTION
69+inspect $ hasNoTypeClasses 'splitOn
70+inspect $ 'splitOn `hasNoType` ''Step
71+inspect $ 'splitOn `hasNoType` ''IUF.ConcatState -- FH.read/UF.many
72+inspect $ 'splitOn `hasNoType` ''MA.ArrayUnsafe -- FH.read/A.read
73+#endif
74+
75+-- | Split suffix on line feed.
76+splitOnSuffix :: Handle -> IO Int
77+splitOnSuffix inh =
78+ (S.length $ S.splitOnSuffix (== lf) FL.drain
79+ $ S.unfold FH.read inh) -- >>= print
80+
81+#ifdef INSPECTION
82+inspect $ hasNoTypeClasses 'splitOnSuffix
83+inspect $ 'splitOnSuffix `hasNoType` ''Step
84+inspect $ 'splitOnSuffix `hasNoType` ''IUF.ConcatState -- FH.read/UF.many
85+inspect $ 'splitOnSuffix `hasNoType` ''MA.ArrayUnsafe -- FH.read/A.read
86+#endif
87+
88+-- | Split suffix with line feed.
89+splitWithSuffix :: Handle -> IO Int
90+splitWithSuffix inh =
91+ (S.length $ S.splitWithSuffix (== lf) FL.drain
92+ $ S.unfold FH.read inh) -- >>= print
93+
94+#ifdef INSPECTION
95+inspect $ hasNoTypeClasses 'splitWithSuffix
96+inspect $ 'splitWithSuffix `hasNoType` ''Step
97+inspect $ 'splitWithSuffix `hasNoType` ''IUF.ConcatState -- FH.read/UF.many
98+inspect $ 'splitWithSuffix `hasNoType` ''MA.ArrayUnsafe -- FH.read/A.read
99+#endif
100+
101+-- | Split on line feed.
102+foldManySepBy :: Handle -> IO Int
103+foldManySepBy inh =
104+ (S.length
105+ $ IP.foldMany
106+ (FL.takeEndBy_ (== lf) FL.drain)
107+ (S.unfold FH.read inh)
108+ ) -- >>= print
109+
110+-- | Split on line feed.
111+parseManySepBy :: Handle -> IO Int
112+parseManySepBy inh =
113+ (S.length
114+ $ IP.parseMany
115+ (PR.fromFold $ FL.takeEndBy_ (== lf) FL.drain)
116+ (S.unfold FH.read inh)
117+ ) -- >>= print
118+
119+-- | Words by space
120+wordsBy :: Handle -> IO Int
121+wordsBy inh =
122+ (S.length $ S.wordsBy isSp FL.drain
123+ $ S.unfold FH.read inh) -- >>= print
124+
125+#ifdef INSPECTION
126+inspect $ hasNoTypeClasses 'wordsBy
127+inspect $ 'wordsBy `hasNoType` ''Step
128+inspect $ 'wordsBy `hasNoType` ''IUF.ConcatState -- FH.read/UF.many
129+inspect $ 'wordsBy `hasNoType` ''MA.ArrayUnsafe -- FH.read/A.read
130+#endif
131+
132+-- | Split on a word8 sequence.
133+splitOnSeq :: String -> Handle -> IO Int
134+splitOnSeq str inh =
135+ (S.length $ IP.splitOnSeq (toarr str) FL.drain
136+ $ S.unfold FH.read inh) -- >>= print
137+
138+#ifdef INSPECTION
139+-- inspect $ hasNoTypeClasses 'splitOnSeq
140+-- inspect $ 'splitOnSeq `hasNoType` ''Step
141+#endif
142+
143+-- | Split on a word8 sequence.
144+splitOnSeq100k :: Handle -> IO Int
145+splitOnSeq100k inh = do
146+ arr <- A.fromStream $ IP.toStream $ S.fromSerial $ S.replicate 100000 123
147+ (S.length $ IP.splitOnSeq arr FL.drain
148+ $ S.unfold FH.read inh) -- >>= print
149+
150+-- | Split on suffix sequence.
151+splitOnSuffixSeq :: String -> Handle -> IO Int
152+splitOnSuffixSeq str inh =
153+ (S.length $ IP.splitOnSuffixSeq (toarr str) FL.drain
154+ $ S.unfold FH.read inh) -- >>= print
155+
156+#ifdef INSPECTION
157+-- inspect $ hasNoTypeClasses 'splitOnSuffixSeq
158+-- inspect $ 'splitOnSuffixSeq `hasNoType` ''Step
159+#endif
160+
161+-- | Split on suffix sequence.
162+splitWithSuffixSeq :: String -> Handle -> IO Int
163+splitWithSuffixSeq str inh =
164+ S.length $ IP.splitWithSuffixSeq (toarr str) FL.drain
165+ $ S.unfold FH.read inh -- >>= print
166+
167+o_1_space_reduce_read_split :: BenchEnv -> [Benchmark]
168+o_1_space_reduce_read_split env =
169+ [ bgroup "split"
170+ [ mkBench "S.foldMany (FL.takeEndBy_ (== lf) FL.drain)" env
171+ $ \inh _ -> foldManySepBy inh
172+ , mkBench "S.parseMany (FL.takeEndBy_ (== lf) FL.drain)" env
173+ $ \inh _ -> parseManySepBy inh
174+ , mkBench "S.wordsBy isSpace FL.drain" env $ \inh _ ->
175+ wordsBy inh
176+ , mkBench "S.splitOn (== lf) FL.drain" env $ \inh _ ->
177+ splitOn inh
178+ , mkBench "S.splitOnSuffix (== lf) FL.drain" env $ \inh _ ->
179+ splitOnSuffix inh
180+ , mkBench "S.splitWithSuffix (== lf) FL.drain" env $ \inh _ ->
181+ splitWithSuffix inh
182+ , mkBench "S.splitOnSeq \"\" FL.drain" env $ \inh _ ->
183+ splitOnSeq "" inh
184+ , mkBench "S.splitOnSuffixSeq \"\" FL.drain" env $ \inh _ ->
185+ splitOnSuffixSeq "" inh
186+ , mkBench "S.splitOnSeq \"\\n\" FL.drain" env $ \inh _ ->
187+ splitOnSeq "\n" inh
188+ , mkBench "S.splitOnSuffixSeq \"\\n\" FL.drain" env $ \inh _ ->
189+ splitOnSuffixSeq "\n" inh
190+ , mkBench "S.splitOnSeq \"a\" FL.drain" env $ \inh _ ->
191+ splitOnSeq "a" inh
192+ , mkBench "S.splitOnSeq \"\\r\\n\" FL.drain" env $ \inh _ ->
193+ splitOnSeq "\r\n" inh
194+ , mkBench "S.splitOnSuffixSeq \"\\r\\n\" FL.drain" env $ \inh _ ->
195+ splitOnSuffixSeq "\r\n" inh
196+ , mkBench "S.splitWithSuffixSeq \"\\r\\n\" FL.drain" env $ \inh _ ->
197+ splitWithSuffixSeq "\r\n" inh
198+ , mkBench "S.splitOnSeq \"aa\" FL.drain" env $ \inh _ ->
199+ splitOnSeq "aa" inh
200+ , mkBench "S.splitOnSeq \"aaaa\" FL.drain" env $ \inh _ ->
201+ splitOnSeq "aaaa" inh
202+ , mkBench "S.splitOnSeq \"abcdefgh\" FL.drain" env $ \inh _ ->
203+ splitOnSeq "abcdefgh" inh
204+ , mkBench "S.splitOnSeq \"abcdefghi\" FL.drain" env $ \inh _ ->
205+ splitOnSeq "abcdefghi" inh
206+ , mkBench "S.splitOnSeq \"catcatcatcatcat\" FL.drain" env $ \inh _ ->
207+ splitOnSeq "catcatcatcatcat" inh
208+ , mkBench "S.splitOnSeq \"abcdefghijklmnopqrstuvwxyz\" FL.drain"
209+ env $ \inh _ -> splitOnSeq "abcdefghijklmnopqrstuvwxyz" inh
210+ , mkBench "S.splitOnSeq 100k long pattern"
211+ env $ \inh _ -> splitOnSeq100k inh
212+ , mkBenchSmall "S.splitOnSuffixSeq \"abcdefghijklmnopqrstuvwxyz\" FL.drain"
213+ env $ \inh _ -> splitOnSuffixSeq "abcdefghijklmnopqrstuvwxyz" inh
214+ , mkBenchSmall "S.splitWithSuffixSeq \"abcdefghijklmnopqrstuvwxyz\" FL.drain"
215+ env $ \inh _ -> splitWithSuffixSeq "abcdefghijklmnopqrstuvwxyz" inh
216+ ]
217+ ]
218+
219+-- | Split on a character sequence.
220+splitOnSeqUtf8 :: String -> Handle -> IO Int
221+splitOnSeqUtf8 str inh =
222+ (S.length $ IP.splitOnSeq (A.fromList str) FL.drain
223+ $ IP.fromStream
224+ $ IUS.decodeUtf8Arrays
225+ $ IFH.readChunks inh) -- >>= print
226+
227+o_1_space_reduce_toChunks_split :: BenchEnv -> [Benchmark]
228+o_1_space_reduce_toChunks_split env =
229+ [ bgroup "split/toChunks"
230+ [ mkBenchSmall ("S.splitOnSeqUtf8 \"abcdefgh\" FL.drain "
231+ ++ ". US.decodeUtf8Arrays") env $ \inh _ ->
232+ splitOnSeqUtf8 "abcdefgh" inh
233+ , mkBenchSmall "S.splitOnSeqUtf8 \"abcdefghijklmnopqrstuvwxyz\" FL.drain"
234+ env $ \inh _ -> splitOnSeqUtf8 "abcdefghijklmnopqrstuvwxyz" inh
235+ ]
236+ ]
237+
238+benchmarks :: String -> BenchEnv -> [Benchmark]
239+benchmarks moduleName env =
240+ [ bgroup (o_1_space_prefix moduleName) $ concat
241+ [ o_1_space_reduce_read_split env
242+ , o_1_space_reduce_toChunks_split env
243+ ]
244+ ]
benchmark/Streamly/Benchmark/Data/Stream/StreamD.hsnew file+658
@@ -0,0 +1,658 @@
1+-- |
2+-- Module : Streamly.Benchmark.Data.Stream.StreamD
3+-- Copyright : (c) 2018 Composewell Technologies
4+--
5+-- License : BSD3
6+-- Maintainer : streamly@composewell.com
7+
8+{-# LANGUAGE CPP #-}
9+{-# LANGUAGE FlexibleContexts #-}
10+{-# LANGUAGE ScopedTypeVariables #-}
11+{-# LANGUAGE TupleSections #-}
12+{-# OPTIONS_GHC -Wno-orphans #-}
13+
14+#ifdef __HADDOCK_VERSION__
15+#undef INSPECTION
16+#endif
17+
18+#ifdef INSPECTION
19+{-# LANGUAGE TemplateHaskell #-}
20+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
21+#endif
22+
23+module Main (main) where
24+
25+#if !MIN_VERSION_base(4,18,0)
26+import Control.Applicative (liftA2)
27+#endif
28+import Control.Monad (when)
29+import Data.Maybe (isJust)
30+import Test.Tasty.Bench (bench, nfIO, bgroup, Benchmark, defaultMain)
31+import System.Random (randomRIO)
32+import Prelude hiding (tail, mapM_, foldl, last, map, mapM, concatMap, zip)
33+
34+import qualified Prelude as P
35+import qualified Streamly.Internal.Data.Stream as S
36+import qualified Streamly.Internal.Data.Unfold as UF
37+import qualified Streamly.Internal.Data.Fold as FL
38+
39+import Streamly.Benchmark.Common
40+
41+#ifdef INSPECTION
42+import GHC.Types (SPEC(..))
43+import Test.Inspection
44+#endif
45+
46+-- We try to keep the total number of iterations same irrespective of nesting
47+-- of the loops so that the overhead is easy to compare.
48+value, value2, value3, value16, maxValue :: Int
49+value = 100000
50+value2 = round (P.fromIntegral value**(1/2::P.Double)) -- double nested loop
51+value3 = round (P.fromIntegral value**(1/3::P.Double)) -- triple nested loop
52+value16 = round (P.fromIntegral value**(1/16::P.Double)) -- triple nested loop
53+maxValue = value
54+
55+-------------------------------------------------------------------------------
56+-- Stream generation and elimination
57+-------------------------------------------------------------------------------
58+
59+type Stream m a = S.Stream m a
60+
61+{-# INLINE sourceUnfoldr #-}
62+sourceUnfoldr :: Monad m => Int -> Stream m Int
63+sourceUnfoldr n = S.unfoldr step n
64+ where
65+ step cnt =
66+ if cnt > n + value
67+ then Nothing
68+ else Just (cnt, cnt + 1)
69+
70+{-# INLINE sourceUnfoldrN #-}
71+sourceUnfoldrN :: Monad m => Int -> Int -> Stream m Int
72+sourceUnfoldrN m n = S.unfoldr step n
73+ where
74+ step cnt =
75+ if cnt > n + m
76+ then Nothing
77+ else Just (cnt, cnt + 1)
78+
79+{-# INLINE sourceUnfoldrMN #-}
80+sourceUnfoldrMN :: Monad m => Int -> Int -> Stream m Int
81+sourceUnfoldrMN m n = S.unfoldrM step n
82+ where
83+ step cnt =
84+ if cnt > n + m
85+ then return Nothing
86+ else return (Just (cnt, cnt + 1))
87+
88+{-# INLINE sourceUnfoldrM #-}
89+sourceUnfoldrM :: Monad m => Int -> Stream m Int
90+sourceUnfoldrM n = S.unfoldrM step n
91+ where
92+ step cnt =
93+ if cnt > n + value
94+ then return Nothing
95+ else return (Just (cnt, cnt + 1))
96+
97+{-# INLINE sourceIntFromTo #-}
98+sourceIntFromTo :: Monad m => Int -> Stream m Int
99+sourceIntFromTo n = S.enumerateFromToIntegral n (n + value)
100+
101+{-# INLINE sourceFromList #-}
102+sourceFromList :: Monad m => Int -> Stream m Int
103+sourceFromList n = S.fromList [n..n+value]
104+
105+-------------------------------------------------------------------------------
106+-- Elimination
107+-------------------------------------------------------------------------------
108+
109+{-# INLINE runStream #-}
110+runStream :: Monad m => Stream m a -> m ()
111+runStream = S.drain
112+
113+{-# INLINE mapM_ #-}
114+mapM_ :: Monad m => Stream m a -> m ()
115+mapM_ = S.mapM_ (\_ -> return ())
116+
117+{-# INLINE toNull #-}
118+toNull :: Monad m => Stream m Int -> m ()
119+toNull = runStream
120+
121+{-# INLINE uncons #-}
122+{-# INLINE nullTail #-}
123+{-# INLINE headTail #-}
124+uncons, nullTail, headTail
125+ :: Monad m
126+ => Stream m Int -> m ()
127+
128+uncons s = do
129+ r <- S.uncons s
130+ case r of
131+ Nothing -> return ()
132+ Just (_, t) -> uncons t
133+
134+{-# INLINE foldBreak #-}
135+foldBreak :: Monad m => Stream m Int -> m ()
136+foldBreak s = do
137+ (r, s1) <- S.foldBreak (FL.take 1 FL.length) s
138+ when (r /= 0) $ foldBreak s1
139+
140+{-# INLINE tail #-}
141+tail :: Monad m => Stream m a -> m ()
142+tail s = S.tail s >>= P.mapM_ tail
143+
144+nullTail s = do
145+ r <- S.null s
146+ when (not r) $ S.tail s >>= P.mapM_ nullTail
147+
148+headTail s = do
149+ h <- S.head s
150+ when (isJust h) $ S.tail s >>= P.mapM_ headTail
151+
152+{-# INLINE toList #-}
153+toList :: Monad m => Stream m Int -> m [Int]
154+toList = S.toList
155+
156+{-# INLINE foldl #-}
157+foldl :: Monad m => Stream m Int -> m Int
158+foldl = S.foldl' (+) 0
159+
160+{-# INLINE last #-}
161+last :: Monad m => Stream m Int -> m (Maybe Int)
162+last = S.last
163+
164+-------------------------------------------------------------------------------
165+-- Transformation
166+-------------------------------------------------------------------------------
167+
168+{-# INLINE transform #-}
169+transform :: Monad m => Stream m a -> m ()
170+transform = runStream
171+
172+{-# INLINE composeN #-}
173+composeN
174+ :: Monad m
175+ => Int -> (Stream m Int -> Stream m Int) -> Stream m Int -> m ()
176+composeN n f =
177+ case n of
178+ 1 -> transform . f
179+ 2 -> transform . f . f
180+ 3 -> transform . f . f . f
181+ 4 -> transform . f . f . f . f
182+ _ -> undefined
183+
184+{-# INLINE scan #-}
185+{-# INLINE map #-}
186+{-# INLINE fmapD #-}
187+{-# INLINE mapM #-}
188+{-# INLINE mapMaybe #-}
189+{-# INLINE mapMaybeM #-}
190+{-# INLINE filterEven #-}
191+{-# INLINE filterAllOut #-}
192+{-# INLINE filterAllIn #-}
193+{-# INLINE _takeOne #-}
194+{-# INLINE takeAll #-}
195+{-# INLINE takeWhileTrue #-}
196+{-# INLINE _takeWhileMTrue #-}
197+{-# INLINE dropOne #-}
198+{-# INLINE dropAll #-}
199+{-# INLINE dropWhileTrue #-}
200+{-# INLINE _dropWhileMTrue #-}
201+{-# INLINE dropWhileFalse #-}
202+{-# INLINE _foldrS #-}
203+{-# INLINE _foldlS #-}
204+{-# INLINE intersperse #-}
205+scan, map, fmapD, mapM, mapMaybe, mapMaybeM, filterEven, filterAllOut,
206+ filterAllIn, _takeOne, takeAll, takeWhileTrue, _takeWhileMTrue, dropOne,
207+ dropAll, dropWhileTrue, _dropWhileMTrue, dropWhileFalse, _foldrS, _foldlS,
208+ intersperse
209+ :: Monad m
210+ => Int -> Stream m Int -> m ()
211+
212+scan n = composeN n $ S.scanl' (+) 0
213+fmapD n = composeN n $ Prelude.fmap (+1)
214+map n = composeN n $ S.map (+1)
215+mapM n = composeN n $ S.mapM return
216+mapMaybe n = composeN n $ S.mapMaybe
217+ (\x -> if Prelude.odd x then Nothing else Just x)
218+mapMaybeM n = composeN n $ S.mapMaybeM
219+ (\x -> if Prelude.odd x then return Nothing else return $ Just x)
220+filterEven n = composeN n $ S.filter even
221+filterAllOut n = composeN n $ S.filter (> maxValue)
222+filterAllIn n = composeN n $ S.filter (<= maxValue)
223+_takeOne n = composeN n $ S.take 1
224+takeAll n = composeN n $ S.take maxValue
225+takeWhileTrue n = composeN n $ S.takeWhile (<= maxValue)
226+_takeWhileMTrue n = composeN n $ S.takeWhileM (return . (<= maxValue))
227+dropOne n = composeN n $ S.drop 1
228+dropAll n = composeN n $ S.drop maxValue
229+dropWhileTrue n = composeN n $ S.dropWhile (<= maxValue)
230+_dropWhileMTrue n = composeN n $ S.dropWhileM (return . (<= maxValue))
231+dropWhileFalse n = composeN n $ S.dropWhile (> maxValue)
232+_foldrS n = composeN n $ S.foldrS S.cons S.nil
233+_foldlS n = composeN n $ S.foldlS (flip S.cons) S.nil
234+intersperse n = composeN n $ S.intersperse maxValue
235+
236+-------------------------------------------------------------------------------
237+-- Iteration
238+-------------------------------------------------------------------------------
239+
240+iterStreamLen, maxIters :: Int
241+iterStreamLen = 10
242+maxIters = 10000
243+
244+{-# INLINE iterateSource #-}
245+iterateSource
246+ :: Monad m
247+ => (Stream m Int -> Stream m Int) -> Int -> Int -> Stream m Int
248+iterateSource g i n = f i (sourceUnfoldrMN iterStreamLen n)
249+ where
250+ f (0 :: Int) m = g m
251+ f x m = g (f (x P.- 1) m)
252+
253+{-# INLINE iterateMapM #-}
254+{-# INLINE iterateScan #-}
255+{-# INLINE iterateFilterEven #-}
256+{-# INLINE iterateTakeAll #-}
257+{-# INLINE iterateDropOne #-}
258+{-# INLINE iterateDropWhileFalse #-}
259+{-# INLINE iterateDropWhileTrue #-}
260+iterateMapM, iterateScan, iterateFilterEven, iterateTakeAll, iterateDropOne,
261+ iterateDropWhileFalse, iterateDropWhileTrue
262+ :: Monad m
263+ => Int -> Stream m Int
264+
265+-- this is quadratic
266+iterateScan = iterateSource (S.scanl' (+) 0) (maxIters `div` 10)
267+iterateDropWhileFalse = iterateSource (S.dropWhile (> maxValue))
268+ (maxIters `div` 10)
269+
270+iterateMapM = iterateSource (S.mapM return) maxIters
271+iterateFilterEven = iterateSource (S.filter even) maxIters
272+iterateTakeAll = iterateSource (S.take maxValue) maxIters
273+iterateDropOne = iterateSource (S.drop 1) maxIters
274+iterateDropWhileTrue = iterateSource (S.dropWhile (<= maxValue)) maxIters
275+
276+{-# INLINE iterateM #-}
277+iterateM :: Monad m => Int -> Stream m Int
278+iterateM i = S.take maxIters (S.iterateM (\x -> return (x + 1)) (return i))
279+
280+-------------------------------------------------------------------------------
281+-- Zipping
282+-------------------------------------------------------------------------------
283+
284+{-# INLINE eqBy #-}
285+eqBy :: (Monad m, P.Eq a) => S.Stream m a -> m P.Bool
286+eqBy src = S.eqBy (==) src src
287+
288+{-# INLINE cmpBy #-}
289+cmpBy :: (Monad m, P.Ord a) => S.Stream m a -> m P.Ordering
290+cmpBy src = S.cmpBy P.compare src src
291+
292+{-# INLINE zip #-}
293+zip :: Monad m => Stream m Int -> m ()
294+zip src = transform $ S.zipWith (,) src src
295+
296+-------------------------------------------------------------------------------
297+-- Mixed Composition
298+-------------------------------------------------------------------------------
299+
300+{-# INLINE scanMap #-}
301+{-# INLINE dropMap #-}
302+{-# INLINE dropScan #-}
303+{-# INLINE takeDrop #-}
304+{-# INLINE takeScan #-}
305+{-# INLINE takeMap #-}
306+{-# INLINE filterDrop #-}
307+{-# INLINE filterTake #-}
308+{-# INLINE filterScan #-}
309+{-# INLINE filterMap #-}
310+scanMap, dropMap, dropScan, takeDrop, takeScan, takeMap, filterDrop,
311+ filterTake, filterScan, filterMap
312+ :: Monad m => Int -> Stream m Int -> m ()
313+
314+scanMap n = composeN n $ S.map (subtract 1) . S.scanl' (+) 0
315+dropMap n = composeN n $ S.map (subtract 1) . S.drop 1
316+dropScan n = composeN n $ S.scanl' (+) 0 . S.drop 1
317+takeDrop n = composeN n $ S.drop 1 . S.take maxValue
318+takeScan n = composeN n $ S.scanl' (+) 0 . S.take maxValue
319+takeMap n = composeN n $ S.map (subtract 1) . S.take maxValue
320+filterDrop n = composeN n $ S.drop 1 . S.filter (<= maxValue)
321+filterTake n = composeN n $ S.take maxValue . S.filter (<= maxValue)
322+filterScan n = composeN n $ S.scanl' (+) 0 . S.filter (<= maxBound)
323+filterMap n = composeN n $ S.map (subtract 1) . S.filter (<= maxValue)
324+
325+-------------------------------------------------------------------------------
326+-- Nested Composition
327+-------------------------------------------------------------------------------
328+
329+instance Monad f => Applicative (S.Stream f) where
330+ {-# INLINE pure #-}
331+ pure = S.fromPure
332+
333+ {-# INLINE (<*>) #-}
334+ (<*>) = S.crossApply
335+
336+ {-# INLINE liftA2 #-}
337+ liftA2 f x = (<*>) (fmap f x)
338+
339+ {-# INLINE (*>) #-}
340+ (*>) = S.crossApplySnd
341+
342+ {-# INLINE (<*) #-}
343+ (<*) = S.crossApplyFst
344+
345+-- NOTE: even though concatMap for StreamD is 4x faster compared to StreamK,
346+-- the monad instance does not seem to be significantly faster.
347+instance Monad m => Monad (S.Stream m) where
348+ {-# INLINE return #-}
349+ return = pure
350+
351+ {-# INLINE (>>=) #-}
352+ (>>=) = flip S.concatMap
353+
354+ {-# INLINE (>>) #-}
355+ (>>) = (*>)
356+
357+{-# INLINE toNullApNested #-}
358+toNullApNested :: Monad m => Stream m Int -> m ()
359+toNullApNested s = runStream $ do
360+ (+) <$> s <*> s
361+
362+{-# INLINE toNullNested #-}
363+toNullNested :: Monad m => Stream m Int -> m ()
364+toNullNested s = runStream $ do
365+ x <- s
366+ y <- s
367+ return $ x + y
368+
369+{-# INLINE toNullNested3 #-}
370+toNullNested3 :: Monad m => Stream m Int -> m ()
371+toNullNested3 s = runStream $ do
372+ x <- s
373+ y <- s
374+ z <- s
375+ return $ x + y + z
376+
377+{-# INLINE filterAllOutNested #-}
378+filterAllOutNested
379+ :: Monad m
380+ => Stream m Int -> m ()
381+filterAllOutNested str = runStream $ do
382+ x <- str
383+ y <- str
384+ let s = x + y
385+ if s < 0
386+ then return s
387+ else S.nil
388+
389+{-# INLINE filterAllInNested #-}
390+filterAllInNested
391+ :: Monad m
392+ => Stream m Int -> m ()
393+filterAllInNested str = runStream $ do
394+ x <- str
395+ y <- str
396+ let s = x + y
397+ if s > 0
398+ then return s
399+ else S.nil
400+
401+-------------------------------------------------------------------------------
402+-- ConcatMap
403+-------------------------------------------------------------------------------
404+
405+-- concatMap unfoldrM/unfoldrM
406+
407+{-# INLINE concatMap #-}
408+concatMap :: Int -> Int -> Int -> IO ()
409+concatMap outer inner n =
410+ S.drain $ S.concatMap
411+ (\_ -> sourceUnfoldrMN inner n)
412+ (sourceUnfoldrMN outer n)
413+
414+#ifdef INSPECTION
415+inspect $ hasNoTypeClasses 'concatMap
416+inspect $ 'concatMap `hasNoType` ''SPEC
417+#endif
418+
419+-- concatMap unfoldr/unfoldr
420+
421+{-# INLINE concatMapPure #-}
422+concatMapPure :: Int -> Int -> Int -> IO ()
423+concatMapPure outer inner n =
424+ S.drain $ S.concatMap
425+ (\_ -> sourceUnfoldrN inner n)
426+ (sourceUnfoldrN outer n)
427+
428+#ifdef INSPECTION
429+inspect $ hasNoTypeClasses 'concatMapPure
430+inspect $ 'concatMapPure `hasNoType` ''SPEC
431+#endif
432+
433+-- concatMap replicate/unfoldrM
434+
435+{-# INLINE concatMapRepl #-}
436+concatMapRepl :: Int -> Int -> Int -> IO ()
437+concatMapRepl outer inner n =
438+ S.drain $ S.concatMap (S.replicate inner) (sourceUnfoldrMN outer n)
439+
440+#ifdef INSPECTION
441+inspect $ hasNoTypeClasses 'concatMapRepl
442+inspect $ 'concatMapRepl `hasNoType` ''SPEC
443+#endif
444+
445+-- unfoldMany replicate/unfoldrM
446+
447+{-# INLINE unfoldManyRepl #-}
448+unfoldManyRepl :: Int -> Int -> Int -> IO ()
449+unfoldManyRepl outer inner n =
450+ S.drain
451+ $ S.unfoldMany
452+ UF.replicateM
453+ (S.map ((inner,) . return) (sourceUnfoldrMN outer n))
454+
455+#ifdef INSPECTION
456+inspect $ hasNoTypeClasses 'unfoldManyRepl
457+inspect $ 'unfoldManyRepl `hasNoType` ''S.ConcatMapUState
458+inspect $ 'unfoldManyRepl `hasNoType` ''SPEC
459+#endif
460+
461+-------------------------------------------------------------------------------
462+-- Benchmarks
463+-------------------------------------------------------------------------------
464+
465+moduleName :: String
466+moduleName = "Data.StreamD"
467+
468+o_1_space :: [Benchmark]
469+o_1_space =
470+ [ bgroup (o_1_space_prefix moduleName)
471+ [ bgroup "generation"
472+ [ benchFold "unfoldr" toNull sourceUnfoldr
473+ , benchFold "unfoldrM" toNull sourceUnfoldrM
474+ , benchFold "intFromTo" toNull sourceIntFromTo
475+
476+ , benchFold "fromList" toNull sourceFromList
477+ ]
478+ , bgroup "elimination"
479+ [ benchFold "toNull" toNull sourceUnfoldrM
480+ , benchFold "mapM_" mapM_ sourceUnfoldrM
481+ , benchFold "uncons" uncons sourceUnfoldrM
482+ , benchFold "foldBreak" foldBreak sourceUnfoldrM
483+ , benchFold "foldl'" foldl sourceUnfoldrM
484+ , benchFold "last" last sourceUnfoldrM
485+ ]
486+ , bgroup "nested"
487+ [ benchFold "toNullAp" toNullApNested (sourceUnfoldrMN value2)
488+ , benchFold "toNull" toNullNested (sourceUnfoldrMN value2)
489+ , benchFold "toNull3" toNullNested3 (sourceUnfoldrMN value3)
490+ , benchFold "filterAllIn" filterAllInNested (sourceUnfoldrMN value2)
491+ , benchFold "filterAllOut" filterAllOutNested (sourceUnfoldrMN value2)
492+ , benchFold "toNullApPure" toNullApNested (sourceUnfoldrN value2)
493+ , benchFold "toNullPure" toNullNested (sourceUnfoldrN value2)
494+ , benchFold "toNull3Pure" toNullNested3 (sourceUnfoldrN value3)
495+ , benchFold "filterAllInPure" filterAllInNested (sourceUnfoldrN value2)
496+ , benchFold "filterAllOutPure" filterAllOutNested (sourceUnfoldrN value2)
497+ ]
498+ , bgroup "transformation"
499+ [ benchFold "scan" (scan 1) sourceUnfoldrM
500+ , benchFold "map" (map 1) sourceUnfoldrM
501+ , benchFold "fmap" (fmapD 1) sourceUnfoldrM
502+ , benchFold "mapM" (mapM 1) sourceUnfoldrM
503+ , benchFold "mapMaybe" (mapMaybe 1) sourceUnfoldrM
504+ , benchFold "mapMaybeM" (mapMaybeM 1) sourceUnfoldrM
505+ ]
506+ , bgroup "transformationX4"
507+ [ benchFold "scan" (scan 4) sourceUnfoldrM
508+ , benchFold "map" (map 4) sourceUnfoldrM
509+ , benchFold "fmap" (fmapD 4) sourceUnfoldrM
510+ , benchFold "mapM" (mapM 4) sourceUnfoldrM
511+ , benchFold "mapMaybe" (mapMaybe 4) sourceUnfoldrM
512+ , benchFold "mapMaybeM" (mapMaybeM 4) sourceUnfoldrM
513+ -- XXX this is horribly slow
514+ -- , benchFold "concatMap" (concatMap 4) (sourceUnfoldrMN value16)
515+ ]
516+
517+ , bgroup "concat"
518+ [ benchIOSrc1 "concatMapPure (n of 1)"
519+ (concatMapPure value 1)
520+ , benchIOSrc1 "concatMapPure (sqrt n of sqrt n)"
521+ (concatMapPure value2 value2)
522+ , benchIOSrc1 "concatMapPure (1 of n)"
523+ (concatMapPure 1 value)
524+
525+ , benchIOSrc1 "concatMap (n of 1)"
526+ (concatMap value 1)
527+ , benchIOSrc1 "concatMap (sqrt n of sqrt n)"
528+ (concatMap value2 value2)
529+ , benchIOSrc1 "concatMap (1 of n)"
530+ (concatMap 1 value)
531+
532+ -- concatMap vs unfoldMany
533+ , benchIOSrc1 "concatMapRepl (sqrt n of sqrt n)"
534+ (concatMapRepl value2 value2)
535+ , benchIOSrc1 "unfoldManyRepl (sqrt n of sqrt n)"
536+ (unfoldManyRepl value2 value2)
537+ ]
538+ , bgroup "filtering"
539+ [ benchFold "filter-even" (filterEven 1) sourceUnfoldrM
540+ , benchFold "filter-all-out" (filterAllOut 1) sourceUnfoldrM
541+ , benchFold "filter-all-in" (filterAllIn 1) sourceUnfoldrM
542+ , benchFold "take-all" (takeAll 1) sourceUnfoldrM
543+ , benchFold "takeWhile-true" (takeWhileTrue 1) sourceUnfoldrM
544+ , benchFold "drop-one" (dropOne 1) sourceUnfoldrM
545+ , benchFold "drop-all" (dropAll 1) sourceUnfoldrM
546+ , benchFold "dropWhile-true" (dropWhileTrue 1) sourceUnfoldrM
547+ , benchFold "dropWhile-false" (dropWhileFalse 1) sourceUnfoldrM
548+ ]
549+ , bgroup "filteringX4"
550+ [ benchFold "filter-even" (filterEven 4) sourceUnfoldrM
551+ , benchFold "filter-all-out" (filterAllOut 4) sourceUnfoldrM
552+ , benchFold "filter-all-in" (filterAllIn 4) sourceUnfoldrM
553+ , benchFold "take-all" (takeAll 4) sourceUnfoldrM
554+ , benchFold "takeWhile-true" (takeWhileTrue 4) sourceUnfoldrM
555+ , benchFold "drop-one" (dropOne 4) sourceUnfoldrM
556+ , benchFold "drop-all" (dropAll 4) sourceUnfoldrM
557+ , benchFold "dropWhile-true" (dropWhileTrue 4) sourceUnfoldrM
558+ , benchFold "dropWhile-false" (dropWhileFalse 4) sourceUnfoldrM
559+ ]
560+ , bgroup "zipping"
561+ [ benchFold "eqBy" eqBy sourceUnfoldrM
562+ , benchFold "cmpBy" cmpBy sourceUnfoldrM
563+ , benchFold "zip" zip sourceUnfoldrM
564+ ]
565+ , bgroup "mixed"
566+ [ benchFold "scan-map" (scanMap 1) sourceUnfoldrM
567+ , benchFold "drop-map" (dropMap 1) sourceUnfoldrM
568+ , benchFold "drop-scan" (dropScan 1) sourceUnfoldrM
569+ , benchFold "take-drop" (takeDrop 1) sourceUnfoldrM
570+ , benchFold "take-scan" (takeScan 1) sourceUnfoldrM
571+ , benchFold "take-map" (takeMap 1) sourceUnfoldrM
572+ , benchFold "filter-drop" (filterDrop 1) sourceUnfoldrM
573+ , benchFold "filter-take" (filterTake 1) sourceUnfoldrM
574+ , benchFold "filter-scan" (filterScan 1) sourceUnfoldrM
575+ , benchFold "filter-map" (filterMap 1) sourceUnfoldrM
576+ ]
577+ , bgroup "mixedX2"
578+ [ benchFold "scan-map" (scanMap 2) sourceUnfoldrM
579+ , benchFold "drop-map" (dropMap 2) sourceUnfoldrM
580+ , benchFold "drop-scan" (dropScan 2) sourceUnfoldrM
581+ , benchFold "take-drop" (takeDrop 2) sourceUnfoldrM
582+ , benchFold "take-scan" (takeScan 2) sourceUnfoldrM
583+ , benchFold "take-map" (takeMap 2) sourceUnfoldrM
584+ , benchFold "filter-drop" (filterDrop 2) sourceUnfoldrM
585+ , benchFold "filter-take" (filterTake 2) sourceUnfoldrM
586+ , benchFold "filter-scan" (filterScan 2) sourceUnfoldrM
587+ , benchFold "filter-map" (filterMap 2) sourceUnfoldrM
588+ ]
589+ , bgroup "mixedX4"
590+ [ benchFold "scan-map" (scanMap 4) sourceUnfoldrM
591+ , benchFold "drop-map" (dropMap 4) sourceUnfoldrM
592+ , benchFold "drop-scan" (dropScan 4) sourceUnfoldrM
593+ , benchFold "take-drop" (takeDrop 4) sourceUnfoldrM
594+ , benchFold "take-scan" (takeScan 4) sourceUnfoldrM
595+ , benchFold "take-map" (takeMap 4) sourceUnfoldrM
596+ , benchFold "filter-drop" (filterDrop 4) sourceUnfoldrM
597+ , benchFold "filter-take" (filterTake 4) sourceUnfoldrM
598+ , benchFold "filter-scan" (filterScan 4) sourceUnfoldrM
599+ , benchFold "filter-map" (filterMap 4) sourceUnfoldrM
600+ ]
601+ ]
602+ ]
603+
604+-- | Takes a source, and uses it with a default drain/fold method.
605+{-# INLINE benchD #-}
606+benchD :: P.String -> (Int -> Stream P.IO Int) -> Benchmark
607+benchD name f = bench name $ nfIO $ randomRIO (1,1) >>= toNull . f
608+
609+o_n_stack :: [Benchmark]
610+o_n_stack =
611+ [ bgroup (o_n_stack_prefix moduleName)
612+ [ bgroup "elimination"
613+ [ benchFold "tail" tail sourceUnfoldrM
614+ , benchFold "nullTail" nullTail sourceUnfoldrM
615+ , benchFold "headTail" headTail sourceUnfoldrM
616+ ]
617+ , bgroup "transformation"
618+ [
619+ -- this is horribly slow
620+ -- benchFold "foldrS" (_foldrS 1) sourceUnfoldrM
621+ -- XXX why do these need so much stack
622+ benchFold "intersperse" (intersperse 1) (sourceUnfoldrMN value2)
623+ , benchFold "interspersePure" (intersperse 1) (sourceUnfoldrN value2)
624+ ]
625+ , bgroup "transformationX4"
626+ [
627+ benchFold "intersperse" (intersperse 4) (sourceUnfoldrMN value16)
628+ ]
629+ , bgroup "iterated"
630+ [ benchD "mapM" iterateMapM
631+ , benchD "scan(1/10)" iterateScan
632+ , benchD "filterEven" iterateFilterEven
633+ , benchD "takeAll" iterateTakeAll
634+ , benchD "dropOne" iterateDropOne
635+ , benchD "dropWhileFalse(1/10)" iterateDropWhileFalse
636+ , benchD "dropWhileTrue" iterateDropWhileTrue
637+ , benchD "iterateM" iterateM
638+ ]
639+ ]
640+ ]
641+
642+o_n_space :: [Benchmark]
643+o_n_space =
644+ [ bgroup (o_n_space_prefix moduleName)
645+ [ bgroup "elimination"
646+ [ benchFold "toList" toList sourceUnfoldrM
647+ ]
648+ , bgroup "transformation"
649+ [
650+
651+ -- This is horribly slow, never finishes
652+ -- benchFold "foldlS" (_foldlS 1) sourceUnfoldrM
653+ ]
654+ ]
655+ ]
656+
657+main :: IO ()
658+main = defaultMain $ concat [o_1_space, o_n_stack, o_n_space]
benchmark/Streamly/Benchmark/Data/Stream/StreamK.hsnew file+934
@@ -0,0 +1,934 @@
1+-- |
2+-- Module : Streamly.Benchmark.Data.Stream.StreamK
3+-- Copyright : (c) 2018 Composewell Technologies
4+--
5+-- License : BSD3
6+-- Maintainer : streamly@composewell.com
7+
8+{-# LANGUAGE CPP #-}
9+{-# LANGUAGE FlexibleContexts #-}
10+{-# LANGUAGE ScopedTypeVariables #-}
11+{-# OPTIONS_GHC -Wno-orphans #-}
12+
13+#ifdef __HADDOCK_VERSION__
14+#undef INSPECTION
15+#endif
16+
17+#ifdef INSPECTION
18+{-# LANGUAGE TemplateHaskell #-}
19+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
20+#endif
21+
22+module Main (main) where
23+
24+#if !MIN_VERSION_base(4,18,0)
25+import Control.Applicative (liftA2)
26+#endif
27+import Control.Monad (when)
28+import Data.Maybe (isJust)
29+import System.Random (randomRIO)
30+import Prelude hiding
31+ ( Foldable(..), tail, mapM_, last, map, mapM, concatMap, zipWith, init, iterate
32+ , repeat, replicate
33+ )
34+
35+import qualified Prelude as P
36+import qualified Data.List as List
37+
38+import qualified Streamly.Internal.Data.StreamK as S
39+
40+import Test.Tasty.Bench (bench, nfIO, bgroup, Benchmark, defaultMain)
41+
42+import Streamly.Benchmark.Common
43+
44+#ifdef INSPECTION
45+import Test.Inspection
46+#endif
47+
48+{-
49+
50+Benchmarks that need to be added
51+
52+-- fromList
53+
54+-- bindWith
55+-- concatPairsWith
56+-- apWith
57+-- apSerial
58+-- apSerialDiscardFst
59+-- apSerialDiscardSnd
60+
61+-- the
62+-- serial
63+-- consMStream
64+-- withLocal
65+-- mfix
66+
67+-- elem
68+-- notElem
69+-- all
70+-- any
71+-- minimum
72+-- minimumBy
73+-- maximum
74+-- maximumBy
75+-- findIndices
76+-- lookup
77+-- findM
78+-- find
79+-- (!!)
80+
81+-- foldlM'
82+-- foldlT
83+-- foldlx'
84+-- foldlMx'
85+-- fold
86+
87+-- sequence
88+
89+-- foldrSM
90+-- buildS
91+-- buildM
92+-- augmentS
93+-- augmentSM
94+-- foldr
95+-- foldr1
96+-- foldrM
97+-- foldrT
98+
99+-- intersperseM
100+-- insertBy
101+-- deleteBy
102+-- reverse
103+-- mapMaybe
104+
105+-- zipWithM
106+-- mergeBy
107+-- mergeByM
108+
109+-- toStreamK (Probably can be skipped)
110+-- hoist
111+
112+-- scanlx'
113+
114+-}
115+
116+-------------------------------------------------------------------------------
117+-- Stream generation and elimination
118+-------------------------------------------------------------------------------
119+
120+type Stream m a = S.StreamK m a
121+
122+{-# INLINE unfoldr #-}
123+unfoldr :: Int -> Int -> Stream m Int
124+unfoldr streamLen n = S.unfoldr step n
125+ where
126+ step cnt =
127+ if cnt > n + streamLen
128+ then Nothing
129+ else Just (cnt, cnt + 1)
130+
131+{-# INLINE unfoldrM #-}
132+unfoldrM :: Monad m => Int -> Int -> Stream m Int
133+unfoldrM streamLen n = S.unfoldrMWith S.consM step n
134+ where
135+ step cnt =
136+ if cnt > n + streamLen
137+ then return Nothing
138+ else return (Just (cnt, cnt + 1))
139+
140+{-# INLINE repeat #-}
141+repeat :: Int -> Int -> Stream m Int
142+repeat streamLen = S.take streamLen . S.repeat
143+
144+{-# INLINE repeatM #-}
145+repeatM :: Monad m => Int -> Int -> Stream m Int
146+repeatM streamLen = S.take streamLen . S.repeatM . return
147+
148+{-# INLINE replicate #-}
149+replicate :: Int -> Int -> Stream m Int
150+replicate = S.replicate
151+
152+{-# INLINE replicateM #-}
153+replicateM :: Monad m => Int -> Int -> Stream m Int
154+replicateM streamLen = S.replicateMWith S.consM streamLen . return
155+
156+{-# INLINE iterate #-}
157+iterate :: Int -> Int -> Stream m Int
158+iterate streamLen = S.take streamLen . S.iterate (+1)
159+
160+{-# INLINE iterateM #-}
161+iterateM :: Monad m => Int -> Int -> Stream m Int
162+iterateM streamLen = S.take streamLen . S.iterateM (return . (+1)) . return
163+
164+{-# INLINE fromFoldable #-}
165+fromFoldable :: Int -> Int -> Stream m Int
166+fromFoldable streamLen n = S.fromFoldable [n..n+streamLen]
167+
168+{-# INLINE fromFoldableM #-}
169+fromFoldableM :: Monad m => Int -> Int -> Stream m Int
170+fromFoldableM streamLen n =
171+ List.foldr S.consM S.nil (Prelude.fmap return [n..n+streamLen])
172+
173+{-# INLINABLE concatMapFoldableWith #-}
174+concatMapFoldableWith :: P.Foldable f
175+ => (Stream m b -> Stream m b -> Stream m b)
176+ -> (a -> Stream m b)
177+ -> f a
178+ -> Stream m b
179+concatMapFoldableWith f g = P.foldr (f . g) S.nil
180+
181+{-# INLINE concatMapFoldableSerial #-}
182+concatMapFoldableSerial :: Int -> Int -> Stream m Int
183+concatMapFoldableSerial streamLen n =
184+ concatMapFoldableWith S.append S.fromPure [n..n+streamLen]
185+
186+{-# INLINE concatMapFoldableSerialM #-}
187+concatMapFoldableSerialM :: Monad m => Int -> Int -> Stream m Int
188+concatMapFoldableSerialM streamLen n =
189+ concatMapFoldableWith S.append (S.fromEffect . return) [n..n+streamLen]
190+
191+-------------------------------------------------------------------------------
192+-- Elimination
193+-------------------------------------------------------------------------------
194+
195+{-# INLINE drain #-}
196+drain :: Monad m => Stream m a -> m ()
197+drain = S.drain
198+
199+{-# INLINE mapM_ #-}
200+mapM_ :: Monad m => Stream m a -> m ()
201+mapM_ = S.mapM_ (\_ -> return ())
202+
203+{-# INLINE uncons #-}
204+uncons :: Monad m => Stream m Int -> m ()
205+uncons s = do
206+ r <- S.uncons s
207+ case r of
208+ Nothing -> return ()
209+ Just (_, t) -> uncons t
210+
211+{-# INLINE init #-}
212+init :: Monad m => Stream m a -> m ()
213+init s = do
214+ t <- S.init s
215+ P.mapM_ S.drain t
216+
217+{-# INLINE tail #-}
218+tail :: Monad m => Stream m a -> m ()
219+tail s = S.tail s >>= P.mapM_ tail
220+
221+{-# INLINE nullTail #-}
222+nullTail :: Monad m => Stream m Int -> m ()
223+nullTail s = do
224+ r <- S.null s
225+ when (not r) $ S.tail s >>= P.mapM_ nullTail
226+
227+{-# INLINE headTail #-}
228+headTail :: Monad m => Stream m Int -> m ()
229+headTail s = do
230+ h <- S.head s
231+ when (isJust h) $ S.tail s >>= P.mapM_ headTail
232+
233+{-# INLINE toList #-}
234+toList :: Monad m => Stream m Int -> m [Int]
235+toList = S.toList
236+
237+{-# INLINE foldl' #-}
238+foldl' :: Monad m => Stream m Int -> m Int
239+foldl' = S.foldl' (+) 0
240+
241+{-# INLINE last #-}
242+last :: Monad m => Stream m Int -> m (Maybe Int)
243+last = S.last
244+
245+-------------------------------------------------------------------------------
246+-- Transformation
247+-------------------------------------------------------------------------------
248+
249+{-# INLINE composeN #-}
250+composeN
251+ :: Monad m
252+ => Int -> (Stream m Int -> Stream m Int) -> Stream m Int -> m ()
253+composeN n f =
254+ case n of
255+ 1 -> drain . f
256+ 2 -> drain . f . f
257+ 3 -> drain . f . f . f
258+ 4 -> drain . f . f . f . f
259+ _ -> undefined
260+
261+{-# INLINE scanl' #-}
262+scanl' :: Monad m => Int -> Stream m Int -> m ()
263+scanl' n = composeN n $ S.scanl' (+) 0
264+
265+{-# INLINE map #-}
266+map :: Monad m => Int -> Stream m Int -> m ()
267+map n = composeN n $ S.map (+ 1)
268+
269+{-# INLINE fmapK #-}
270+fmapK :: Monad m => Int -> Stream m Int -> m ()
271+fmapK n = composeN n $ P.fmap (+ 1)
272+
273+{-# INLINE mapM #-}
274+mapM :: Monad m => Int -> Stream m Int -> m ()
275+mapM n = composeN n $ S.mapMWith S.consM return
276+
277+{-# INLINE mapMSerial #-}
278+mapMSerial :: Monad m => Int -> Stream m Int -> m ()
279+mapMSerial n = composeN n $ S.mapMSerial return
280+
281+{-# INLINE filterEven #-}
282+filterEven :: Monad m => Int -> Stream m Int -> m ()
283+filterEven n = composeN n $ S.filter even
284+
285+{-# INLINE filterAllOut #-}
286+filterAllOut :: Monad m => Int -> Int -> Stream m Int -> m ()
287+filterAllOut streamLen n = composeN n $ S.filter (> streamLen)
288+
289+{-# INLINE filterAllIn #-}
290+filterAllIn :: Monad m => Int -> Int -> Stream m Int -> m ()
291+filterAllIn streamLen n = composeN n $ S.filter (<= streamLen)
292+
293+{-# INLINE _takeOne #-}
294+_takeOne :: Monad m => Int -> Stream m Int -> m ()
295+_takeOne n = composeN n $ S.take 1
296+
297+{-# INLINE takeAll #-}
298+takeAll :: Monad m => Int -> Int -> Stream m Int -> m ()
299+takeAll streamLen n = composeN n $ S.take streamLen
300+
301+{-# INLINE takeWhileTrue #-}
302+takeWhileTrue :: Monad m => Int -> Int -> Stream m Int -> m ()
303+takeWhileTrue streamLen n = composeN n $ S.takeWhile (<= streamLen)
304+
305+{-# INLINE dropOne #-}
306+dropOne :: Monad m => Int -> Stream m Int -> m ()
307+dropOne n = composeN n $ S.drop 1
308+
309+{-# INLINE dropAll #-}
310+dropAll :: Monad m => Int -> Int -> Stream m Int -> m ()
311+dropAll streamLen n = composeN n $ S.drop streamLen
312+
313+{-# INLINE dropWhileTrue #-}
314+dropWhileTrue :: Monad m => Int -> Int -> Stream m Int -> m ()
315+dropWhileTrue streamLen n = composeN n $ S.dropWhile (<= streamLen)
316+
317+{-# INLINE dropWhileFalse #-}
318+dropWhileFalse :: Monad m => Int -> Stream m Int -> m ()
319+dropWhileFalse n = composeN n $ S.dropWhile (<= 1)
320+
321+{-# INLINE foldrS #-}
322+foldrS :: Monad m => Int -> Stream m Int -> m ()
323+foldrS n = composeN n $ S.foldrS S.cons S.nil
324+
325+{-# INLINE foldlS #-}
326+foldlS :: Monad m => Int -> Stream m Int -> m ()
327+foldlS n = composeN n $ S.foldlS (flip S.cons) S.nil
328+
329+{-# INLINE intersperse #-}
330+intersperse :: Monad m => Int -> Int -> Stream m Int -> m ()
331+intersperse streamLen n = composeN n $ S.intersperse streamLen
332+
333+-------------------------------------------------------------------------------
334+-- Iteration
335+-------------------------------------------------------------------------------
336+
337+{-# INLINE iterateSource #-}
338+iterateSource
339+ :: Monad m => Int -> (Stream m Int -> Stream m Int) -> Int -> Int -> Stream m Int
340+iterateSource iterStreamLen g i n = f i (unfoldrM iterStreamLen n)
341+ where
342+ f (0 :: Int) m = g m
343+ f x m = g (f (x P.- 1) m)
344+
345+-- this is quadratic
346+{-# INLINE iterateScan #-}
347+iterateScan :: Monad m => Int -> Int -> Int -> Stream m Int
348+iterateScan iterStreamLen maxIters =
349+ iterateSource iterStreamLen (S.scanl' (+) 0) (maxIters `div` 10)
350+
351+-- this is quadratic
352+{-# INLINE iterateDropWhileFalse #-}
353+iterateDropWhileFalse :: Monad m => Int -> Int -> Int -> Int -> Stream m Int
354+iterateDropWhileFalse streamLen iterStreamLen maxIters =
355+ iterateSource iterStreamLen (S.dropWhile (> streamLen)) (maxIters `div` 10)
356+
357+{-# INLINE iterateMapM #-}
358+iterateMapM :: Monad m => Int -> Int -> Int -> Stream m Int
359+iterateMapM iterStreamLen =
360+ iterateSource iterStreamLen (S.mapMWith S.consM return)
361+
362+{-# INLINE iterateFilterEven #-}
363+iterateFilterEven :: Monad m => Int -> Int -> Int -> Stream m Int
364+iterateFilterEven iterStreamLen = iterateSource iterStreamLen (S.filter even)
365+
366+{-# INLINE iterateTakeAll #-}
367+iterateTakeAll :: Monad m => Int -> Int -> Int -> Int -> Stream m Int
368+iterateTakeAll streamLen iterStreamLen =
369+ iterateSource iterStreamLen (S.take streamLen)
370+
371+{-# INLINE iterateDropOne #-}
372+iterateDropOne :: Monad m => Int -> Int -> Int -> Stream m Int
373+iterateDropOne iterStreamLen = iterateSource iterStreamLen (S.drop 1)
374+
375+{-# INLINE iterateDropWhileTrue #-}
376+iterateDropWhileTrue ::
377+ Monad m => Int -> Int -> Int -> Int -> Stream m Int
378+iterateDropWhileTrue streamLen iterStreamLen =
379+ iterateSource iterStreamLen (S.dropWhile (<= streamLen))
380+
381+-------------------------------------------------------------------------------
382+-- Zipping
383+-------------------------------------------------------------------------------
384+
385+{-# INLINE zipWith #-}
386+zipWith :: Monad m => Stream m Int -> m ()
387+zipWith src = drain $ S.zipWith (,) src src
388+
389+{-# INLINE zipWithM #-}
390+zipWithM :: Monad m => Stream m Int -> m ()
391+zipWithM src = drain $ S.zipWithM (curry return) src src
392+
393+{-# INLINE sortByK #-}
394+sortByK :: (a -> a -> Ordering) -> Stream m a -> Stream m a
395+sortByK f = S.mergeMapWith (S.mergeBy f) S.fromPure
396+
397+{-# INLINE sortBy #-}
398+sortBy :: Monad m => Stream m Int -> m ()
399+sortBy = drain . sortByK compare
400+
401+-------------------------------------------------------------------------------
402+-- Mixed Composition
403+-------------------------------------------------------------------------------
404+
405+{-# INLINE scanMap #-}
406+scanMap :: Monad m => Int -> Stream m Int -> m ()
407+scanMap n = composeN n $ S.map (subtract 1) . S.scanl' (+) 0
408+
409+{-# INLINE dropMap #-}
410+dropMap :: Monad m => Int -> Stream m Int -> m ()
411+dropMap n = composeN n $ S.map (subtract 1) . S.drop 1
412+
413+{-# INLINE dropScan #-}
414+dropScan :: Monad m => Int -> Stream m Int -> m ()
415+dropScan n = composeN n $ S.scanl' (+) 0 . S.drop 1
416+
417+{-# INLINE takeDrop #-}
418+takeDrop :: Monad m => Int -> Int -> Stream m Int -> m ()
419+takeDrop streamLen n = composeN n $ S.drop 1 . S.take streamLen
420+
421+{-# INLINE takeScan #-}
422+takeScan :: Monad m => Int -> Int -> Stream m Int -> m ()
423+takeScan streamLen n = composeN n $ S.scanl' (+) 0 . S.take streamLen
424+
425+{-# INLINE takeMap #-}
426+takeMap :: Monad m => Int -> Int -> Stream m Int -> m ()
427+takeMap streamLen n = composeN n $ S.map (subtract 1) . S.take streamLen
428+
429+{-# INLINE filterDrop #-}
430+filterDrop :: Monad m => Int -> Int -> Stream m Int -> m ()
431+filterDrop streamLen n = composeN n $ S.drop 1 . S.filter (<= streamLen)
432+
433+{-# INLINE filterTake #-}
434+filterTake :: Monad m => Int -> Int -> Stream m Int -> m ()
435+filterTake streamLen n = composeN n $ S.take streamLen . S.filter (<= streamLen)
436+
437+{-# INLINE filterScan #-}
438+filterScan :: Monad m => Int -> Stream m Int -> m ()
439+filterScan n = composeN n $ S.scanl' (+) 0 . S.filter (<= maxBound)
440+
441+{-# INLINE filterMap #-}
442+filterMap :: Monad m => Int -> Int -> Stream m Int -> m ()
443+filterMap streamLen n = composeN n $ S.map (subtract 1) . S.filter (<= streamLen)
444+
445+-------------------------------------------------------------------------------
446+-- ConcatMap
447+-------------------------------------------------------------------------------
448+
449+-- concatMap unfoldrM/unfoldrM
450+
451+{-# INLINE concatMap #-}
452+concatMap :: Int -> Int -> Int -> IO ()
453+concatMap outer inner n =
454+ S.drain $ S.concatMap
455+ (\_ -> unfoldrM inner n)
456+ (unfoldrM outer n)
457+
458+#ifdef INSPECTION
459+inspect $ hasNoTypeClasses 'concatMap
460+#endif
461+
462+-- concatMap unfoldr/unfoldr
463+
464+{-# INLINE concatMapPure #-}
465+concatMapPure :: Int -> Int -> Int -> IO ()
466+concatMapPure outer inner n =
467+ S.drain $ S.concatMap
468+ (\_ -> unfoldr inner n)
469+ (unfoldr outer n)
470+
471+#ifdef INSPECTION
472+inspect $ hasNoTypeClasses 'concatMapPure
473+#endif
474+
475+-- concatMap replicate/unfoldrM
476+
477+{-# INLINE concatMapRepl #-}
478+concatMapRepl :: Int -> Int -> Int -> IO ()
479+concatMapRepl outer inner n =
480+ S.drain $ S.concatMap (S.replicate inner) (unfoldrM outer n)
481+
482+#ifdef INSPECTION
483+inspect $ hasNoTypeClasses 'concatMapRepl
484+#endif
485+
486+-- concatMapWith
487+
488+{-# INLINE sourceConcatMapId #-}
489+sourceConcatMapId :: Monad m
490+ => Int -> Int -> Stream m (Stream m Int)
491+sourceConcatMapId val n =
492+ S.fromFoldable $ fmap (S.fromEffect . return) [n..n+val]
493+
494+{-# INLINE concatMapBySerial #-}
495+concatMapBySerial :: Int -> Int -> Int -> IO ()
496+concatMapBySerial outer inner n =
497+ S.drain $ S.concatMapWith S.append
498+ (unfoldrM inner)
499+ (unfoldrM outer n)
500+
501+-------------------------------------------------------------------------------
502+-- Nested Composition
503+-------------------------------------------------------------------------------
504+
505+instance Monad m => Applicative (S.StreamK m) where
506+ {-# INLINE pure #-}
507+ pure = S.fromPure
508+
509+ {-# INLINE (<*>) #-}
510+ (<*>) = S.crossApply
511+
512+ {-# INLINE liftA2 #-}
513+ liftA2 f x = (<*>) (fmap f x)
514+
515+ {-# INLINE (*>) #-}
516+ (*>) = S.crossApplySnd
517+
518+ {-# INLINE (<*) #-}
519+ (<*) = S.crossApplyFst
520+
521+-- NOTE: even though concatMap for StreamD is 3x faster compared to StreamK,
522+-- the monad instance of StreamD is slower than StreamK after foldr/build
523+-- fusion.
524+instance Monad m => Monad (S.StreamK m) where
525+ {-# INLINE return #-}
526+ return = pure
527+
528+ {-# INLINE (>>=) #-}
529+ (>>=) = flip S.concatMap
530+
531+{-# INLINE drainApplicative #-}
532+drainApplicative :: Monad m => Stream m Int -> m ()
533+drainApplicative s = drain $ do
534+ (+) <$> s <*> s
535+
536+{-# INLINE drainMonad #-}
537+drainMonad :: Monad m => Stream m Int -> m ()
538+drainMonad s = drain $ do
539+ x <- s
540+ y <- s
541+ return $ x + y
542+
543+{-# INLINE drainMonad3 #-}
544+drainMonad3 :: Monad m => Stream m Int -> m ()
545+drainMonad3 s = drain $ do
546+ x <- s
547+ y <- s
548+ z <- s
549+ return $ x + y + z
550+
551+{-# INLINE filterAllOutMonad #-}
552+filterAllOutMonad
553+ :: Monad m
554+ => Stream m Int -> m ()
555+filterAllOutMonad str = drain $ do
556+ x <- str
557+ y <- str
558+ let s = x + y
559+ if s < 0
560+ then return s
561+ else S.nil
562+
563+{-# INLINE filterAllInMonad #-}
564+filterAllInMonad
565+ :: Monad m
566+ => Stream m Int -> m ()
567+filterAllInMonad str = drain $ do
568+ x <- str
569+ y <- str
570+ let s = x + y
571+ if s > 0
572+ then return s
573+ else S.nil
574+
575+-------------------------------------------------------------------------------
576+-- Nested Composition Pure lists
577+-------------------------------------------------------------------------------
578+
579+-- There are several list benchmarks here for comparison with lists. It is easy
580+-- and convenient to see the comparisons when they are here, otherwise we'll
581+-- have to add a separate module for list benchmarks with the same names and
582+-- then add a comparison in bench.sh.
583+
584+{-# INLINE unfoldrList #-}
585+unfoldrList :: Int -> Int -> [Int]
586+unfoldrList maxval n = List.unfoldr step n
587+ where
588+ step cnt =
589+ if cnt > n + maxval
590+ then Nothing
591+ else Just (cnt, cnt + 1)
592+
593+{-# INLINE toNullApNestedList #-}
594+toNullApNestedList :: [Int] -> [Int]
595+toNullApNestedList s = (+) <$> s <*> s
596+
597+{-# INLINE toNullNestedList #-}
598+toNullNestedList :: [Int] -> [Int]
599+toNullNestedList s = do
600+ x <- s
601+ y <- s
602+ return $ x + y
603+
604+{-# INLINE toNullNestedList3 #-}
605+toNullNestedList3 :: [Int] -> [Int]
606+toNullNestedList3 s = do
607+ x <- s
608+ y <- s
609+ z <- s
610+ return $ x + y + z
611+
612+{-# INLINE filterAllOutNestedList #-}
613+filterAllOutNestedList :: [Int] -> [Int]
614+filterAllOutNestedList str = do
615+ x <- str
616+ y <- str
617+ let s = x + y
618+ if s < 0
619+ then return s
620+ else []
621+
622+{-# INLINE filterAllInNestedList #-}
623+filterAllInNestedList :: [Int] -> [Int]
624+filterAllInNestedList str = do
625+ x <- str
626+ y <- str
627+ let s = x + y
628+ if s > 0
629+ then return s
630+ else []
631+
632+-------------------------------------------------------------------------------
633+-- Benchmarks
634+-------------------------------------------------------------------------------
635+
636+moduleName :: String
637+moduleName = "Data.StreamK"
638+
639+o_1_space_generation :: Int -> Benchmark
640+o_1_space_generation streamLen =
641+ bgroup "generation"
642+ [ benchFold "unfoldr" drain (unfoldr streamLen)
643+ , benchFold "unfoldrM" drain (unfoldrM streamLen)
644+ , benchFold "repeat" drain (repeat streamLen)
645+ , benchFold "repeatM" drain (repeatM streamLen)
646+ , benchFold "replicate" drain (replicate streamLen)
647+ , benchFold "replicateM" drain (replicateM streamLen)
648+ , benchFold "iterate" drain (iterate streamLen)
649+ , benchFold "iterateM" drain (iterateM streamLen)
650+
651+ , benchFold "fromFoldable" drain (fromFoldable streamLen)
652+ , benchFold "fromFoldableM" drain (fromFoldableM streamLen)
653+
654+ -- appends
655+ , benchFold "concatMapFoldableWith" drain (concatMapFoldableSerial streamLen)
656+ , benchFold "concatMapFoldableWithM" drain (concatMapFoldableSerialM streamLen)
657+ ]
658+
659+o_1_space_elimination :: Int -> Benchmark
660+o_1_space_elimination streamLen =
661+ bgroup "elimination"
662+ [ benchFold "toNull" drain (unfoldrM streamLen)
663+ , benchFold "mapM_" mapM_ (unfoldrM streamLen)
664+ , benchFold "uncons" uncons (unfoldrM streamLen)
665+ , benchFold "init" init (unfoldrM streamLen)
666+ , benchFold "foldl'" foldl' (unfoldrM streamLen)
667+ , benchFold "last" last (unfoldrM streamLen)
668+ ]
669+
670+o_1_space_nested :: Int -> Benchmark
671+o_1_space_nested streamLen =
672+ bgroup "nested"
673+ [ benchFold "drainApplicative" drainApplicative (unfoldrM streamLen2)
674+ , benchFold "drainMonad" drainMonad (unfoldrM streamLen2)
675+ , benchFold "drainMonad3" drainMonad3 (unfoldrM streamLen3)
676+ , benchFold "filterAllInMonad" filterAllInMonad (unfoldrM streamLen2)
677+ , benchFold "filterAllOutMonad" filterAllOutMonad (unfoldrM streamLen2)
678+ , benchFold "drainApplicative (pure)" drainApplicative (unfoldr streamLen2)
679+ , benchFold "drainMonad (pure)" drainMonad (unfoldr streamLen2)
680+ , benchFold "drainMonad3 (pure)" drainMonad3 (unfoldr streamLen3)
681+ , benchFold "filterAllInMonad (pure)" filterAllInMonad (unfoldr streamLen2)
682+ , benchFold "filterAllOutMonad (pure)" filterAllOutMonad (unfoldr streamLen2)
683+ ]
684+ where
685+ streamLen2 = round (P.fromIntegral streamLen**(1/2::P.Double)) -- double nested loop
686+ streamLen3 = round (P.fromIntegral streamLen**(1/3::P.Double)) -- triple nested loop
687+
688+o_1_space_transformation :: Int -> Benchmark
689+o_1_space_transformation streamLen =
690+ bgroup "transformation"
691+ [ benchFold "foldrS" (foldrS 1) (unfoldrM streamLen)
692+ , benchFold "scanl'" (scanl' 1) (unfoldrM streamLen)
693+ , benchFold "map" (map 1) (unfoldrM streamLen)
694+ , benchFold "fmap" (fmapK 1) (unfoldrM streamLen)
695+ , benchFold "mapM" (mapM 1) (unfoldrM streamLen)
696+ , benchFold "mapMSerial" (mapMSerial 1) (unfoldrM streamLen)
697+ ]
698+
699+o_1_space_transformationX4 :: Int -> Benchmark
700+o_1_space_transformationX4 streamLen =
701+ bgroup "transformationX4"
702+ [ benchFold "scanl'" (scanl' 4) (unfoldrM streamLen)
703+ , benchFold "map" (map 4) (unfoldrM streamLen)
704+ , benchFold "fmap" (fmapK 4) (unfoldrM streamLen)
705+ , benchFold "mapM" (mapM 4) (unfoldrM streamLen)
706+ , benchFold "mapMSerial" (mapMSerial 4) (unfoldrM streamLen)
707+ -- XXX this is horribly slow
708+ -- , benchFold "concatMap" (concatMap 4) (unfoldrM streamLen16)
709+ ]
710+
711+o_1_space_concat :: Int -> Benchmark
712+o_1_space_concat streamLen =
713+ bgroup "concat"
714+ [ benchIOSrc1 "concatMapPure (n of 1)"
715+ (concatMapPure streamLen 1)
716+ , benchIOSrc1 "concatMapPure (sqrt n of sqrt n)"
717+ (concatMapPure streamLen2 streamLen2)
718+ , benchIOSrc1 "concatMapPure (1 of n)"
719+ (concatMapPure 1 streamLen)
720+
721+ , benchIOSrc1 "concatMap (n of 1)"
722+ (concatMap streamLen 1)
723+ , benchIOSrc1 "concatMap (sqrt n of sqrt n)"
724+ (concatMap streamLen2 streamLen2)
725+ , benchIOSrc1 "concatMap (1 of n)"
726+ (concatMap 1 streamLen)
727+
728+ , benchIOSrc1 "concatMapRepl (sqrt n of sqrt n)"
729+ (concatMapRepl streamLen2 streamLen2)
730+
731+ -- This is for comparison with concatMapFoldableWith
732+ , benchIOSrc1 "concatMapWithId (n of 1) (fromFoldable)"
733+ (S.drain
734+ . S.concatMapWith S.append id
735+ . sourceConcatMapId streamLen)
736+
737+ , benchIOSrc1 "concatMapBy serial (n of 1)"
738+ (concatMapBySerial streamLen 1)
739+ , benchIOSrc1 "concatMapBy serial (sqrt n of sqrt n)"
740+ (concatMapBySerial streamLen2 streamLen2)
741+ , benchIOSrc1 "concatMapBy serial (1 of n)"
742+ (concatMapBySerial 1 streamLen)
743+ , benchFold "sortBy" sortBy (unfoldrM streamLen)
744+ ]
745+ where
746+ streamLen2 = round (P.fromIntegral streamLen**(1/2::P.Double)) -- double nested loop
747+
748+o_1_space_filtering :: Int -> Benchmark
749+o_1_space_filtering streamLen =
750+ bgroup "filtering"
751+ [ benchFold "filter-even" (filterEven 1) (unfoldrM streamLen)
752+ , benchFold "filter-all-out" (filterAllOut streamLen 1) (unfoldrM streamLen)
753+ , benchFold "filter-all-in" (filterAllIn streamLen 1) (unfoldrM streamLen)
754+ , benchFold "take-all" (takeAll streamLen 1) (unfoldrM streamLen)
755+ , benchFold "takeWhile-true" (takeWhileTrue streamLen 1) (unfoldrM streamLen)
756+ , benchFold "drop-one" (dropOne 1) (unfoldrM streamLen)
757+ , benchFold "drop-all" (dropAll streamLen 1) (unfoldrM streamLen)
758+ , benchFold "dropWhile-true" (dropWhileTrue streamLen 1) (unfoldrM streamLen)
759+ , benchFold "dropWhile-false" (dropWhileFalse 1) (unfoldrM streamLen)
760+ ]
761+
762+o_1_space_filteringX4 :: Int -> Benchmark
763+o_1_space_filteringX4 streamLen =
764+ bgroup "filteringX4"
765+ [ benchFold "filter-even" (filterEven 4) (unfoldrM streamLen)
766+ , benchFold "filter-all-out" (filterAllOut streamLen 4) (unfoldrM streamLen)
767+ , benchFold "filter-all-in" (filterAllIn streamLen 4) (unfoldrM streamLen)
768+ , benchFold "take-all" (takeAll streamLen 4) (unfoldrM streamLen)
769+ , benchFold "takeWhile-true" (takeWhileTrue streamLen 4) (unfoldrM streamLen)
770+ , benchFold "drop-one" (dropOne 4) (unfoldrM streamLen)
771+ , benchFold "drop-all" (dropAll streamLen 4) (unfoldrM streamLen)
772+ , benchFold "dropWhile-true" (dropWhileTrue streamLen 4) (unfoldrM streamLen)
773+ , benchFold "dropWhile-false" (dropWhileFalse 4) (unfoldrM streamLen)
774+ ]
775+
776+o_1_space_zipping :: Int -> Benchmark
777+o_1_space_zipping streamLen =
778+ bgroup "zipping"
779+ [ benchFold "zipWith" zipWith (unfoldrM streamLen)
780+ , benchFold "zipWithM" zipWithM (unfoldrM streamLen)
781+ ]
782+
783+o_1_space_mixed :: Int -> Benchmark
784+o_1_space_mixed streamLen =
785+ bgroup "mixed"
786+ [ benchFold "scan-map" (scanMap 1) (unfoldrM streamLen)
787+ , benchFold "drop-map" (dropMap 1) (unfoldrM streamLen)
788+ , benchFold "drop-scan" (dropScan 1) (unfoldrM streamLen)
789+ , benchFold "take-drop" (takeDrop streamLen 1) (unfoldrM streamLen)
790+ , benchFold "take-scan" (takeScan streamLen 1) (unfoldrM streamLen)
791+ , benchFold "take-map" (takeMap streamLen 1) (unfoldrM streamLen)
792+ , benchFold "filter-drop" (filterDrop streamLen 1) (unfoldrM streamLen)
793+ , benchFold "filter-take" (filterTake streamLen 1) (unfoldrM streamLen)
794+ , benchFold "filter-scan" (filterScan 1) (unfoldrM streamLen)
795+ , benchFold "filter-map" (filterMap streamLen 1) (unfoldrM streamLen)
796+ ]
797+
798+o_1_space_mixedX2 :: Int -> Benchmark
799+o_1_space_mixedX2 streamLen =
800+ bgroup "mixedX2"
801+ [ benchFold "scan-map" (scanMap 2) (unfoldrM streamLen)
802+ , benchFold "drop-map" (dropMap 2) (unfoldrM streamLen)
803+ , benchFold "drop-scan" (dropScan 2) (unfoldrM streamLen)
804+ , benchFold "take-drop" (takeDrop streamLen 2) (unfoldrM streamLen)
805+ , benchFold "take-scan" (takeScan streamLen 2) (unfoldrM streamLen)
806+ , benchFold "take-map" (takeMap streamLen 2) (unfoldrM streamLen)
807+ , benchFold "filter-drop" (filterDrop streamLen 2) (unfoldrM streamLen)
808+ , benchFold "filter-take" (filterTake streamLen 2) (unfoldrM streamLen)
809+ , benchFold "filter-scan" (filterScan 2) (unfoldrM streamLen)
810+ , benchFold "filter-map" (filterMap streamLen 2) (unfoldrM streamLen)
811+ ]
812+
813+o_1_space_mixedX4 :: Int -> Benchmark
814+o_1_space_mixedX4 streamLen =
815+ bgroup "mixedX4"
816+ [ benchFold "scan-map" (scanMap 4) (unfoldrM streamLen)
817+ , benchFold "drop-map" (dropMap 4) (unfoldrM streamLen)
818+ , benchFold "drop-scan" (dropScan 4) (unfoldrM streamLen)
819+ , benchFold "take-drop" (takeDrop streamLen 4) (unfoldrM streamLen)
820+ , benchFold "take-scan" (takeScan streamLen 4) (unfoldrM streamLen)
821+ , benchFold "take-map" (takeMap streamLen 4) (unfoldrM streamLen)
822+ , benchFold "filter-drop" (filterDrop streamLen 4) (unfoldrM streamLen)
823+ , benchFold "filter-take" (filterTake streamLen 4) (unfoldrM streamLen)
824+ , benchFold "filter-scan" (filterScan 4) (unfoldrM streamLen)
825+ , benchFold "filter-map" (filterMap streamLen 4) (unfoldrM streamLen)
826+ ]
827+
828+o_1_space_list :: Int -> Benchmark
829+o_1_space_list streamLen =
830+ bgroup "list"
831+ [ bgroup "elimination"
832+ [ benchList "last" (\xs -> [List.last xs]) (unfoldrList streamLen)
833+ ]
834+ , bgroup "nested"
835+ [ benchList "toNullAp" toNullApNestedList (unfoldrList streamLen2)
836+ , benchList "toNull" toNullNestedList (unfoldrList streamLen2)
837+ , benchList "toNull3" toNullNestedList3 (unfoldrList streamLen3)
838+ , benchList "filterAllIn" filterAllInNestedList (unfoldrList streamLen2)
839+ , benchList "filterAllOut" filterAllOutNestedList (unfoldrList streamLen2)
840+ ]
841+ ]
842+ where
843+
844+ streamLen2 = round (P.fromIntegral streamLen**(1/2::P.Double)) -- double nested loop
845+ streamLen3 = round (P.fromIntegral streamLen**(1/3::P.Double)) -- triple nested loop
846+
847+o_1_space :: Int -> Benchmark
848+o_1_space streamLen =
849+ bgroup (o_1_space_prefix moduleName)
850+ [ o_1_space_generation streamLen
851+ , o_1_space_elimination streamLen
852+ , o_1_space_nested streamLen
853+ , o_1_space_transformation streamLen
854+ , o_1_space_transformationX4 streamLen
855+ , o_1_space_concat streamLen
856+ , o_1_space_filtering streamLen
857+ , o_1_space_filteringX4 streamLen
858+ , o_1_space_zipping streamLen
859+ , o_1_space_mixed streamLen
860+ , o_1_space_mixedX2 streamLen
861+ , o_1_space_mixedX4 streamLen
862+ , o_1_space_list streamLen
863+ ]
864+
865+o_n_heap :: Int -> Benchmark
866+o_n_heap streamLen =
867+ bgroup (o_n_heap_prefix moduleName)
868+ [ bgroup "transformation"
869+ [ benchFold "foldlS" (foldlS 1) (unfoldrM streamLen)
870+ ]
871+ ]
872+
873+{-# INLINE benchK #-}
874+benchK :: P.String -> (Int -> Stream P.IO Int) -> Benchmark
875+benchK name f = bench name $ nfIO $ randomRIO (1,1) >>= drain . f
876+
877+o_n_stack :: Int -> Int -> Int -> Benchmark
878+o_n_stack streamLen iterStreamLen maxIters =
879+ bgroup (o_n_stack_prefix moduleName)
880+ [ bgroup "elimination"
881+ [ benchFold "tail" tail (unfoldrM streamLen)
882+ , benchFold "nullTail" nullTail (unfoldrM streamLen)
883+ , benchFold "headTail" headTail (unfoldrM streamLen)
884+ ]
885+ , bgroup "transformation"
886+ [
887+ -- XXX why do these need so much stack
888+ benchFold "intersperse" (intersperse streamLen 1) (unfoldrM streamLen2)
889+ , benchFold "interspersePure" (intersperse streamLen 1) (unfoldr streamLen2)
890+ ]
891+ , bgroup "transformationX4"
892+ [
893+ benchFold "intersperse" (intersperse streamLen 4) (unfoldrM streamLen16)
894+ ]
895+ , bgroup "iterated"
896+ [ benchK "mapM" (iterateMapM iterStreamLen maxIters)
897+ , benchK "scan(1/10)" (iterateScan iterStreamLen maxIters)
898+ , benchK "filterEven" (iterateFilterEven iterStreamLen maxIters)
899+ , benchK "takeAll" (iterateTakeAll streamLen iterStreamLen maxIters)
900+ , benchK "dropOne" (iterateDropOne iterStreamLen maxIters)
901+ , benchK "dropWhileFalse(1/10)" (iterateDropWhileFalse streamLen iterStreamLen maxIters)
902+ , benchK "dropWhileTrue" (iterateDropWhileTrue streamLen iterStreamLen maxIters)
903+ ]
904+ ]
905+ where
906+ streamLen2 = round (P.fromIntegral streamLen**(1/2::P.Double)) -- double nested loop
907+ streamLen16 = round (P.fromIntegral streamLen**(1/16::P.Double)) -- triple nested loop
908+
909+o_n_space :: Int -> Benchmark
910+o_n_space streamLen =
911+ bgroup (o_n_space_prefix moduleName)
912+ [ bgroup "elimination"
913+ [ benchFold "toList" toList (unfoldrM streamLen)
914+ ]
915+ ]
916+
917+{-# INLINE benchList #-}
918+benchList :: P.String -> ([Int] -> [Int]) -> (Int -> [Int]) -> Benchmark
919+benchList name run f = bench name $ nfIO $ randomRIO (1,1) >>= return . run . f
920+
921+main :: IO ()
922+main =
923+ defaultMain
924+ [ o_1_space streamLen
925+ , o_n_stack streamLen iterStreamLen maxIters
926+ , o_n_heap streamLen
927+ , o_n_space streamLen
928+ ]
929+
930+ where
931+
932+ streamLen = 100000
933+ maxIters = 10000
934+ iterStreamLen = 10
benchmark/Streamly/Benchmark/Data/Stream/StreamKAlt.hsnew file+455
@@ -0,0 +1,455 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+-- |
4+-- Module : Streamly.Benchmark.Data.Stream.StreamDK
5+-- Copyright : (c) 2018 Composewell Technologies
6+--
7+-- License : BSD3
8+-- Maintainer : streamly@composewell.com
9+
10+{-# LANGUAGE FlexibleContexts #-}
11+{-# LANGUAGE ScopedTypeVariables #-}
12+
13+module Main (main) where
14+
15+-- import Control.Monad (when)
16+-- import Data.Maybe (isJust)
17+import Prelude hiding ()
18+-- import qualified Prelude as P
19+-- import qualified Data.List as List
20+
21+import qualified Streamly.Internal.Data.StreamK.Alt as S
22+-- import qualified Streamly.Internal.Data.Stream.Common as SP
23+-- import qualified Streamly.Internal.Data.SVar as S
24+
25+import Streamly.Benchmark.Common
26+import Test.Tasty.Bench (bgroup, Benchmark, defaultMain)
27+
28+value :: Int
29+value = 100000
30+{-
31+value2, value3, value16, maxValue :: Int
32+value2 = round (P.fromIntegral value**(1/2::P.Double)) -- double nested loop
33+value3 = round (P.fromIntegral value**(1/3::P.Double)) -- triple nested loop
34+value16 = round (P.fromIntegral value**(1/16::P.Double)) -- triple nested loop
35+maxValue = value
36+-}
37+
38+-------------------------------------------------------------------------------
39+-- Benchmark ops
40+-------------------------------------------------------------------------------
41+
42+-------------------------------------------------------------------------------
43+-- Stream generation and elimination
44+-------------------------------------------------------------------------------
45+
46+type Stream m a = S.Stream m a
47+
48+{-# INLINE sourceUnfoldr #-}
49+sourceUnfoldr :: Monad m => Int -> Stream m Int
50+sourceUnfoldr n = S.unfoldr step n
51+ where
52+ step cnt =
53+ if cnt > n + value
54+ then Nothing
55+ else Just (cnt, cnt + 1)
56+
57+{-
58+{-# INLINE sourceUnfoldrN #-}
59+sourceUnfoldrN :: Monad m => Int -> Int -> Stream m Int
60+sourceUnfoldrN m n = S.unfoldr step n
61+ where
62+ step cnt =
63+ if cnt > n + m
64+ then Nothing
65+ else Just (cnt, cnt + 1)
66+-}
67+
68+{-# INLINE sourceUnfoldrM #-}
69+sourceUnfoldrM :: Monad m => Int -> Stream m Int
70+sourceUnfoldrM n = S.unfoldrM step n
71+ where
72+ step cnt =
73+ if cnt > n + value
74+ then return Nothing
75+ else return (Just (cnt, cnt + 1))
76+
77+{-
78+{-# INLINE sourceUnfoldrMN #-}
79+sourceUnfoldrMN :: Monad m => Int -> Int -> Stream m Int
80+sourceUnfoldrMN m n = S.unfoldrM step n
81+ where
82+ step cnt =
83+ if cnt > n + m
84+ then return Nothing
85+ else return (Just (cnt, cnt + 1))
86+-}
87+
88+{-
89+{-# INLINE sourceFromEnum #-}
90+sourceFromEnum :: Monad m => Int -> Stream m Int
91+sourceFromEnum n = S.enumFromStepN n 1 value
92+-}
93+
94+{-
95+{-# INLINE sourceFromFoldable #-}
96+sourceFromFoldable :: Int -> Stream m Int
97+sourceFromFoldable n = S.fromFoldable [n..n+value]
98+-}
99+
100+{-
101+{-# INLINE sourceFromFoldableM #-}
102+sourceFromFoldableM :: S.MonadAsync m => Int -> Stream m Int
103+sourceFromFoldableM n = S.fromFoldableM (Prelude.fmap return [n..n+value])
104+-}
105+
106+{-
107+{-# INLINE sourceFoldMapWith #-}
108+sourceFoldMapWith :: Int -> Stream m Int
109+sourceFoldMapWith n = SP.foldMapWith S.serial S.fromPure [n..n+value]
110+
111+{-# INLINE sourceFoldMapWithM #-}
112+sourceFoldMapWithM :: Monad m => Int -> Stream m Int
113+sourceFoldMapWithM n = SP.foldMapWith S.serial (S.fromEffect . return) [n..n+value]
114+-}
115+
116+-------------------------------------------------------------------------------
117+-- Elimination
118+-------------------------------------------------------------------------------
119+
120+{-# INLINE runStream #-}
121+runStream :: Monad m => Stream m a -> m ()
122+runStream = S.drain
123+-- runStream = S.mapM_ (\_ -> return ())
124+
125+{-
126+{-# INLINE mapM_ #-}
127+mapM_ :: Monad m => Stream m a -> m ()
128+mapM_ = S.mapM_ (\_ -> return ())
129+-}
130+
131+{-# INLINE toNull #-}
132+toNull :: Monad m => Stream m Int -> m ()
133+toNull = runStream
134+
135+{-# INLINE uncons #-}
136+uncons :: Monad m => Stream m Int -> m ()
137+uncons s = do
138+ r <- S.uncons s
139+ case r of
140+ Nothing -> return ()
141+ Just (_, t) -> uncons t
142+
143+{-
144+{-# INLINE init #-}
145+init :: (Monad m, S.IsStream t) => t m a -> m ()
146+init s = do
147+ t <- S.init s
148+ P.mapM_ S.drain t
149+
150+{-# INLINE tail #-}
151+tail :: (Monad m, S.IsStream t) => t m a -> m ()
152+tail s = S.tail s >>= P.mapM_ tail
153+
154+{-# INLINE nullTail #-}
155+{-# INLINE headTail #-}
156+{-# INLINE zip #-}
157+nullTail, headTail, zip
158+ :: Monad m
159+ => Stream m Int -> m ()
160+
161+nullTail s = do
162+ r <- S.null s
163+ when (not r) $ S.tail s >>= P.mapM_ nullTail
164+
165+headTail s = do
166+ h <- S.head s
167+ when (isJust h) $ S.tail s >>= P.mapM_ headTail
168+
169+{-# INLINE toList #-}
170+toList :: Monad m => Stream m Int -> m [Int]
171+toList = S.toList
172+
173+{-# INLINE foldl #-}
174+foldl :: Monad m => Stream m Int -> m Int
175+foldl = S.foldl' (+) 0
176+
177+{-# INLINE last #-}
178+last :: Monad m => Stream m Int -> m (Maybe Int)
179+last = S.last
180+-}
181+
182+-------------------------------------------------------------------------------
183+-- Transformation
184+-------------------------------------------------------------------------------
185+
186+{-
187+{-# INLINE transform #-}
188+transform :: Monad m => Stream m a -> m ()
189+transform = runStream
190+
191+{-# INLINE composeN #-}
192+composeN
193+ :: Monad m
194+ => Int -> (Stream m Int -> Stream m Int) -> Stream m Int -> m ()
195+composeN n f =
196+ case n of
197+ 1 -> transform . f
198+ 2 -> transform . f . f
199+ 3 -> transform . f . f . f
200+ 4 -> transform . f . f . f . f
201+ _ -> undefined
202+-}
203+
204+{-
205+{-# INLINE scan #-}
206+{-# INLINE map #-}
207+{-# INLINE fmap #-}
208+{-# INLINE filterEven #-}
209+{-# INLINE filterAllOut #-}
210+{-# INLINE filterAllIn #-}
211+{-# INLINE takeOne #-}
212+{-# INLINE takeAll #-}
213+{-# INLINE takeWhileTrue #-}
214+{-# INLINE dropOne #-}
215+{-# INLINE dropAll #-}
216+{-# INLINE dropWhileTrue #-}
217+{-# INLINE dropWhileFalse #-}
218+{-# INLINE foldlS #-}
219+{-# INLINE concatMap #-}
220+scan, map, fmap, filterEven, filterAllOut,
221+ filterAllIn, takeOne, takeAll, takeWhileTrue, dropAll, dropOne,
222+ dropWhileTrue, dropWhileFalse, foldlS, concatMap
223+ :: Monad m
224+ => Int -> Stream m Int -> m ()
225+
226+{-# INLINE mapM #-}
227+{-# INLINE mapMSerial #-}
228+{-# INLINE intersperse #-}
229+mapM, mapMSerial, intersperse
230+ :: S.MonadAsync m => Int -> Stream m Int -> m ()
231+
232+scan n = composeN n $ S.scanl' (+) 0
233+map n = composeN n $ P.fmap (+1)
234+fmap n = composeN n $ P.fmap (+1)
235+mapM n = composeN n $ S.mapM return
236+mapMSerial n = composeN n $ S.mapMSerial return
237+filterEven n = composeN n $ S.filter even
238+filterAllOut n = composeN n $ S.filter (> maxValue)
239+filterAllIn n = composeN n $ S.filter (<= maxValue)
240+takeOne n = composeN n $ S.take 1
241+takeAll n = composeN n $ S.take maxValue
242+takeWhileTrue n = composeN n $ S.takeWhile (<= maxValue)
243+dropOne n = composeN n $ S.drop 1
244+dropAll n = composeN n $ S.drop maxValue
245+dropWhileTrue n = composeN n $ S.dropWhile (<= maxValue)
246+dropWhileFalse n = composeN n $ S.dropWhile (<= 1)
247+foldlS n = composeN n $ S.foldlS (flip S.cons) S.nil
248+-- We use a (sqrt n) element stream as source and then concat the same stream
249+-- for each element to produce an n element stream.
250+concatMap n = composeN n $ (\s -> S.concatMap (\_ -> s) s)
251+intersperse n = composeN n $ S.intersperse maxValue
252+
253+-------------------------------------------------------------------------------
254+-- Iteration
255+-------------------------------------------------------------------------------
256+
257+iterStreamLen, maxIters :: Int
258+iterStreamLen = 10
259+maxIters = 10000
260+
261+{-# INLINE iterateSource #-}
262+iterateSource
263+ :: S.MonadAsync m
264+ => (Stream m Int -> Stream m Int) -> Int -> Int -> Stream m Int
265+iterateSource g i n = f i (sourceUnfoldrMN iterStreamLen n)
266+ where
267+ f (0 :: Int) m = g m
268+ f x m = g (f (x P.- 1) m)
269+
270+{-# INLINE iterateMapM #-}
271+{-# INLINE iterateScan #-}
272+{-# INLINE iterateFilterEven #-}
273+{-# INLINE iterateTakeAll #-}
274+{-# INLINE iterateDropOne #-}
275+{-# INLINE iterateDropWhileFalse #-}
276+{-# INLINE iterateDropWhileTrue #-}
277+iterateMapM, iterateScan, iterateFilterEven, iterateTakeAll, iterateDropOne,
278+ iterateDropWhileFalse, iterateDropWhileTrue
279+ :: S.MonadAsync m
280+ => Int -> Stream m Int
281+
282+-- this is quadratic
283+iterateScan = iterateSource (S.scanl' (+) 0) (maxIters `div` 10)
284+iterateDropWhileFalse = iterateSource (S.dropWhile (> maxValue))
285+ (maxIters `div` 10)
286+
287+iterateMapM = iterateSource (S.mapM return) maxIters
288+iterateFilterEven = iterateSource (S.filter even) maxIters
289+iterateTakeAll = iterateSource (S.take maxValue) maxIters
290+iterateDropOne = iterateSource (S.drop 1) maxIters
291+iterateDropWhileTrue = iterateSource (S.dropWhile (<= maxValue)) maxIters
292+
293+-------------------------------------------------------------------------------
294+-- Zipping and concat
295+-------------------------------------------------------------------------------
296+
297+zip src = transform $ S.zipWith (,) src src
298+
299+{-# INLINE concatMapRepl4xN #-}
300+concatMapRepl4xN :: Monad m => Stream m Int -> m ()
301+concatMapRepl4xN src = transform $ (S.concatMap (S.replicate 4) src)
302+
303+-------------------------------------------------------------------------------
304+-- Mixed Composition
305+-------------------------------------------------------------------------------
306+
307+{-# INLINE scanMap #-}
308+{-# INLINE dropMap #-}
309+{-# INLINE dropScan #-}
310+{-# INLINE takeDrop #-}
311+{-# INLINE takeScan #-}
312+{-# INLINE takeMap #-}
313+{-# INLINE filterDrop #-}
314+{-# INLINE filterTake #-}
315+{-# INLINE filterScan #-}
316+{-# INLINE filterMap #-}
317+scanMap, dropMap, dropScan, takeDrop, takeScan, takeMap, filterDrop,
318+ filterTake, filterScan, filterMap
319+ :: Monad m => Int -> Stream m Int -> m ()
320+
321+scanMap n = composeN n $ S.map (subtract 1) . S.scanl' (+) 0
322+dropMap n = composeN n $ S.map (subtract 1) . S.drop 1
323+dropScan n = composeN n $ S.scanl' (+) 0 . S.drop 1
324+takeDrop n = composeN n $ S.drop 1 . S.take maxValue
325+takeScan n = composeN n $ S.scanl' (+) 0 . S.take maxValue
326+takeMap n = composeN n $ S.map (subtract 1) . S.take maxValue
327+filterDrop n = composeN n $ S.drop 1 . S.filter (<= maxValue)
328+filterTake n = composeN n $ S.take maxValue . S.filter (<= maxValue)
329+filterScan n = composeN n $ S.scanl' (+) 0 . S.filter (<= maxBound)
330+filterMap n = composeN n $ S.map (subtract 1) . S.filter (<= maxValue)
331+
332+-------------------------------------------------------------------------------
333+-- Nested Composition
334+-------------------------------------------------------------------------------
335+
336+{-# INLINE toNullApNested #-}
337+toNullApNested :: Monad m => Stream m Int -> m ()
338+toNullApNested s = runStream $ do
339+ (+) <$> s <*> s
340+
341+{-# INLINE toNullNested #-}
342+toNullNested :: Monad m => Stream m Int -> m ()
343+toNullNested s = runStream $ do
344+ x <- s
345+ y <- s
346+ return $ x + y
347+
348+{-# INLINE toNullNested3 #-}
349+toNullNested3 :: Monad m => Stream m Int -> m ()
350+toNullNested3 s = runStream $ do
351+ x <- s
352+ y <- s
353+ z <- s
354+ return $ x + y + z
355+
356+{-# INLINE filterAllOutNested #-}
357+filterAllOutNested
358+ :: Monad m
359+ => Stream m Int -> m ()
360+filterAllOutNested str = runStream $ do
361+ x <- str
362+ y <- str
363+ let s = x + y
364+ if s < 0
365+ then return s
366+ else S.nil
367+
368+{-# INLINE filterAllInNested #-}
369+filterAllInNested
370+ :: Monad m
371+ => Stream m Int -> m ()
372+filterAllInNested str = runStream $ do
373+ x <- str
374+ y <- str
375+ let s = x + y
376+ if s > 0
377+ then return s
378+ else S.nil
379+
380+-------------------------------------------------------------------------------
381+-- Nested Composition Pure lists
382+-------------------------------------------------------------------------------
383+
384+{-# INLINE sourceUnfoldrList #-}
385+sourceUnfoldrList :: Int -> Int -> [Int]
386+sourceUnfoldrList maxval n = List.unfoldr step n
387+ where
388+ step cnt =
389+ if cnt > n + maxval
390+ then Nothing
391+ else Just (cnt, cnt + 1)
392+
393+{-# INLINE toNullApNestedList #-}
394+toNullApNestedList :: [Int] -> [Int]
395+toNullApNestedList s = (+) <$> s <*> s
396+
397+{-# INLINE toNullNestedList #-}
398+toNullNestedList :: [Int] -> [Int]
399+toNullNestedList s = do
400+ x <- s
401+ y <- s
402+ return $ x + y
403+
404+{-# INLINE toNullNestedList3 #-}
405+toNullNestedList3 :: [Int] -> [Int]
406+toNullNestedList3 s = do
407+ x <- s
408+ y <- s
409+ z <- s
410+ return $ x + y + z
411+
412+{-# INLINE filterAllOutNestedList #-}
413+filterAllOutNestedList :: [Int] -> [Int]
414+filterAllOutNestedList str = do
415+ x <- str
416+ y <- str
417+ let s = x + y
418+ if s < 0
419+ then return s
420+ else []
421+
422+{-# INLINE filterAllInNestedList #-}
423+filterAllInNestedList :: [Int] -> [Int]
424+filterAllInNestedList str = do
425+ x <- str
426+ y <- str
427+ let s = x + y
428+ if s > 0
429+ then return s
430+ else []
431+-}
432+
433+-------------------------------------------------------------------------------
434+-- Benchmarks
435+-------------------------------------------------------------------------------
436+
437+moduleName :: String
438+moduleName = "Data.Stream.StreamDK"
439+
440+o_1_space :: [Benchmark]
441+o_1_space =
442+ [ bgroup (o_1_space_prefix moduleName)
443+ [ bgroup "generation"
444+ [ benchFold "unfoldr" toNull sourceUnfoldr
445+ , benchFold "unfoldrM" toNull sourceUnfoldrM
446+ ]
447+ , bgroup "elimination"
448+ [ benchFold "toNull" toNull sourceUnfoldrM
449+ , benchFold "uncons" uncons sourceUnfoldrM
450+ ]
451+ ]
452+ ]
453+
454+main :: IO ()
455+main = defaultMain [o_1_space]
benchmark/Streamly/Benchmark/Data/Stream/ToStreamK.hsnew file+938
@@ -0,0 +1,938 @@
1+-- |
2+-- Module : Streamly.Benchmark.Data.StreamK
3+-- Copyright : (c) 2018 Composewell Technologies
4+--
5+-- License : BSD3
6+-- Maintainer : streamly@composewell.com
7+
8+{-# LANGUAGE CPP #-}
9+{-# LANGUAGE FlexibleContexts #-}
10+{-# LANGUAGE ScopedTypeVariables #-}
11+{-# OPTIONS_GHC -Wno-orphans #-}
12+
13+#ifdef __HADDOCK_VERSION__
14+#undef INSPECTION
15+#endif
16+
17+#ifdef INSPECTION
18+{-# LANGUAGE TemplateHaskell #-}
19+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
20+#endif
21+
22+module Main (main) where
23+
24+-- import Control.Applicative (liftA2)
25+-- import Control.Monad (when)
26+-- import Data.Maybe (isJust)
27+-- import System.Random (randomRIO)
28+import Prelude hiding
29+ ( tail, mapM_, foldl, last, map, mapM, concatMap, zipWith, init, iterate
30+ , repeat, replicate
31+ )
32+
33+import qualified Prelude as P
34+-- import qualified Data.List as List
35+
36+import qualified Streamly.Internal.Data.StreamK as S
37+import qualified Streamly.Internal.Data.Stream as D
38+import qualified Streamly.Internal.Data.Fold as Fold
39+
40+import Test.Tasty.Bench (bgroup, Benchmark, defaultMain)
41+
42+import Streamly.Benchmark.Common
43+
44+#ifdef INSPECTION
45+import Test.Inspection
46+#endif
47+
48+-------------------------------------------------------------------------------
49+-- Stream generation and elimination
50+-------------------------------------------------------------------------------
51+
52+type Stream m a = S.Stream m a
53+
54+{-# INLINE unfoldrD #-}
55+unfoldrD :: Monad m => Int -> Int -> Stream m Int
56+unfoldrD streamLen n = D.toStreamK (D.unfoldr step n)
57+ where
58+ step cnt =
59+ if cnt > n + streamLen
60+ then Nothing
61+ else Just (cnt, cnt + 1)
62+
63+{-# INLINE unfoldrMD #-}
64+unfoldrMD :: Monad m => Int -> Int -> Stream m Int
65+unfoldrMD streamLen n = D.toStreamK (D.unfoldrM step n)
66+ where
67+ step cnt =
68+ if cnt > n + streamLen
69+ then return Nothing
70+ else return (Just (cnt, cnt + 1))
71+
72+{-
73+{-# INLINE unfoldrK #-}
74+unfoldrK :: Int -> Int -> Stream m Int
75+unfoldrK streamLen n = S.unfoldr step n
76+ where
77+ step cnt =
78+ if cnt > n + streamLen
79+ then Nothing
80+ else Just (cnt, cnt + 1)
81+-}
82+
83+{-# INLINE unfoldrMK #-}
84+unfoldrMK :: Monad m => Int -> Int -> Stream m Int
85+unfoldrMK streamLen n = S.unfoldrMWith S.consM step n
86+ where
87+ step cnt =
88+ if cnt > n + streamLen
89+ then return Nothing
90+ else return (Just (cnt, cnt + 1))
91+
92+{-# INLINE repeat #-}
93+repeat :: Monad m => Int -> Int -> Stream m Int
94+repeat streamLen = S.take streamLen . D.toStreamK . D.repeat
95+
96+{-# INLINE repeatM #-}
97+repeatM :: Monad m => Int -> Int -> Stream m Int
98+repeatM streamLen = S.take streamLen . D.toStreamK . D.repeatM . return
99+
100+{-# INLINE replicate #-}
101+replicate :: Monad m => Int -> Int -> Stream m Int
102+replicate x y = D.toStreamK $ D.replicate x y
103+
104+{-# INLINE replicateM #-}
105+replicateM :: Monad m => Int -> Int -> Stream m Int
106+replicateM streamLen = D.toStreamK . D.replicateM streamLen . return
107+
108+{-# INLINE iterate #-}
109+iterate :: Monad m => Int -> Int -> Stream m Int
110+iterate streamLen = S.take streamLen . D.toStreamK . D.iterate (+1)
111+
112+{-# INLINE iterateM #-}
113+iterateM :: Monad m => Int -> Int -> Stream m Int
114+iterateM streamLen = S.take streamLen . D.toStreamK . D.iterateM (return . (+1)) . return
115+
116+{-# INLINE fromFoldable #-}
117+fromFoldable :: Int -> Int -> Stream m Int
118+fromFoldable streamLen n = S.fromFoldable [n..n+streamLen]
119+
120+{-# INLINE fromFoldableM #-}
121+fromFoldableM :: Monad m => Int -> Int -> Stream m Int
122+fromFoldableM streamLen n =
123+ Prelude.foldr (S.consM . return) S.nil [n .. n + streamLen]
124+
125+{-
126+{-# INLINABLE concatMapFoldableWith #-}
127+concatMapFoldableWith :: Foldable f
128+ => (Stream m b -> Stream m b -> Stream m b)
129+ -> (a -> Stream m b)
130+ -> f a
131+ -> Stream m b
132+concatMapFoldableWith f g = Prelude.foldr (f . g) S.nil
133+-}
134+
135+{-# INLINE concatMapFoldableSerial #-}
136+concatMapFoldableSerial :: Monad m => Int -> Int -> Stream m Int
137+concatMapFoldableSerial streamLen n =
138+ D.toStreamK $ D.concatMap D.fromPure $ D.fromStreamK $ S.fromList [n..n+streamLen]
139+
140+{-# INLINE concatMapFoldableSerialM #-}
141+concatMapFoldableSerialM :: Monad m => Int -> Int -> Stream m Int
142+concatMapFoldableSerialM streamLen n =
143+ -- concatMapFoldableWith S.serial (S.fromEffect . return) [n..n+streamLen]
144+ D.toStreamK $ D.concatMap (D.fromEffect . return) $ D.fromStreamK $ S.fromList [n..n+streamLen]
145+
146+-------------------------------------------------------------------------------
147+-- Elimination
148+-------------------------------------------------------------------------------
149+
150+{-# INLINE drainD #-}
151+drainD :: Monad m => Stream m a -> m ()
152+drainD = D.drain . D.fromStreamK
153+
154+{-# INLINE drain #-}
155+drain :: Monad m => Stream m a -> m ()
156+drain = S.drain
157+
158+{-# INLINE mapM_ #-}
159+mapM_ :: Monad m => Stream m a -> m ()
160+mapM_ s = D.mapM_ (\_ -> return ()) $ D.fromStreamK s
161+
162+{-
163+{-# INLINE uncons #-}
164+uncons :: Monad m => Stream m Int -> m ()
165+uncons s = do
166+ r <- D.uncons $ D.fromStreamK s
167+ case r of
168+ Nothing -> return ()
169+ Just (_, t) -> uncons (D.toStreamK t)
170+
171+{-# INLINE init #-}
172+init :: Monad m => Stream m a -> m ()
173+init s = do
174+ t <- S.init s
175+ P.mapM_ S.drain t
176+
177+{-# INLINE tail #-}
178+tail :: Monad m => Stream m a -> m ()
179+tail s = S.tail s >>= P.mapM_ tail
180+
181+{-# INLINE nullTail #-}
182+nullTail :: Monad m => Stream m Int -> m ()
183+nullTail s = do
184+ r <- S.null s
185+ when (not r) $ S.tail s >>= P.mapM_ nullTail
186+
187+{-# INLINE headTail #-}
188+headTail :: Monad m => Stream m Int -> m ()
189+headTail s = do
190+ h <- S.head s
191+ when (isJust h) $ S.tail s >>= P.mapM_ headTail
192+-}
193+
194+{-# INLINE toList #-}
195+toList :: Monad m => Stream m Int -> m [Int]
196+toList = D.fold Fold.toList . D.fromStreamK
197+
198+{-# INLINE foldl' #-}
199+foldl' :: Monad m => Stream m Int -> m Int
200+foldl' = D.fold (Fold.foldl' (+) 0) . D.fromStreamK
201+
202+{-# INLINE last #-}
203+last :: Monad m => Stream m Int -> m (Maybe Int)
204+last = D.fold Fold.latest . D.fromStreamK
205+
206+-------------------------------------------------------------------------------
207+-- Transformation
208+-------------------------------------------------------------------------------
209+
210+{-# INLINE composeN #-}
211+composeN
212+ :: Monad m
213+ => Int -> (Stream m Int -> Stream m Int) -> Stream m Int -> m ()
214+composeN n f =
215+ case n of
216+ 1 -> drain . f
217+ 2 -> drain . f . f
218+ 3 -> drain . f . f . f
219+ 4 -> drain . f . f . f . f
220+ _ -> undefined
221+
222+{-# INLINE scanl' #-}
223+scanl' :: Monad m => Int -> Stream m Int -> m ()
224+scanl' n =
225+ composeN n (D.toStreamK . D.scan (Fold.foldl' (+) 0) . D.fromStreamK)
226+
227+{-# INLINE map #-}
228+map :: Monad m => Int -> Stream m Int -> m ()
229+map n = composeN n (D.toStreamK . D.map (+ 1) . D.fromStreamK)
230+
231+{-
232+{-# INLINE fmapK #-}
233+fmapK :: Monad m => Int -> Stream m Int -> m ()
234+fmapK n = composeN n $ P.fmap (+ 1)
235+-}
236+
237+{-# INLINE mapM #-}
238+mapM :: Monad m => Int -> Stream m Int -> m ()
239+mapM n = composeN n (D.toStreamK . D.mapM return . D.fromStreamK)
240+
241+{-
242+{-# INLINE mapMSerial #-}
243+mapMSerial :: S.MonadAsync m => Int -> Stream m Int -> m ()
244+mapMSerial n = composeN n $ S.mapMSerial return
245+-}
246+
247+{-# INLINE filterEven #-}
248+filterEven :: Monad m => Int -> Stream m Int -> m ()
249+filterEven n = composeN n (D.toStreamK . D.filter even . D.fromStreamK)
250+
251+{-
252+{-# INLINE filterAllOut #-}
253+filterAllOut :: Monad m => Int -> Int -> Stream m Int -> m ()
254+filterAllOut streamLen n = composeN n $ S.filter (> streamLen)
255+
256+{-# INLINE filterAllIn #-}
257+filterAllIn :: Monad m => Int -> Int -> Stream m Int -> m ()
258+filterAllIn streamLen n = composeN n $ S.filter (<= streamLen)
259+
260+{-# INLINE _takeOne #-}
261+_takeOne :: Monad m => Int -> Stream m Int -> m ()
262+_takeOne n = composeN n $ S.take 1
263+
264+{-# INLINE takeAll #-}
265+takeAll :: Monad m => Int -> Int -> Stream m Int -> m ()
266+takeAll streamLen n = composeN n $ S.take streamLen
267+
268+{-# INLINE takeWhileTrue #-}
269+takeWhileTrue :: Monad m => Int -> Int -> Stream m Int -> m ()
270+takeWhileTrue streamLen n = composeN n $ S.takeWhile (<= streamLen)
271+
272+{-# INLINE dropOne #-}
273+dropOne :: Monad m => Int -> Stream m Int -> m ()
274+dropOne n = composeN n $ S.drop 1
275+
276+{-# INLINE dropAll #-}
277+dropAll :: Monad m => Int -> Int -> Stream m Int -> m ()
278+dropAll streamLen n = composeN n $ S.drop streamLen
279+
280+{-# INLINE dropWhileTrue #-}
281+dropWhileTrue :: Monad m => Int -> Int -> Stream m Int -> m ()
282+dropWhileTrue streamLen n = composeN n $ S.dropWhile (<= streamLen)
283+
284+{-# INLINE dropWhileFalse #-}
285+dropWhileFalse :: Monad m => Int -> Stream m Int -> m ()
286+dropWhileFalse n = composeN n $ S.dropWhile (<= 1)
287+-}
288+
289+{-
290+{-# INLINE foldrS #-}
291+foldrS :: Monad m => Int -> Stream m Int -> m ()
292+foldrS n = composeN n $ S.foldrS S.cons S.nil
293+
294+{-# INLINE foldlS #-}
295+foldlS :: Monad m => Int -> Stream m Int -> m ()
296+foldlS n = composeN n $ S.foldlS (flip S.cons) S.nil
297+-}
298+
299+{-
300+{-# INLINE intersperse #-}
301+intersperse :: S.MonadAsync m => Int -> Int -> Stream m Int -> m ()
302+intersperse streamLen n = composeN n $ S.intersperse streamLen
303+-}
304+
305+-------------------------------------------------------------------------------
306+-- Iteration
307+-------------------------------------------------------------------------------
308+
309+{-
310+{-# INLINE iterateSource #-}
311+iterateSource
312+ :: S.MonadAsync m
313+ => Int -> (Stream m Int -> Stream m Int) -> Int -> Int -> Stream m Int
314+iterateSource iterStreamLen g i n = f i (unfoldrM iterStreamLen n)
315+ where
316+ f (0 :: Int) m = g m
317+ f x m = g (f (x P.- 1) m)
318+
319+-- this is quadratic
320+{-# INLINE iterateScan #-}
321+iterateScan :: S.MonadAsync m => Int -> Int -> Int -> Stream m Int
322+iterateScan iterStreamLen maxIters =
323+ iterateSource iterStreamLen (S.scanl' (+) 0) (maxIters `div` 10)
324+
325+-- this is quadratic
326+{-# INLINE iterateDropWhileFalse #-}
327+iterateDropWhileFalse :: S.MonadAsync m => Int -> Int -> Int -> Int -> Stream m Int
328+iterateDropWhileFalse streamLen iterStreamLen maxIters =
329+ iterateSource iterStreamLen (S.dropWhile (> streamLen)) (maxIters `div` 10)
330+
331+{-# INLINE iterateMapM #-}
332+iterateMapM :: S.MonadAsync m => Int -> Int -> Int -> Stream m Int
333+iterateMapM iterStreamLen =
334+ iterateSource iterStreamLen (S.mapMWith S.consM return)
335+
336+{-# INLINE iterateFilterEven #-}
337+iterateFilterEven :: S.MonadAsync m => Int -> Int -> Int -> Stream m Int
338+iterateFilterEven iterStreamLen = iterateSource iterStreamLen (S.filter even)
339+
340+{-# INLINE iterateTakeAll #-}
341+iterateTakeAll :: S.MonadAsync m => Int -> Int -> Int -> Int -> Stream m Int
342+iterateTakeAll streamLen iterStreamLen =
343+ iterateSource iterStreamLen (S.take streamLen)
344+
345+{-# INLINE iterateDropOne #-}
346+iterateDropOne :: S.MonadAsync m => Int -> Int -> Int -> Stream m Int
347+iterateDropOne iterStreamLen = iterateSource iterStreamLen (S.drop 1)
348+
349+{-# INLINE iterateDropWhileTrue #-}
350+iterateDropWhileTrue :: S.MonadAsync m =>
351+ Int -> Int -> Int -> Int -> Stream m Int
352+iterateDropWhileTrue streamLen iterStreamLen =
353+ iterateSource iterStreamLen (S.dropWhile (<= streamLen))
354+-}
355+
356+-------------------------------------------------------------------------------
357+-- Zipping
358+-------------------------------------------------------------------------------
359+
360+{-
361+{-# INLINE zipWith #-}
362+zipWith :: Monad m => Stream m Int -> m ()
363+zipWith src = drain $ S.zipWith (,) src src
364+
365+{-# INLINE zipWithM #-}
366+zipWithM :: Monad m => Stream m Int -> m ()
367+zipWithM src = drain $ S.zipWithM (curry return) src src
368+
369+{-# INLINE sortByK #-}
370+sortByK :: (a -> a -> Ordering) -> Stream m a -> Stream m a
371+sortByK f = S.concatPairsWith (S.mergeBy f) S.fromPure
372+
373+{-# INLINE sortBy #-}
374+sortBy :: Monad m => Stream m Int -> m ()
375+sortBy = drain . sortByK compare
376+
377+-------------------------------------------------------------------------------
378+-- Mixed Composition
379+-------------------------------------------------------------------------------
380+
381+{-# INLINE scanMap #-}
382+scanMap :: Monad m => Int -> Stream m Int -> m ()
383+scanMap n = composeN n $ S.map (subtract 1) . S.scanl' (+) 0
384+
385+{-# INLINE dropMap #-}
386+dropMap :: Monad m => Int -> Stream m Int -> m ()
387+dropMap n = composeN n $ S.map (subtract 1) . S.drop 1
388+
389+{-# INLINE dropScan #-}
390+dropScan :: Monad m => Int -> Stream m Int -> m ()
391+dropScan n = composeN n $ S.scanl' (+) 0 . S.drop 1
392+
393+{-# INLINE takeDrop #-}
394+takeDrop :: Monad m => Int -> Int -> Stream m Int -> m ()
395+takeDrop streamLen n = composeN n $ S.drop 1 . S.take streamLen
396+
397+{-# INLINE takeScan #-}
398+takeScan :: Monad m => Int -> Int -> Stream m Int -> m ()
399+takeScan streamLen n = composeN n $ S.scanl' (+) 0 . S.take streamLen
400+
401+{-# INLINE takeMap #-}
402+takeMap :: Monad m => Int -> Int -> Stream m Int -> m ()
403+takeMap streamLen n = composeN n $ S.map (subtract 1) . S.take streamLen
404+
405+{-# INLINE filterDrop #-}
406+filterDrop :: Monad m => Int -> Int -> Stream m Int -> m ()
407+filterDrop streamLen n = composeN n $ S.drop 1 . S.filter (<= streamLen)
408+
409+{-# INLINE filterTake #-}
410+filterTake :: Monad m => Int -> Int -> Stream m Int -> m ()
411+filterTake streamLen n = composeN n $ S.take streamLen . S.filter (<= streamLen)
412+
413+{-# INLINE filterScan #-}
414+filterScan :: Monad m => Int -> Stream m Int -> m ()
415+filterScan n = composeN n $ S.scanl' (+) 0 . S.filter (<= maxBound)
416+
417+{-# INLINE filterMap #-}
418+filterMap :: Monad m => Int -> Int -> Stream m Int -> m ()
419+filterMap streamLen n = composeN n $ S.map (subtract 1) . S.filter (<= streamLen)
420+-}
421+
422+-------------------------------------------------------------------------------
423+-- ConcatMap
424+-------------------------------------------------------------------------------
425+
426+-- concatMap unfoldrM/unfoldrM
427+
428+{-# INLINE concatMap #-}
429+concatMap :: Int -> Int -> Int -> IO ()
430+concatMap outer inner n =
431+ S.drain $ D.toStreamK $ D.concatMap
432+ (\_ -> D.fromStreamK $ unfoldrMK inner n)
433+ (D.fromStreamK $ unfoldrMK outer n)
434+
435+#ifdef INSPECTION
436+inspect $ hasNoTypeClasses 'concatMap
437+#endif
438+
439+-- concatMap unfoldr/unfoldr
440+
441+{-
442+{-# INLINE concatMapPure #-}
443+concatMapPure :: Int -> Int -> Int -> IO ()
444+concatMapPure outer inner n =
445+ S.drain $ S.concatMap
446+ (\_ -> unfoldr inner n)
447+ (unfoldr outer n)
448+
449+#ifdef INSPECTION
450+inspect $ hasNoTypeClasses 'concatMapPure
451+#endif
452+
453+-- concatMap replicate/unfoldrM
454+
455+{-# INLINE concatMapRepl #-}
456+concatMapRepl :: Int -> Int -> Int -> IO ()
457+concatMapRepl outer inner n =
458+ S.drain $ S.concatMap (S.replicate inner) (unfoldrM outer n)
459+
460+#ifdef INSPECTION
461+inspect $ hasNoTypeClasses 'concatMapRepl
462+#endif
463+
464+-- concatMapWith
465+
466+{-# INLINE sourceConcatMapId #-}
467+sourceConcatMapId :: Monad m
468+ => Int -> Int -> Stream m (Stream m Int)
469+sourceConcatMapId val n =
470+ S.fromFoldable $ fmap (S.fromEffect . return) [n..n+val]
471+
472+{-# INLINE concatMapBySerial #-}
473+concatMapBySerial :: Int -> Int -> Int -> IO ()
474+concatMapBySerial outer inner n =
475+ S.drain $ S.concatMapWith S.serial
476+ (unfoldrM inner)
477+ (unfoldrM outer n)
478+-}
479+
480+{-
481+-------------------------------------------------------------------------------
482+-- Nested Composition
483+-------------------------------------------------------------------------------
484+
485+instance Monad m => Applicative (S.Stream m) where
486+ {-# INLINE pure #-}
487+ pure = S.fromPure
488+
489+ {-# INLINE (<*>) #-}
490+ (<*>) = S.crossApply
491+
492+ {-# INLINE liftA2 #-}
493+ liftA2 f x = (<*>) (fmap f x)
494+
495+ {-# INLINE (*>) #-}
496+ (*>) = S.crossApplySnd
497+
498+ {-# INLINE (<*) #-}
499+ (<*) = S.crossApplyFst
500+
501+-- NOTE: even though concatMap for StreamD is 3x faster compared to StreamK,
502+-- the monad instance of StreamD is slower than StreamK after foldr/build
503+-- fusion.
504+instance Monad m => Monad (S.Stream m) where
505+ {-# INLINE return #-}
506+ return = pure
507+
508+ {-# INLINE (>>=) #-}
509+ (>>=) = flip S.concatMap
510+
511+{-# INLINE drainApplicative #-}
512+drainApplicative :: Monad m => Stream m Int -> m ()
513+drainApplicative s = drain $ do
514+ (+) <$> s <*> s
515+
516+{-# INLINE drainMonad #-}
517+drainMonad :: Monad m => Stream m Int -> m ()
518+drainMonad s = drain $ do
519+ x <- s
520+ y <- s
521+ return $ x + y
522+
523+{-# INLINE drainMonad3 #-}
524+drainMonad3 :: Monad m => Stream m Int -> m ()
525+drainMonad3 s = drain $ do
526+ x <- s
527+ y <- s
528+ z <- s
529+ return $ x + y + z
530+
531+{-# INLINE filterAllOutMonad #-}
532+filterAllOutMonad
533+ :: Monad m
534+ => Stream m Int -> m ()
535+filterAllOutMonad str = drain $ do
536+ x <- str
537+ y <- str
538+ let s = x + y
539+ if s < 0
540+ then return s
541+ else S.nil
542+
543+{-# INLINE filterAllInMonad #-}
544+filterAllInMonad
545+ :: Monad m
546+ => Stream m Int -> m ()
547+filterAllInMonad str = drain $ do
548+ x <- str
549+ y <- str
550+ let s = x + y
551+ if s > 0
552+ then return s
553+ else S.nil
554+
555+-------------------------------------------------------------------------------
556+-- Nested Composition Pure lists
557+-------------------------------------------------------------------------------
558+
559+-- There are several list benchmarks here for comparison with lists. It is easy
560+-- and convenient to see the comparisons when they are here, otherwise we'll
561+-- have to add a separate module for list benchmarks with the same names and
562+-- then add a comparison in bench.sh.
563+
564+{-# INLINE unfoldrList #-}
565+unfoldrList :: Int -> Int -> [Int]
566+unfoldrList maxval n = List.unfoldr step n
567+ where
568+ step cnt =
569+ if cnt > n + maxval
570+ then Nothing
571+ else Just (cnt, cnt + 1)
572+
573+{-# INLINE toNullApNestedList #-}
574+toNullApNestedList :: [Int] -> [Int]
575+toNullApNestedList s = (+) <$> s <*> s
576+
577+{-# INLINE toNullNestedList #-}
578+toNullNestedList :: [Int] -> [Int]
579+toNullNestedList s = do
580+ x <- s
581+ y <- s
582+ return $ x + y
583+
584+{-# INLINE toNullNestedList3 #-}
585+toNullNestedList3 :: [Int] -> [Int]
586+toNullNestedList3 s = do
587+ x <- s
588+ y <- s
589+ z <- s
590+ return $ x + y + z
591+
592+{-# INLINE filterAllOutNestedList #-}
593+filterAllOutNestedList :: [Int] -> [Int]
594+filterAllOutNestedList str = do
595+ x <- str
596+ y <- str
597+ let s = x + y
598+ if s < 0
599+ then return s
600+ else []
601+
602+{-# INLINE filterAllInNestedList #-}
603+filterAllInNestedList :: [Int] -> [Int]
604+filterAllInNestedList str = do
605+ x <- str
606+ y <- str
607+ let s = x + y
608+ if s > 0
609+ then return s
610+ else []
611+ -}
612+
613+-------------------------------------------------------------------------------
614+-- Benchmarks
615+-------------------------------------------------------------------------------
616+
617+moduleName :: String
618+moduleName = "Data.Stream.ToStreamK"
619+
620+-- Generation of StreamK using StreamD generation functions and eleminating
621+-- using StreamK drain.
622+o_1_space_generation :: Int -> Benchmark
623+o_1_space_generation streamLen =
624+ bgroup "generation"
625+ [ benchFold "unfoldr" drain (unfoldrD streamLen)
626+ , benchFold "unfoldrM" drain (unfoldrMD streamLen)
627+ , benchFold "repeat" drain (repeat streamLen)
628+ , benchFold "repeatM" drain (repeatM streamLen)
629+ , benchFold "replicate" drain (replicate streamLen)
630+ , benchFold "replicateM" drain (replicateM streamLen)
631+ , benchFold "iterate" drain (iterate streamLen)
632+ , benchFold "iterateM" drain (iterateM streamLen)
633+
634+ , benchFold "fromFoldable" drain (fromFoldable streamLen)
635+ , benchFold "fromFoldableM" drain (fromFoldableM streamLen)
636+
637+ -- appends
638+ , benchFold "concatMapFoldableWith" drain (concatMapFoldableSerial streamLen)
639+ , benchFold "concatMapFoldableWithM" drain (concatMapFoldableSerialM streamLen)
640+ ]
641+
642+-- Generating using StreamK and eliminating using StreamD folds.
643+o_1_space_elimination :: Int -> Benchmark
644+o_1_space_elimination streamLen =
645+ bgroup "elimination"
646+ [ benchFold "toNull" drainD (unfoldrMK streamLen)
647+ , benchFold "mapM_" mapM_ (unfoldrMK streamLen)
648+ -- , benchFold "uncons" uncons (unfoldrMK streamLen)
649+ -- , benchFold "init" init (unfoldrM streamLen)
650+ , benchFold "foldl'" foldl' (unfoldrMK streamLen)
651+ , benchFold "last" last (unfoldrMK streamLen)
652+ ]
653+
654+{-
655+o_1_space_nested :: Int -> Benchmark
656+o_1_space_nested streamLen =
657+ bgroup "nested"
658+ [ benchFold "drainApplicative" drainApplicative (unfoldrM streamLen2)
659+ , benchFold "drainMonad" drainMonad (unfoldrM streamLen2)
660+ , benchFold "drainMonad3" drainMonad3 (unfoldrM streamLen3)
661+ , benchFold "filterAllInMonad" filterAllInMonad (unfoldrM streamLen2)
662+ , benchFold "filterAllOutMonad" filterAllOutMonad (unfoldrM streamLen2)
663+ , benchFold "drainApplicative (pure)" drainApplicative (unfoldr streamLen2)
664+ , benchFold "drainMonad (pure)" drainMonad (unfoldr streamLen2)
665+ , benchFold "drainMonad3 (pure)" drainMonad3 (unfoldr streamLen3)
666+ , benchFold "filterAllInMonad (pure)" filterAllInMonad (unfoldr streamLen2)
667+ , benchFold "filterAllOutMonad (pure)" filterAllOutMonad (unfoldr streamLen2)
668+ ]
669+ where
670+ streamLen2 = round (P.fromIntegral streamLen**(1/2::P.Double)) -- double nested loop
671+ streamLen3 = round (P.fromIntegral streamLen**(1/3::P.Double)) -- triple nested loop
672+-}
673+
674+-- Generate using StreamK and transform using StreamD transformation functions
675+-- and then drain using StreamK.
676+o_1_space_transformation :: Int -> Benchmark
677+o_1_space_transformation streamLen =
678+ bgroup "transformation"
679+ [ -- benchFold "foldrS" (foldrS 1) (unfoldrM streamLen)
680+ benchFold "scanl'" (scanl' 1) (unfoldrMK streamLen)
681+ , benchFold "map" (map 1) (unfoldrMK streamLen)
682+ -- , benchFold "fmap" (fmapK 1) (unfoldrM streamLen)
683+ , benchFold "mapM" (mapM 1) (unfoldrMK streamLen)
684+ -- , benchFold "mapMSerial" (mapMSerial 1) (unfoldrM streamLen)
685+ ]
686+
687+o_1_space_transformationX4 :: Int -> Benchmark
688+o_1_space_transformationX4 streamLen =
689+ bgroup "transformationX4"
690+ [ benchFold "scanl'" (scanl' 4) (unfoldrMK streamLen)
691+ , benchFold "map" (map 4) (unfoldrMK streamLen)
692+ -- , benchFold "fmap" (fmapK 4) (unfoldrMK streamLen)
693+ , benchFold "mapM" (mapM 4) (unfoldrMK streamLen)
694+ -- , benchFold "mapMSerial" (mapMSerial 4) (unfoldrM streamLen)
695+ -- XXX this is horribly slow
696+ -- , benchFold "concatMap" (concatMap 4) (unfoldrM streamLen16)
697+ ]
698+
699+-- Generate using K, fold using K, concat using D.concatMap
700+o_1_space_concat :: Int -> Benchmark
701+o_1_space_concat streamLen =
702+ bgroup "concat"
703+ [ {- benchIOSrc1 "concatMapPure (n of 1)"
704+ (concatMapPure streamLen 1)
705+ , benchIOSrc1 "concatMapPure (sqrt n of sqrt n)"
706+ (concatMapPure streamLen2 streamLen2)
707+ , benchIOSrc1 "concatMapPure (1 of n)"
708+ (concatMapPure 1 streamLen)
709+ -}
710+
711+ benchIOSrc1 "concatMap (n of 1)"
712+ (concatMap streamLen 1)
713+ , benchIOSrc1 "concatMap (sqrt n of sqrt n)"
714+ (concatMap streamLen2 streamLen2)
715+ , benchIOSrc1 "concatMap (1 of n)"
716+ (concatMap 1 streamLen)
717+
718+{-
719+ , benchIOSrc1 "concatMapRepl (sqrt n of sqrt n)"
720+ (concatMapRepl streamLen2 streamLen2)
721+
722+ -- This is for comparison with concatMapFoldableWith
723+ , benchIOSrc1 "concatMapWithId (n of 1) (fromFoldable)"
724+ (S.drain
725+ . S.concatMapWith S.serial id
726+ . sourceConcatMapId streamLen)
727+
728+ , benchIOSrc1 "concatMapBy serial (n of 1)"
729+ (concatMapBySerial streamLen 1)
730+ , benchIOSrc1 "concatMapBy serial (sqrt n of sqrt n)"
731+ (concatMapBySerial streamLen2 streamLen2)
732+ , benchIOSrc1 "concatMapBy serial (1 of n)"
733+ (concatMapBySerial 1 streamLen)
734+ , benchFold "sortBy" sortBy (unfoldrM streamLen)
735+ -}
736+ ]
737+ where
738+ streamLen2 = round (P.fromIntegral streamLen**(1/2::P.Double)) -- double nested loop
739+
740+o_1_space_filtering :: Int -> Benchmark
741+o_1_space_filtering streamLen =
742+ bgroup "filtering"
743+ [ benchFold "filter-even" (filterEven 1) (unfoldrMK streamLen)
744+ {-
745+ , benchFold "filter-all-out" (filterAllOut streamLen 1) (unfoldrM streamLen)
746+ , benchFold "filter-all-in" (filterAllIn streamLen 1) (unfoldrM streamLen)
747+ , benchFold "take-all" (takeAll streamLen 1) (unfoldrM streamLen)
748+ , benchFold "takeWhile-true" (takeWhileTrue streamLen 1) (unfoldrM streamLen)
749+ , benchFold "drop-one" (dropOne 1) (unfoldrM streamLen)
750+ , benchFold "drop-all" (dropAll streamLen 1) (unfoldrM streamLen)
751+ , benchFold "dropWhile-true" (dropWhileTrue streamLen 1) (unfoldrM streamLen)
752+ , benchFold "dropWhile-false" (dropWhileFalse 1) (unfoldrM streamLen)
753+ -}
754+ ]
755+
756+o_1_space_filteringX4 :: Int -> Benchmark
757+o_1_space_filteringX4 streamLen =
758+ bgroup "filteringX4"
759+ [ benchFold "filter-even" (filterEven 4) (unfoldrMK streamLen)
760+ {-
761+ , benchFold "filter-all-out" (filterAllOut streamLen 4) (unfoldrM streamLen)
762+ , benchFold "filter-all-in" (filterAllIn streamLen 4) (unfoldrM streamLen)
763+ , benchFold "take-all" (takeAll streamLen 4) (unfoldrM streamLen)
764+ , benchFold "takeWhile-true" (takeWhileTrue streamLen 4) (unfoldrM streamLen)
765+ , benchFold "drop-one" (dropOne 4) (unfoldrM streamLen)
766+ , benchFold "drop-all" (dropAll streamLen 4) (unfoldrM streamLen)
767+ , benchFold "dropWhile-true" (dropWhileTrue streamLen 4) (unfoldrM streamLen)
768+ , benchFold "dropWhile-false" (dropWhileFalse 4) (unfoldrM streamLen)
769+ -}
770+ ]
771+
772+{-
773+o_1_space_zipping :: Int -> Benchmark
774+o_1_space_zipping streamLen =
775+ bgroup "zipping"
776+ [ benchFold "zipWith" zipWith (unfoldrM streamLen)
777+ , benchFold "zipWithM" zipWithM (unfoldrM streamLen)
778+ ]
779+
780+o_1_space_mixed :: Int -> Benchmark
781+o_1_space_mixed streamLen =
782+ bgroup "mixed"
783+ [ benchFold "scan-map" (scanMap 1) (unfoldrM streamLen)
784+ , benchFold "drop-map" (dropMap 1) (unfoldrM streamLen)
785+ , benchFold "drop-scan" (dropScan 1) (unfoldrM streamLen)
786+ , benchFold "take-drop" (takeDrop streamLen 1) (unfoldrM streamLen)
787+ , benchFold "take-scan" (takeScan streamLen 1) (unfoldrM streamLen)
788+ , benchFold "take-map" (takeMap streamLen 1) (unfoldrM streamLen)
789+ , benchFold "filter-drop" (filterDrop streamLen 1) (unfoldrM streamLen)
790+ , benchFold "filter-take" (filterTake streamLen 1) (unfoldrM streamLen)
791+ , benchFold "filter-scan" (filterScan 1) (unfoldrM streamLen)
792+ , benchFold "filter-map" (filterMap streamLen 1) (unfoldrM streamLen)
793+ ]
794+
795+o_1_space_mixedX2 :: Int -> Benchmark
796+o_1_space_mixedX2 streamLen =
797+ bgroup "mixedX2"
798+ [ benchFold "scan-map" (scanMap 2) (unfoldrM streamLen)
799+ , benchFold "drop-map" (dropMap 2) (unfoldrM streamLen)
800+ , benchFold "drop-scan" (dropScan 2) (unfoldrM streamLen)
801+ , benchFold "take-drop" (takeDrop streamLen 2) (unfoldrM streamLen)
802+ , benchFold "take-scan" (takeScan streamLen 2) (unfoldrM streamLen)
803+ , benchFold "take-map" (takeMap streamLen 2) (unfoldrM streamLen)
804+ , benchFold "filter-drop" (filterDrop streamLen 2) (unfoldrM streamLen)
805+ , benchFold "filter-take" (filterTake streamLen 2) (unfoldrM streamLen)
806+ , benchFold "filter-scan" (filterScan 2) (unfoldrM streamLen)
807+ , benchFold "filter-map" (filterMap streamLen 2) (unfoldrM streamLen)
808+ ]
809+
810+o_1_space_mixedX4 :: Int -> Benchmark
811+o_1_space_mixedX4 streamLen =
812+ bgroup "mixedX4"
813+ [ benchFold "scan-map" (scanMap 4) (unfoldrM streamLen)
814+ , benchFold "drop-map" (dropMap 4) (unfoldrM streamLen)
815+ , benchFold "drop-scan" (dropScan 4) (unfoldrM streamLen)
816+ , benchFold "take-drop" (takeDrop streamLen 4) (unfoldrM streamLen)
817+ , benchFold "take-scan" (takeScan streamLen 4) (unfoldrM streamLen)
818+ , benchFold "take-map" (takeMap streamLen 4) (unfoldrM streamLen)
819+ , benchFold "filter-drop" (filterDrop streamLen 4) (unfoldrM streamLen)
820+ , benchFold "filter-take" (filterTake streamLen 4) (unfoldrM streamLen)
821+ , benchFold "filter-scan" (filterScan 4) (unfoldrM streamLen)
822+ , benchFold "filter-map" (filterMap streamLen 4) (unfoldrM streamLen)
823+ ]
824+ -}
825+
826+{-
827+o_1_space_list :: Int -> Benchmark
828+o_1_space_list streamLen =
829+ bgroup "list"
830+ [ bgroup "elimination"
831+ [ benchList "last" (\xs -> [List.last xs]) (unfoldrList streamLen)
832+ ]
833+ , bgroup "nested"
834+ [ benchList "toNullAp" toNullApNestedList (unfoldrList streamLen2)
835+ , benchList "toNull" toNullNestedList (unfoldrList streamLen2)
836+ , benchList "toNull3" toNullNestedList3 (unfoldrList streamLen3)
837+ , benchList "filterAllIn" filterAllInNestedList (unfoldrList streamLen2)
838+ , benchList "filterAllOut" filterAllOutNestedList (unfoldrList streamLen2)
839+ ]
840+ ]
841+ where
842+
843+ streamLen2 = round (P.fromIntegral streamLen**(1/2::P.Double)) -- double nested loop
844+ streamLen3 = round (P.fromIntegral streamLen**(1/3::P.Double)) -- triple nested loop
845+-}
846+
847+o_1_space :: Int -> Benchmark
848+o_1_space streamLen =
849+ bgroup (o_1_space_prefix moduleName)
850+ [ o_1_space_generation streamLen
851+ , o_1_space_elimination streamLen
852+ -- , o_1_space_nested streamLen
853+ , o_1_space_transformation streamLen
854+ , o_1_space_transformationX4 streamLen
855+ , o_1_space_concat streamLen
856+ , o_1_space_filtering streamLen
857+ , o_1_space_filteringX4 streamLen
858+ -- , o_1_space_zipping streamLen
859+ -- , o_1_space_mixed streamLen
860+ -- , o_1_space_mixedX2 streamLen
861+ -- , o_1_space_mixedX4 streamLen
862+ -- , o_1_space_list streamLen
863+ ]
864+
865+{-
866+o_n_heap :: Int -> Benchmark
867+o_n_heap streamLen =
868+ bgroup (o_n_heap_prefix moduleName)
869+ [ bgroup "transformation"
870+ [ benchFold "foldlS" (foldlS 1) (unfoldrM streamLen)
871+ ]
872+ ]
873+
874+{-# INLINE benchK #-}
875+benchK :: P.String -> (Int -> Stream P.IO Int) -> Benchmark
876+benchK name f = bench name $ nfIO $ randomRIO (1,1) >>= drain . f
877+
878+o_n_stack :: Int -> Int -> Int -> Benchmark
879+o_n_stack streamLen iterStreamLen maxIters =
880+ bgroup (o_n_stack_prefix moduleName)
881+ [ bgroup "elimination"
882+ [ benchFold "tail" tail (unfoldrM streamLen)
883+ , benchFold "nullTail" nullTail (unfoldrM streamLen)
884+ , benchFold "headTail" headTail (unfoldrM streamLen)
885+ ]
886+ , bgroup "transformation"
887+ [
888+ -- XXX why do these need so much stack
889+ benchFold "intersperse" (intersperse streamLen 1) (unfoldrM streamLen2)
890+ , benchFold "interspersePure" (intersperse streamLen 1) (unfoldr streamLen2)
891+ ]
892+ , bgroup "transformationX4"
893+ [
894+ benchFold "intersperse" (intersperse streamLen 4) (unfoldrM streamLen16)
895+ ]
896+ , bgroup "iterated"
897+ [ benchK "mapM" (iterateMapM iterStreamLen maxIters)
898+ , benchK "scan(1/10)" (iterateScan iterStreamLen maxIters)
899+ , benchK "filterEven" (iterateFilterEven iterStreamLen maxIters)
900+ , benchK "takeAll" (iterateTakeAll streamLen iterStreamLen maxIters)
901+ , benchK "dropOne" (iterateDropOne iterStreamLen maxIters)
902+ , benchK "dropWhileFalse(1/10)" (iterateDropWhileFalse streamLen iterStreamLen maxIters)
903+ , benchK "dropWhileTrue" (iterateDropWhileTrue streamLen iterStreamLen maxIters)
904+ ]
905+ ]
906+ where
907+ streamLen2 = round (P.fromIntegral streamLen**(1/2::P.Double)) -- double nested loop
908+ streamLen16 = round (P.fromIntegral streamLen**(1/16::P.Double)) -- triple nested loop
909+-}
910+
911+o_n_space :: Int -> Benchmark
912+o_n_space streamLen =
913+ bgroup (o_n_space_prefix moduleName)
914+ [ bgroup "elimination"
915+ [ benchFold "toList" toList (unfoldrMK streamLen)
916+ ]
917+ ]
918+
919+{-
920+{-# INLINE benchList #-}
921+benchList :: P.String -> ([Int] -> [Int]) -> (Int -> [Int]) -> Benchmark
922+benchList name run f = bench name $ nfIO $ randomRIO (1,1) >>= return . run . f
923+-}
924+
925+main :: IO ()
926+main =
927+ defaultMain
928+ [ o_1_space streamLen
929+ -- , o_n_stack streamLen iterStreamLen maxIters
930+ -- , o_n_heap streamLen
931+ , o_n_space streamLen
932+ ]
933+
934+ where
935+
936+ streamLen = 100000
937+ -- maxIters = 10000
938+ -- iterStreamLen = 10
benchmark/Streamly/Benchmark/Data/Stream/Transform.hsnew file+687
@@ -0,0 +1,687 @@
1+-- |
2+-- Module : Stream.Transform
3+-- Copyright : (c) 2018 Composewell Technologies
4+-- License : BSD-3-Clause
5+-- Maintainer : streamly@composewell.com
6+
7+{-# LANGUAGE CPP #-}
8+{-# LANGUAGE FlexibleContexts #-}
9+{-# LANGUAGE FlexibleInstances #-}
10+{-# LANGUAGE ScopedTypeVariables #-}
11+{-# LANGUAGE RankNTypes #-}
12+
13+{-# OPTIONS_GHC -Wno-orphans #-}
14+#ifdef USE_PRELUDE
15+{-# OPTIONS_GHC -Wno-deprecations #-}
16+#endif
17+
18+#ifdef __HADDOCK_VERSION__
19+#undef INSPECTION
20+#endif
21+
22+#ifdef INSPECTION
23+{-# LANGUAGE TemplateHaskell #-}
24+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
25+#endif
26+
27+module Stream.Transform (benchmarks) where
28+
29+import Control.Monad.IO.Class (MonadIO(..))
30+
31+import System.Random (randomRIO)
32+
33+import qualified Streamly.Internal.Data.Fold as FL
34+
35+import qualified Stream.Common as Common
36+import qualified Streamly.Internal.Data.Unfold as Unfold
37+
38+#ifdef USE_PRELUDE
39+import Control.DeepSeq (NFData(..))
40+import Data.Functor.Identity (Identity(..))
41+import qualified Prelude
42+import qualified Streamly.Internal.Data.Fold as Fold
43+import qualified Streamly.Internal.Data.Stream.IsStream as Stream
44+import Streamly.Internal.Data.Time.Units
45+#else
46+import Streamly.Internal.Data.Stream (Stream)
47+import qualified Streamly.Internal.Data.Stream as Stream
48+#ifndef USE_STREAMLY_CORE
49+import qualified Streamly.Internal.Data.Stream.Prelude as Stream
50+#endif
51+#ifdef USE_STREAMK
52+import Control.DeepSeq (NFData(..))
53+import Data.Functor.Identity (Identity(..))
54+import qualified Prelude
55+import qualified Streamly.Internal.Data.Fold as Fold
56+import Streamly.Internal.Data.StreamK (StreamK)
57+import qualified Streamly.Internal.Data.StreamK as StreamK
58+#endif
59+#endif
60+
61+import Test.Tasty.Bench
62+import Stream.Common hiding (scanl')
63+import Streamly.Benchmark.Common
64+import Prelude hiding (sequence, mapM)
65+
66+#ifdef USE_PRELUDE
67+type Stream = Stream.SerialT
68+#endif
69+
70+-------------------------------------------------------------------------------
71+-- Pipelines (stream-to-stream transformations)
72+-------------------------------------------------------------------------------
73+
74+-------------------------------------------------------------------------------
75+-- one-to-one transformations
76+-------------------------------------------------------------------------------
77+
78+-------------------------------------------------------------------------------
79+-- Traversable Instance
80+-------------------------------------------------------------------------------
81+
82+#ifdef USE_STREAMK
83+{-# INLINE traversableTraverse #-}
84+traversableTraverse :: StreamK Identity Int -> IO (StreamK Identity Int)
85+traversableTraverse = traverse return
86+
87+{-# INLINE traversableSequenceA #-}
88+traversableSequenceA :: StreamK Identity Int -> IO (StreamK Identity Int)
89+traversableSequenceA = sequenceA . Prelude.fmap return
90+
91+{-# INLINE traversableMapM #-}
92+traversableMapM :: StreamK Identity Int -> IO (StreamK Identity Int)
93+traversableMapM = Prelude.mapM return
94+
95+{-# INLINE traversableSequence #-}
96+traversableSequence :: StreamK Identity Int -> IO (StreamK Identity Int)
97+traversableSequence = Prelude.sequence . Prelude.fmap return
98+
99+{-# INLINE benchPureSinkIO #-}
100+benchPureSinkIO
101+ :: NFData b
102+ => Int -> String -> (StreamK Identity Int -> IO b) -> Benchmark
103+benchPureSinkIO value name f =
104+ bench name
105+ $ nfIO $ randomRIO (1, 1) >>= f . fromStream . sourceUnfoldr value
106+
107+instance NFData a => NFData (StreamK Identity a) where
108+ {-# INLINE rnf #-}
109+ rnf xs =
110+ runIdentity
111+ $ Stream.fold (Fold.foldl' (\_ x -> rnf x) ()) (toStream xs)
112+
113+o_n_space_traversable :: Int -> [Benchmark]
114+o_n_space_traversable value =
115+ -- Buffering operations using heap proportional to number of elements.
116+ [ bgroup "traversable"
117+ -- Traversable instance
118+ [ benchPureSinkIO value "traverse" traversableTraverse
119+ , benchPureSinkIO value "sequenceA" traversableSequenceA
120+ , benchPureSinkIO value "mapM" traversableMapM
121+ , benchPureSinkIO value "sequence" traversableSequence
122+ ]
123+ ]
124+#endif
125+
126+-------------------------------------------------------------------------------
127+-- maps and scans
128+-------------------------------------------------------------------------------
129+
130+#ifdef USE_PRELUDE
131+{-# INLINE scanl' #-}
132+scanl' :: MonadIO m => Int -> Stream m Int -> m ()
133+scanl' n = composeN n $ Stream.scanl' (+) 0
134+
135+{-# INLINE scanlM' #-}
136+scanlM' :: MonadIO m => Int -> Stream m Int -> m ()
137+scanlM' n = composeN n $ Stream.scanlM' (\b a -> return $ b + a) (return 0)
138+
139+{-# INLINE scanl1' #-}
140+scanl1' :: MonadIO m => Int -> Stream m Int -> m ()
141+scanl1' n = composeN n $ Stream.scanl1' (+)
142+
143+{-# INLINE scanl1M' #-}
144+scanl1M' :: MonadIO m => Int -> Stream m Int -> m ()
145+scanl1M' n = composeN n $ Stream.scanl1M' (\b a -> return $ b + a)
146+#endif
147+
148+{-# INLINE scan #-}
149+scan :: MonadIO m => Int -> Stream m Int -> m ()
150+scan n = composeN n $ Stream.scan FL.sum
151+
152+#ifdef USE_PRELUDE
153+{-# INLINE postscanl' #-}
154+postscanl' :: MonadIO m => Int -> Stream m Int -> m ()
155+postscanl' n = composeN n $ Stream.postscanl' (+) 0
156+
157+{-# INLINE postscanlM' #-}
158+postscanlM' :: MonadIO m => Int -> Stream m Int -> m ()
159+postscanlM' n = composeN n $ Stream.postscanlM' (\b a -> return $ b + a) (return 0)
160+#endif
161+
162+{-# INLINE postscan #-}
163+postscan :: MonadIO m => Int -> Stream m Int -> m ()
164+postscan n = composeN n $ Stream.postscan FL.sum
165+
166+{-# INLINE sequence #-}
167+sequence :: MonadAsync m => Stream m (m Int) -> m ()
168+sequence = Common.drain . Stream.sequence
169+
170+{-# INLINE tap #-}
171+tap :: MonadIO m => Int -> Stream m Int -> m ()
172+tap n = composeN n $ Stream.tap FL.sum
173+
174+#ifdef USE_PRELUDE
175+{-# INLINE pollCounts #-}
176+pollCounts :: Int -> Stream IO Int -> IO ()
177+pollCounts n =
178+ composeN n (Stream.pollCounts (const True) f)
179+
180+ where
181+
182+ f = Stream.drain . Stream.rollingMap2 (-) . Stream.delayPost 1
183+
184+{-# INLINE timestamped #-}
185+timestamped :: (MonadAsync m) => Stream m Int -> m ()
186+timestamped = Stream.drain . Stream.timestamped
187+#endif
188+
189+#ifdef USE_STREAMK
190+{-# INLINE foldrS #-}
191+foldrS :: MonadIO m => Int -> Stream m Int -> m ()
192+foldrS n =
193+ composeN n (toStream . StreamK.foldrS StreamK.cons StreamK.nil . fromStream)
194+
195+{-# INLINE foldrSMap #-}
196+foldrSMap :: MonadIO m => Int -> Stream m Int -> m ()
197+foldrSMap n =
198+ composeN n
199+ ( toStream
200+ . StreamK.foldrS (\x xs -> x + 1 `StreamK.cons` xs) StreamK.nil
201+ . fromStream
202+ )
203+#endif
204+
205+{-
206+{-# INLINE foldrT #-}
207+foldrT :: MonadIO m => Int -> Stream m Int -> m ()
208+foldrT n = composeN n (unCrossStream . Stream.foldrT cns (CrossStream Stream.nil))
209+
210+ where cns x (CrossStream xs) = CrossStream (Stream.cons x xs)
211+
212+{-# INLINE foldrTMap #-}
213+foldrTMap :: MonadIO m => Int -> Stream m Int -> m ()
214+foldrTMap n = composeN n $ Stream.foldrT (\x xs -> x + 1 `Stream.cons` xs) Stream.nil
215+-}
216+
217+{-# INLINE trace #-}
218+trace :: MonadAsync m => Int -> Stream m Int -> m ()
219+trace n = composeN n $ Stream.trace return
220+
221+o_1_space_mapping :: Int -> [Benchmark]
222+o_1_space_mapping value =
223+ [ bgroup
224+ "mapping"
225+ [
226+#ifdef USE_STREAMK
227+ -- Right folds
228+ benchIOSink value "foldrS" (foldrS 1)
229+ , benchIOSink value "foldrSMap" (foldrSMap 1)
230+ ,
231+#endif
232+ -- , benchIOSink value "foldrT" (foldrT 1)
233+ -- , benchIOSink value "foldrTMap" (foldrTMap 1)
234+
235+ -- Mapping
236+ benchIOSink value "map" (mapN 1)
237+ , bench "sequence" $ nfIO $ randomRIO (1, 1000) >>= \n ->
238+ sequence (sourceUnfoldrAction value n)
239+ , benchIOSink value "mapM" (mapM 1)
240+ , benchIOSink value "tap" (tap 1)
241+#ifdef USE_PRELUDE
242+ , benchIOSink value "pollCounts 1 second" (pollCounts 1)
243+ , benchIOSink value "timestamped" timestamped
244+
245+ -- Scanning
246+ , benchIOSink value "scanl'" (scanl' 1)
247+ , benchIOSink value "scanl1'" (scanl1' 1)
248+ , benchIOSink value "scanlM'" (scanlM' 1)
249+ , benchIOSink value "scanl1M'" (scanl1M' 1)
250+ , benchIOSink value "postscanl'" (postscanl' 1)
251+ , benchIOSink value "postscanlM'" (postscanlM' 1)
252+#endif
253+ , benchIOSink value "scan" (scan 1)
254+ , benchIOSink value "postscan" (postscan 1)
255+ ]
256+ ]
257+
258+o_1_space_mappingX4 :: Int -> [Benchmark]
259+o_1_space_mappingX4 value =
260+ [ bgroup "mappingX4"
261+ [ benchIOSink value "map" (mapN 4)
262+ , benchIOSink value "mapM" (mapM 4)
263+ , benchIOSink value "trace" (trace 4)
264+
265+#ifdef USE_PRELUDE
266+ , benchIOSink value "scanl'" (scanl' 4)
267+ , benchIOSink value "scanl1'" (scanl1' 4)
268+ , benchIOSink value "scanlM'" (scanlM' 4)
269+ , benchIOSink value "scanl1M'" (scanl1M' 4)
270+ , benchIOSink value "postscanl'" (postscanl' 4)
271+ , benchIOSink value "postscanlM'" (postscanlM' 4)
272+#endif
273+ ]
274+ ]
275+
276+{-# INLINE sieveScan #-}
277+sieveScan :: Monad m => Stream m Int -> Stream m Int
278+sieveScan =
279+ Stream.mapMaybe snd
280+ . Stream.scan (FL.foldlM' (\(primes, _) n -> do
281+ return $
282+ let ps = takeWhile (\p -> p * p <= n) primes
283+ in if all (\p -> n `mod` p /= 0) ps
284+ then (primes ++ [n], Just n)
285+ else (primes, Nothing)) (return ([2], Just 2)))
286+
287+o_n_space_mapping :: Int -> [Benchmark]
288+o_n_space_mapping value =
289+ [ bgroup "mapping"
290+ [ benchIO "naive prime sieve"
291+ (\n -> Stream.fold FL.sum $ sieveScan $ Stream.enumerateFromTo 2 (value + n))
292+ ]
293+ ]
294+
295+-------------------------------------------------------------------------------
296+-- Functor
297+-------------------------------------------------------------------------------
298+
299+o_1_space_functor :: Int -> [Benchmark]
300+o_1_space_functor value =
301+ [ bgroup "Functor"
302+ [ benchIOSink value "fmap" (mapN 1)
303+ , benchIOSink value "fmap x 4" (mapN 4)
304+ ]
305+ ]
306+
307+-------------------------------------------------------------------------------
308+-- Iteration/looping utilities
309+-------------------------------------------------------------------------------
310+
311+{-# INLINE iterateN #-}
312+iterateN :: (Int -> a -> a) -> a -> Int -> a
313+iterateN g initial count = f count initial
314+
315+ where
316+
317+ f (0 :: Int) x = x
318+ f i x = f (i - 1) (g i x)
319+
320+#ifdef USE_STREAMK
321+-- Iterate a transformation over a singleton stream
322+{-# INLINE iterateSingleton #-}
323+iterateSingleton :: Applicative m =>
324+ (Int -> StreamK m Int -> StreamK m Int)
325+ -> Int
326+ -> Int
327+ -> Stream m Int
328+iterateSingleton g count n = toStream $ iterateN g (StreamK.fromPure n) count
329+#else
330+-- Iterate a transformation over a singleton stream
331+{-# INLINE iterateSingleton #-}
332+iterateSingleton :: Applicative m =>
333+ (Int -> Stream m Int -> Stream m Int)
334+ -> Int
335+ -> Int
336+ -> Stream m Int
337+iterateSingleton g count n = iterateN g (Stream.fromPure n) count
338+#endif
339+
340+{-
341+-- XXX need to check why this is slower than the explicit recursion above, even
342+-- if the above code is written in a foldr like head recursive way. We also
343+-- need to try this with foldlM' once #150 is fixed.
344+-- However, it is perhaps best to keep the iteration benchmarks independent of
345+-- foldrM and any related fusion issues.
346+{-# INLINE _iterateSingleton #-}
347+_iterateSingleton ::
348+ Monad m
349+ => (Int -> Stream m Int -> Stream m Int)
350+ -> Int
351+ -> Int
352+ -> Stream m Int
353+_iterateSingleton g value n = S.foldrM g (return n) $ sourceIntFromTo value n
354+-}
355+
356+o_n_space_iterated :: Int -> [Benchmark]
357+o_n_space_iterated value =
358+ [ bgroup "iterated"
359+ [ benchIO "(+) (n times) (baseline)" $ \i0 ->
360+ iterateN (\i acc -> acc >>= \n -> return $ i + n) (return i0) value
361+ , benchIOSrc "(<$) (n times)" $
362+ iterateSingleton (<$) value
363+ , benchIOSrc "fmap (n times)" $
364+ iterateSingleton (fmap . (+)) value
365+ {-
366+ , benchIOSrc fromSerial "_(<$) (n times)" $
367+ _iterateSingleton (<$) value
368+ , benchIOSrc fromSerial "_fmap (n times)" $
369+ _iterateSingleton (fmap . (+)) value
370+ -}
371+ ]
372+ ]
373+
374+-------------------------------------------------------------------------------
375+-- Size reducing transformations (filtering)
376+-------------------------------------------------------------------------------
377+
378+{-# INLINE filterEven #-}
379+filterEven :: MonadIO m => Int -> Stream m Int -> m ()
380+filterEven n = composeN n $ Stream.filter even
381+
382+{-# INLINE filterAllOut #-}
383+filterAllOut :: MonadIO m => Int -> Int -> Stream m Int -> m ()
384+filterAllOut value n = composeN n $ Stream.filter (> (value + 1))
385+
386+{-# INLINE filterAllIn #-}
387+filterAllIn :: MonadIO m => Int -> Int -> Stream m Int -> m ()
388+filterAllIn value n = composeN n $ Stream.filter (<= (value + 1))
389+
390+{-# INLINE filterMEven #-}
391+filterMEven :: MonadIO m => Int -> Stream m Int -> m ()
392+filterMEven n = composeN n $ Stream.filterM (return . even)
393+
394+{-# INLINE filterMAllOut #-}
395+filterMAllOut :: MonadIO m => Int -> Int -> Stream m Int -> m ()
396+filterMAllOut value n = composeN n $ Stream.filterM (\x -> return $ x > (value + 1))
397+
398+{-# INLINE filterMAllIn #-}
399+filterMAllIn :: MonadIO m => Int -> Int -> Stream m Int -> m ()
400+filterMAllIn value n = composeN n $ Stream.filterM (\x -> return $ x <= (value + 1))
401+
402+{-# INLINE _takeOne #-}
403+_takeOne :: MonadIO m => Int -> Stream m Int -> m ()
404+_takeOne n = composeN n $ Stream.take 1
405+
406+{-# INLINE takeAll #-}
407+takeAll :: MonadIO m => Int -> Int -> Stream m Int -> m ()
408+takeAll value n = composeN n $ Stream.take (value + 1)
409+
410+{-# INLINE takeWhileTrue #-}
411+takeWhileTrue :: MonadIO m => Int -> Int -> Stream m Int -> m ()
412+takeWhileTrue value n = composeN n $ Stream.takeWhile (<= (value + 1))
413+
414+{-# INLINE takeWhileMTrue #-}
415+takeWhileMTrue :: MonadIO m => Int -> Int -> Stream m Int -> m ()
416+takeWhileMTrue value n = composeN n $ Stream.takeWhileM (return . (<= (value + 1)))
417+
418+#if !defined(USE_STREAMLY_CORE) && !defined(USE_PRELUDE)
419+{-# INLINE takeInterval #-}
420+takeInterval :: Double -> Int -> Stream IO Int -> IO ()
421+takeInterval i n = composeN n (Stream.takeInterval i)
422+
423+-- Inspection testing is disabled for takeInterval
424+-- Enable it when looking at it throughly
425+#ifdef INSPECTION
426+-- inspect $ hasNoType 'takeInterval ''SPEC
427+-- inspect $ hasNoTypeClasses 'takeInterval
428+-- inspect $ 'takeInterval `hasNoType` ''D.Step
429+#endif
430+
431+{-# INLINE dropInterval #-}
432+dropInterval :: Double -> Int -> Stream IO Int -> IO ()
433+dropInterval i n = composeN n (Stream.dropInterval i)
434+
435+-- Inspection testing is disabled for dropInterval
436+-- Enable it when looking at it throughly
437+#ifdef INSPECTION
438+-- inspect $ hasNoTypeClasses 'dropInterval
439+-- inspect $ 'dropInterval `hasNoType` ''D.Step
440+#endif
441+#endif
442+
443+{-# INLINE dropOne #-}
444+dropOne :: MonadIO m => Int -> Stream m Int -> m ()
445+dropOne n = composeN n $ Stream.drop 1
446+
447+{-# INLINE dropAll #-}
448+dropAll :: MonadIO m => Int -> Int -> Stream m Int -> m ()
449+dropAll value n = composeN n $ Stream.drop (value + 1)
450+
451+{-# INLINE dropWhileTrue #-}
452+dropWhileTrue :: MonadIO m => Int -> Int -> Stream m Int -> m ()
453+dropWhileTrue value n = composeN n $ Stream.dropWhile (<= (value + 1))
454+
455+{-# INLINE dropWhileMTrue #-}
456+dropWhileMTrue :: MonadIO m => Int -> Int -> Stream m Int -> m ()
457+dropWhileMTrue value n = composeN n $ Stream.dropWhileM (return . (<= (value + 1)))
458+
459+{-# INLINE dropWhileFalse #-}
460+dropWhileFalse :: MonadIO m => Int -> Int -> Stream m Int -> m ()
461+dropWhileFalse value n = composeN n $ Stream.dropWhile (> (value + 1))
462+
463+#ifdef USE_PRELUDE
464+-- XXX Decide on the time interval
465+{-# INLINE _intervalsOfSum #-}
466+_intervalsOfSum :: MonadAsync m => Double -> Int -> Stream m Int -> m ()
467+_intervalsOfSum i n = composeN n (Stream.intervalsOf i FL.sum)
468+#endif
469+
470+{-# INLINE findIndices #-}
471+findIndices :: MonadIO m => Int -> Int -> Stream m Int -> m ()
472+findIndices value n = composeN n $ Stream.findIndices (== (value + 1))
473+
474+{-# INLINE elemIndices #-}
475+elemIndices :: MonadIO m => Int -> Int -> Stream m Int -> m ()
476+elemIndices value n = composeN n $ Stream.elemIndices (value + 1)
477+
478+{-# INLINE deleteBy #-}
479+deleteBy :: MonadIO m => Int -> Int -> Stream m Int -> m ()
480+deleteBy value n = composeN n $ Stream.deleteBy (>=) (value + 1)
481+
482+-- uniq . uniq == uniq, composeN 2 ~ composeN 1
483+{-# INLINE uniq #-}
484+uniq :: MonadIO m => Int -> Stream m Int -> m ()
485+uniq n = composeN n Stream.uniq
486+
487+{-# INLINE mapMaybe #-}
488+mapMaybe :: MonadIO m => Int -> Stream m Int -> m ()
489+mapMaybe n =
490+ composeN n $
491+ Stream.mapMaybe
492+ (\x ->
493+ if odd x
494+ then Nothing
495+ else Just x)
496+
497+{-# INLINE mapMaybeM #-}
498+mapMaybeM :: MonadAsync m => Int -> Stream m Int -> m ()
499+mapMaybeM n =
500+ composeN n $
501+ Stream.mapMaybeM
502+ (\x ->
503+ if odd x
504+ then return Nothing
505+ else return $ Just x)
506+
507+o_1_space_filtering :: Int -> [Benchmark]
508+o_1_space_filtering value =
509+ [ bgroup "filtering"
510+ [ benchIOSink value "filter-even" (filterEven 1)
511+ , benchIOSink value "filter-all-out" (filterAllOut value 1)
512+ , benchIOSink value "filter-all-in" (filterAllIn value 1)
513+
514+ , benchIOSink value "filterM-even" (filterMEven 1)
515+ , benchIOSink value "filterM-all-out" (filterMAllOut value 1)
516+ , benchIOSink value "filterM-all-in" (filterMAllIn value 1)
517+
518+ -- Trimming
519+ , benchIOSink value "take-all" (takeAll value 1)
520+ , benchIOSink value "takeWhile-true" (takeWhileTrue value 1)
521+ -- , benchIOSink value "takeWhileM-true" (_takeWhileMTrue value 1)
522+ , benchIOSink value "drop-one" (dropOne 1)
523+ , benchIOSink value "drop-all" (dropAll value 1)
524+#if !defined(USE_STREAMLY_CORE) && !defined(USE_PRELUDE)
525+ , benchIOSink value "takeInterval-all" (takeInterval 10000 1)
526+ , benchIOSink value "dropInterval-all" (dropInterval 10000 1)
527+#endif
528+ , benchIOSink value "dropWhile-true" (dropWhileTrue value 1)
529+ -- , benchIOSink value "dropWhileM-true" (_dropWhileMTrue value 1)
530+ , benchIOSink
531+ value
532+ "dropWhile-false"
533+ (dropWhileFalse value 1)
534+ , benchIOSink value "deleteBy" (deleteBy value 1)
535+
536+ , benchIOSink value "uniq" (uniq 1)
537+
538+ -- Map and filter
539+ , benchIOSink value "mapMaybe" (mapMaybe 1)
540+ , benchIOSink value "mapMaybeM" (mapMaybeM 1)
541+
542+ -- Searching (stateful map and filter)
543+ , benchIOSink value "findIndices" (findIndices value 1)
544+ , benchIOSink value "elemIndices" (elemIndices value 1)
545+ ]
546+ ]
547+
548+o_1_space_filteringX4 :: Int -> [Benchmark]
549+o_1_space_filteringX4 value =
550+ [ bgroup "filteringX4"
551+ [ benchIOSink value "filter-even" (filterEven 4)
552+ , benchIOSink value "filter-all-out" (filterAllOut value 4)
553+ , benchIOSink value "filter-all-in" (filterAllIn value 4)
554+
555+ , benchIOSink value "filterM-even" (filterMEven 4)
556+ , benchIOSink value "filterM-all-out" (filterMAllOut value 4)
557+ , benchIOSink value "filterM-all-in" (filterMAllIn value 4)
558+
559+ -- trimming
560+ , benchIOSink value "take-all" (takeAll value 4)
561+ , benchIOSink value "takeWhile-true" (takeWhileTrue value 4)
562+ , benchIOSink value "takeWhileM-true" (takeWhileMTrue value 4)
563+ , benchIOSink value "drop-one" (dropOne 4)
564+ , benchIOSink value "drop-all" (dropAll value 4)
565+ , benchIOSink value "dropWhile-true" (dropWhileTrue value 4)
566+ , benchIOSink value "dropWhileM-true" (dropWhileMTrue value 4)
567+ , benchIOSink
568+ value
569+ "dropWhile-false"
570+ (dropWhileFalse value 4)
571+ , benchIOSink value "deleteBy" (deleteBy value 4)
572+
573+ , benchIOSink value "uniq" (uniq 4)
574+
575+ -- map and filter
576+ , benchIOSink value "mapMaybe" (mapMaybe 4)
577+ , benchIOSink value "mapMaybeM" (mapMaybeM 4)
578+
579+ -- searching
580+ , benchIOSink value "findIndices" (findIndices value 4)
581+ , benchIOSink value "elemIndices" (elemIndices value 4)
582+ ]
583+ ]
584+
585+-------------------------------------------------------------------------------
586+-- Size increasing transformations (insertions)
587+-------------------------------------------------------------------------------
588+
589+{-# INLINE intersperse #-}
590+intersperse :: MonadAsync m => Int -> Int -> Stream m Int -> m ()
591+intersperse value n = composeN n $ Stream.intersperse (value + 1)
592+
593+{-# INLINE intersperseM #-}
594+intersperseM :: MonadAsync m => Int -> Int -> Stream m Int -> m ()
595+intersperseM value n = composeN n $ Stream.intersperseM (return $ value + 1)
596+
597+{-# INLINE insertBy #-}
598+insertBy :: MonadIO m => Int -> Int -> Stream m Int -> m ()
599+insertBy value n = composeN n $ Stream.insertBy compare (value + 1)
600+
601+{-# INLINE interposeSuffix #-}
602+interposeSuffix :: Monad m => Int -> Int -> Stream m Int -> m ()
603+interposeSuffix value n =
604+ composeN n $ Stream.interposeSuffix (value + 1) Unfold.identity
605+
606+{-# INLINE intercalateSuffix #-}
607+intercalateSuffix :: Monad m => Int -> Int -> Stream m Int -> m ()
608+intercalateSuffix value n =
609+ composeN n $ Stream.intercalateSuffix Unfold.identity (value + 1)
610+
611+o_1_space_inserting :: Int -> [Benchmark]
612+o_1_space_inserting value =
613+ [ bgroup "inserting"
614+ [ benchIOSink value "intersperse" (intersperse value 1)
615+ , benchIOSink value "intersperseM" (intersperseM value 1)
616+ , benchIOSink value "insertBy" (insertBy value 1)
617+ , benchIOSink value "interposeSuffix" (interposeSuffix value 1)
618+ , benchIOSink value "intercalateSuffix" (intercalateSuffix value 1)
619+ ]
620+ ]
621+
622+o_1_space_insertingX4 :: Int -> [Benchmark]
623+o_1_space_insertingX4 value =
624+ [ bgroup "insertingX4"
625+ [ benchIOSink value "intersperse" (intersperse value 4)
626+ , benchIOSink value "insertBy" (insertBy value 4)
627+ ]
628+ ]
629+
630+-------------------------------------------------------------------------------
631+-- Indexing
632+-------------------------------------------------------------------------------
633+
634+{-# INLINE indexed #-}
635+indexed :: MonadIO m => Int -> Stream m Int -> m ()
636+indexed n = composeN n (fmap snd . Stream.indexed)
637+
638+{-# INLINE indexedR #-}
639+indexedR :: MonadIO m => Int -> Int -> Stream m Int -> m ()
640+indexedR value n = composeN n (fmap snd . Stream.indexedR value)
641+
642+o_1_space_indexing :: Int -> [Benchmark]
643+o_1_space_indexing value =
644+ [ bgroup "indexing"
645+ [ benchIOSink value "indexed" (indexed 1)
646+ , benchIOSink value "indexedR" (indexedR value 1)
647+ ]
648+ ]
649+
650+o_1_space_indexingX4 :: Int -> [Benchmark]
651+o_1_space_indexingX4 value =
652+ [ bgroup "indexingx4"
653+ [ benchIOSink value "indexed" (indexed 4)
654+ , benchIOSink value "indexedR" (indexedR value 4)
655+ ]
656+ ]
657+
658+-------------------------------------------------------------------------------
659+-- Main
660+-------------------------------------------------------------------------------
661+
662+-- In addition to gauge options, the number of elements in the stream can be
663+-- passed using the --stream-size option.
664+--
665+benchmarks :: String -> Int -> [Benchmark]
666+benchmarks moduleName size =
667+ [ bgroup (o_1_space_prefix moduleName) $ Prelude.concat
668+ [ o_1_space_functor size
669+ , o_1_space_mapping size
670+ , o_1_space_mappingX4 size
671+ , o_1_space_filtering size
672+ , o_1_space_filteringX4 size
673+ , o_1_space_inserting size
674+ , o_1_space_insertingX4 size
675+ , o_1_space_indexing size
676+ , o_1_space_indexingX4 size
677+ ]
678+ , bgroup (o_n_space_prefix moduleName) $ Prelude.concat
679+ [
680+#ifdef USE_STREAMK
681+ o_n_space_traversable size
682+ ,
683+#endif
684+ o_n_space_mapping size
685+ , o_n_space_iterated size
686+ ]
687+ ]
benchmark/Streamly/Benchmark/Data/Unfold.hsnew file+856
@@ -0,0 +1,856 @@
1+-- |
2+-- Module : Streamly.Benchmark.Data.Fold
3+-- Copyright : (c) 2018 Composewell
4+-- License : MIT
5+-- Maintainer : streamly@composewell.com
6+
7+{-# LANGUAGE FlexibleContexts #-}
8+{-# LANGUAGE CPP #-}
9+{-# LANGUAGE ScopedTypeVariables #-}
10+
11+#ifdef __HADDOCK_VERSION__
12+#undef INSPECTION
13+#endif
14+
15+#ifdef INSPECTION
16+{-# LANGUAGE TemplateHaskell #-}
17+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
18+#endif
19+
20+module Main (main) where
21+
22+import Control.DeepSeq (NFData(..))
23+import Control.Exception (SomeException, ErrorCall, try)
24+import Data.Char (ord)
25+import Data.Word (Word8)
26+import Streamly.Internal.Data.Unfold (Unfold)
27+import System.IO (Handle, hClose)
28+import System.Random (randomRIO)
29+
30+import qualified Prelude
31+import qualified Streamly.FileSystem.Handle as FH
32+import qualified Streamly.Internal.Data.Fold as FL
33+import qualified Streamly.Internal.Data.Unfold as UF
34+import qualified Streamly.Internal.Data.Unfold.Prelude as UF
35+import qualified Streamly.Internal.Data.Stream as S
36+import qualified Streamly.Internal.Data.Stream as D
37+import qualified Streamly.Internal.Data.StreamK as K
38+
39+import Test.Tasty.Bench hiding (env)
40+import Prelude hiding (take, filter, zipWith, map, mapM, takeWhile)
41+import Streamly.Benchmark.Common
42+import Streamly.Benchmark.Common.Handle
43+
44+#ifdef INSPECTION
45+import Control.Monad.Catch (MonadCatch)
46+import Test.Inspection
47+#endif
48+
49+{-# INLINE benchIO #-}
50+benchIO :: (NFData b) => String -> (Int -> IO b) -> Benchmark
51+benchIO name f = bench name $ nfIO $ randomRIO (1,1) >>= f
52+
53+-------------------------------------------------------------------------------
54+-- Stream generation and elimination
55+-------------------------------------------------------------------------------
56+
57+-- generate numbers up to the argument value
58+{-# INLINE source #-}
59+source :: Monad m => Int -> Unfold m Int Int
60+source n = UF.second n UF.enumerateFromToIntegral
61+
62+-------------------------------------------------------------------------------
63+-- Benchmark helpers
64+-------------------------------------------------------------------------------
65+
66+{-# INLINE drainGeneration #-}
67+drainGeneration :: Monad m => Unfold m a b -> a -> m ()
68+drainGeneration unf seed = UF.fold FL.drain unf seed
69+
70+{-# INLINE drainTransformation #-}
71+drainTransformation ::
72+ Monad m => Unfold m a b -> (Unfold m a b -> Unfold m c d) -> c -> m ()
73+drainTransformation unf f seed = drainGeneration (f unf) seed
74+
75+{-# INLINE drainTransformationDefault #-}
76+drainTransformationDefault ::
77+ Monad m => Int -> (Unfold m Int Int -> Unfold m c d) -> c -> m ()
78+drainTransformationDefault to =
79+ drainTransformation (UF.second to UF.enumerateFromToIntegral)
80+
81+{-# INLINE drainProduct #-}
82+drainProduct ::
83+ Monad m
84+ => Unfold m a b
85+ -> Unfold m c d
86+ -> (Unfold m a b -> Unfold m c d -> Unfold m e f)
87+ -> e
88+ -> m ()
89+drainProduct unf1 unf2 f seed = drainGeneration (f unf1 unf2) seed
90+
91+{-# INLINE drainProductDefault #-}
92+drainProductDefault ::
93+ Monad m
94+ => Int
95+ -> (Unfold m Int Int -> Unfold m Int Int -> Unfold m e f)
96+ -> e
97+ -> m ()
98+drainProductDefault to = drainProduct src src
99+
100+ where
101+
102+ src = UF.second to UF.enumerateFromToIntegral
103+
104+-------------------------------------------------------------------------------
105+-- Operations on input
106+-------------------------------------------------------------------------------
107+
108+{-# INLINE lmap #-}
109+lmap :: Monad m => Int -> Int -> m ()
110+lmap size start =
111+ drainTransformationDefault (size + start) (UF.lmap (+ 1)) start
112+
113+{-# INLINE lmapM #-}
114+lmapM :: Monad m => Int -> Int -> m ()
115+lmapM size start =
116+ drainTransformationDefault (size + start) (UF.lmapM (return . (+) 1)) start
117+
118+{-# INLINE both #-}
119+both :: Monad m => Int -> Int -> m ()
120+both size start =
121+ drainTransformationDefault (size + start) (UF.both start) undefined
122+
123+
124+{-# INLINE first #-}
125+first :: Monad m => Int -> Int -> m ()
126+first size start =
127+ drainTransformation
128+ (UF.take size UF.enumerateFromThenIntegral)
129+ (UF.first start)
130+ 1
131+
132+{-# INLINE second #-}
133+second :: Monad m => Int -> Int -> m ()
134+second size start =
135+ drainTransformation
136+ (UF.take size UF.enumerateFromThenIntegral)
137+ (UF.second 1)
138+ start
139+
140+{-# INLINE discardFirst #-}
141+discardFirst :: Monad m => Int -> Int -> m ()
142+discardFirst size start =
143+ drainTransformationDefault (size + start) UF.discardFirst (start, start)
144+
145+{-# INLINE discardSecond #-}
146+discardSecond :: Monad m => Int -> Int -> m ()
147+discardSecond size start =
148+ drainTransformationDefault (size + start) UF.discardSecond (start, start)
149+
150+{-# INLINE swap #-}
151+swap :: Monad m => Int -> Int -> m ()
152+swap size start =
153+ drainTransformation
154+ (UF.take size UF.enumerateFromThenIntegral)
155+ UF.swap
156+ (1, start)
157+
158+-------------------------------------------------------------------------------
159+-- Stream generation
160+-------------------------------------------------------------------------------
161+
162+{-# INLINE fromStream #-}
163+fromStream :: Int -> Int -> IO ()
164+fromStream size start =
165+ drainGeneration UF.fromStream (S.replicate size start :: S.Stream IO Int)
166+
167+-- XXX INVESTIGATE: Although the performance of this should be equivalant to
168+-- fromStream, this is considerably worse. More than 4x worse.
169+{-# INLINE fromStreamK #-}
170+fromStreamK :: Monad m => Int -> Int -> m ()
171+fromStreamK size start = drainGeneration UF.fromStreamK (K.replicate size start)
172+
173+{-# INLINE fromStreamD #-}
174+fromStreamD :: Monad m => Int -> Int -> m ()
175+fromStreamD size start =
176+ drainGeneration UF.fromStreamD (D.replicate size start)
177+
178+{-# INLINE _nilM #-}
179+_nilM :: Monad m => Int -> Int -> m ()
180+_nilM _ start = drainGeneration (UF.nilM return) start
181+
182+{-# INLINE consM #-}
183+consM :: Monad m => Int -> Int -> m ()
184+consM size start =
185+ drainTransformationDefault (size + start) (UF.consM return) start
186+
187+{-# INLINE _functionM #-}
188+_functionM :: Monad m => Int -> Int -> m ()
189+_functionM _ start = drainGeneration (UF.functionM return) start
190+
191+{-# INLINE _function #-}
192+_function :: Monad m => Int -> Int -> m ()
193+_function _ start = drainGeneration (UF.function id) start
194+
195+{-# INLINE _identity #-}
196+_identity :: Monad m => Int -> Int -> m ()
197+_identity _ start = drainGeneration UF.identity start
198+
199+{-# INLINE _const #-}
200+_const :: Monad m => Int -> Int -> m ()
201+_const size start =
202+ drainGeneration (UF.take size (UF.fromEffect (return start))) undefined
203+
204+{-# INLINE unfoldrM #-}
205+unfoldrM :: Monad m => Int -> Int -> m ()
206+unfoldrM size start = drainGeneration (UF.unfoldrM step) start
207+
208+ where
209+
210+ step i =
211+ return
212+ $ if i < start + size
213+ then Just (i, i + 1)
214+ else Nothing
215+
216+{-# INLINE fromList #-}
217+fromList :: Monad m => Int -> Int -> m ()
218+fromList size start = drainGeneration UF.fromList [start .. start + size]
219+
220+{-# INLINE fromListM #-}
221+fromListM :: Monad m => Int -> Int -> m ()
222+fromListM size start =
223+ drainGeneration UF.fromListM (Prelude.map return [start .. start + size])
224+
225+{-# INLINE _fromSVar #-}
226+_fromSVar :: Int -> Int -> m ()
227+_fromSVar = undefined
228+
229+{-# INLINE _fromProducer #-}
230+_fromProducer :: Int -> Int -> m ()
231+_fromProducer = undefined
232+
233+{-# INLINE replicateM #-}
234+replicateM :: Monad m => Int -> Int -> m ()
235+replicateM size start = drainGeneration UF.replicateM (size, return start)
236+
237+{-# INLINE repeatM #-}
238+repeatM :: Monad m => Int -> Int -> m ()
239+repeatM size start = drainGeneration (UF.take size UF.repeatM) (return start)
240+
241+{-# INLINE iterateM #-}
242+iterateM :: Monad m => Int -> Int -> m ()
243+iterateM size start =
244+ drainGeneration (UF.take size (UF.iterateM return)) (return start)
245+
246+{-# INLINE fromIndicesM #-}
247+fromIndicesM :: Monad m => Int -> Int -> m ()
248+fromIndicesM size start =
249+ drainGeneration (UF.take size (UF.fromIndicesM return)) start
250+
251+{-# INLINE enumerateFromThenIntegral #-}
252+enumerateFromThenIntegral :: Monad m => Int -> Int -> m ()
253+enumerateFromThenIntegral size start =
254+ drainGeneration (UF.take size UF.enumerateFromThenIntegral) (start, 1)
255+
256+{-# INLINE enumerateFromToIntegral #-}
257+enumerateFromToIntegral :: Monad m => Int -> Int -> m ()
258+enumerateFromToIntegral size start =
259+ drainGeneration
260+ ( UF.second
261+ (size + start)
262+ UF.enumerateFromToIntegral
263+ ) start
264+
265+{-# INLINE enumerateFromIntegral #-}
266+enumerateFromIntegral :: Monad m => Int -> Int -> m ()
267+enumerateFromIntegral size start =
268+ drainGeneration (UF.take size UF.enumerateFromIntegral) start
269+
270+{-# INLINE enumerateFromStepNum #-}
271+enumerateFromStepNum :: Monad m => Int -> Int -> m ()
272+enumerateFromStepNum size start =
273+ drainGeneration (UF.take size (UF.enumerateFromThenNum)) (start, 1)
274+
275+{-# INLINE enumerateFromNum #-}
276+enumerateFromNum :: Monad m => Int -> Int -> m ()
277+enumerateFromNum size start = drainGeneration (UF.take size UF.enumerateFromNum) start
278+
279+{-# INLINE enumerateFromToFractional #-}
280+enumerateFromToFractional :: Monad m => Int -> Int -> m ()
281+enumerateFromToFractional size start =
282+ let intToDouble x = (fromInteger (fromIntegral x)) :: Double
283+ in drainGeneration
284+ ( UF.second
285+ (intToDouble $ start + size)
286+ UF.enumerateFromToFractional
287+ )
288+ (intToDouble start)
289+
290+-------------------------------------------------------------------------------
291+-- Stream transformation
292+-------------------------------------------------------------------------------
293+
294+{-# INLINE postscan #-}
295+postscan :: Monad m => Int -> Int -> m ()
296+postscan size start =
297+ drainTransformationDefault (size + start) (UF.postscan FL.sum) start
298+
299+{-# INLINE map #-}
300+map :: Monad m => Int -> Int -> m ()
301+map size start = drainTransformationDefault (size + start) (UF.map (+1)) start
302+
303+{-# INLINE mapM #-}
304+mapM :: Monad m => Int -> Int -> m ()
305+mapM size start =
306+ drainTransformationDefault (size + start) (UF.mapM (return . (+) 1)) start
307+
308+{-# INLINE mapM2 #-}
309+mapM2 :: Monad m => Int -> Int -> m ()
310+mapM2 size start =
311+ drainTransformationDefault
312+ size
313+ (UF.mapM2 (\a b -> return $ a + b))
314+ start
315+
316+-------------------------------------------------------------------------------
317+-- Stream filtering
318+-------------------------------------------------------------------------------
319+
320+{-# INLINE takeWhileM #-}
321+takeWhileM :: Monad m => Int -> Int -> m ()
322+takeWhileM size start =
323+ drainTransformationDefault
324+ size
325+ (UF.takeWhileM (\b -> return (b <= size + start)))
326+ start
327+
328+{-# INLINE takeWhile #-}
329+takeWhile :: Monad m => Int -> Int -> m ()
330+takeWhile size start =
331+ drainTransformationDefault
332+ size
333+ (UF.takeWhile (\b -> b <= size + start))
334+ start
335+
336+{-# INLINE take #-}
337+take :: Monad m => Int -> Int -> m ()
338+take size start = drainTransformationDefault (size + start) (UF.take size) start
339+
340+{-# INLINE filter #-}
341+filter :: Monad m => Int -> Int -> m ()
342+filter size start =
343+ drainTransformationDefault (size + start) (UF.filter (\_ -> True)) start
344+
345+{-# INLINE filterM #-}
346+filterM :: Monad m => Int -> Int -> m ()
347+filterM size start =
348+ drainTransformationDefault
349+ (size + start)
350+ (UF.filterM (\_ -> (return True)))
351+ start
352+
353+{-# INLINE _dropOne #-}
354+_dropOne :: Monad m => Int -> Int -> m ()
355+_dropOne size start =
356+ drainTransformationDefault (size + start) (UF.drop 1) start
357+
358+{-# INLINE dropAll #-}
359+dropAll :: Monad m => Int -> Int -> m ()
360+dropAll size start =
361+ drainTransformationDefault (size + start) (UF.drop (size + 1)) start
362+
363+{-# INLINE dropWhileTrue #-}
364+dropWhileTrue :: Monad m => Int -> Int -> m ()
365+dropWhileTrue size start =
366+ drainTransformationDefault
367+ (size + start)
368+ (UF.dropWhileM (\_ -> return True))
369+ start
370+
371+{-# INLINE dropWhileFalse #-}
372+dropWhileFalse :: Monad m => Int -> Int -> m ()
373+dropWhileFalse size start =
374+ drainTransformationDefault
375+ (size + start)
376+ (UF.dropWhileM (\_ -> return False))
377+ start
378+
379+{-# INLINE dropWhileMTrue #-}
380+dropWhileMTrue :: Monad m => Int -> Int -> m ()
381+dropWhileMTrue size start =
382+ drainTransformationDefault
383+ size
384+ (UF.dropWhileM (\_ -> return True))
385+ start
386+
387+{-# INLINE dropWhileMFalse #-}
388+dropWhileMFalse :: Monad m => Int -> Int -> m ()
389+dropWhileMFalse size start =
390+ drainTransformationDefault
391+ size
392+ (UF.dropWhileM (\_ -> return False))
393+ start
394+
395+-------------------------------------------------------------------------------
396+-- Stream combination
397+-------------------------------------------------------------------------------
398+
399+{-# INLINE zipWith #-}
400+zipWith :: Monad m => Int -> Int -> m ()
401+zipWith size start =
402+ drainProductDefault (size + start) (UF.zipWith (+)) start
403+
404+{-# INLINE zipWithM #-}
405+zipWithM :: Monad m => Int -> Int -> m ()
406+zipWithM size start =
407+ drainProductDefault
408+ (size + start)
409+ (UF.zipWithM (\a b -> return $ a + b))
410+ start
411+
412+{-# INLINE teeZipWith #-}
413+teeZipWith :: Monad m => Int -> Int -> m ()
414+teeZipWith size start =
415+ drainProductDefault (size + start) (UF.zipWith (+)) start
416+
417+-------------------------------------------------------------------------------
418+-- Applicative
419+-------------------------------------------------------------------------------
420+
421+nthRoot :: Double -> Int -> Int
422+nthRoot n value = round (fromIntegral value**(1/n))
423+
424+{-# INLINE toNullAp #-}
425+toNullAp :: Monad m => Int -> Int -> m ()
426+toNullAp value start =
427+ let end = start + nthRoot 2 value
428+ s = source end
429+ -- in UF.fold ((+) <$> s <*> s) FL.drain start
430+ in UF.fold FL.drain ((+) `fmap` s `UF.crossApply` s) start
431+
432+{-# INLINE _apDiscardFst #-}
433+_apDiscardFst :: Int -> Int -> m ()
434+_apDiscardFst = undefined
435+
436+{-# INLINE _apDiscardSnd #-}
437+_apDiscardSnd :: Int -> Int -> m ()
438+_apDiscardSnd = undefined
439+
440+-------------------------------------------------------------------------------
441+-- Monad
442+-------------------------------------------------------------------------------
443+
444+{-# INLINE concatMapM #-}
445+concatMapM :: Monad m => Int -> Int -> m ()
446+concatMapM value start =
447+ val `seq` drainGeneration (UF.concatMapM unfoldInGen unfoldOut) start
448+
449+ where
450+
451+ val = nthRoot 2 value
452+ unfoldInGen i = return (UF.second (i + val) UF.enumerateFromToIntegral)
453+ unfoldOut = UF.second (start + val) UF.enumerateFromToIntegral
454+
455+{-# INLINE toNull #-}
456+toNull :: Monad m => Int -> Int -> m ()
457+toNull value start =
458+ let end = start + nthRoot 2 value
459+ src = source end
460+ {-
461+ u = do
462+ x <- src
463+ y <- src
464+ return (x + y)
465+ -}
466+ u = src `UF.bind` \x ->
467+ src `UF.bind` \y ->
468+ UF.fromPure (x + y)
469+ in UF.fold FL.drain u start
470+
471+
472+{-# INLINE toNull3 #-}
473+toNull3 :: Monad m => Int -> Int -> m ()
474+toNull3 value start =
475+ let end = start + nthRoot 3 value
476+ src = source end
477+ {-
478+ u = do
479+ x <- src
480+ y <- src
481+ z <- src
482+ return (x + y + z)
483+ -}
484+ u = src `UF.bind` \x ->
485+ src `UF.bind` \y ->
486+ UF.fromPure (x + y)
487+ in UF.fold FL.drain u start
488+
489+{-# INLINE toList #-}
490+toList :: Monad m => Int -> Int -> m [Int]
491+toList value start = do
492+ let end = start + nthRoot 2 value
493+ src = source end
494+ {-
495+ u = do
496+ x <- src
497+ y <- src
498+ return (x + y)
499+ -}
500+ u = src `UF.bind` \x ->
501+ src `UF.bind` \y ->
502+ UF.fromPure (x + y)
503+ in UF.fold FL.toList u start
504+
505+{-# INLINE toListSome #-}
506+toListSome :: Monad m => Int -> Int -> m [Int]
507+toListSome value start = do
508+ let end = start + nthRoot 2 value
509+ src = source end
510+ {-
511+ u = do
512+ x <- src
513+ y <- src
514+ return (x + y)
515+ -}
516+ u = src `UF.bind` \x ->
517+ src `UF.bind` \y ->
518+ UF.fromPure (x + y)
519+ in UF.fold FL.toList (UF.take 1000 u) start
520+
521+{-# INLINE filterAllOut #-}
522+filterAllOut :: Monad m => Int -> Int -> m ()
523+filterAllOut value start = do
524+ let end = start + nthRoot 2 value
525+ src = source end
526+ {-
527+ u = do
528+ x <- src
529+ y <- src
530+ -}
531+ u = src `UF.bind` \x ->
532+ src `UF.bind` \y ->
533+ let s = x + y
534+ in if s < 0
535+ then UF.fromPure s
536+ else UF.nilM (return . const ())
537+ in UF.fold FL.drain u start
538+
539+{-# INLINE filterAllIn #-}
540+filterAllIn :: Monad m => Int -> Int -> m ()
541+filterAllIn value start = do
542+ let end = start + nthRoot 2 value
543+ src = source end
544+ {-
545+ u = do
546+ x <- src
547+ y <- src
548+ -}
549+ u = src `UF.bind` \x ->
550+ src `UF.bind` \y ->
551+ let s = x + y
552+ in if s > 0
553+ then UF.fromPure s
554+ else UF.nilM (return . const ())
555+ in UF.fold FL.drain u start
556+
557+{-# INLINE filterSome #-}
558+filterSome :: Monad m => Int -> Int -> m ()
559+filterSome value start = do
560+ let end = start + nthRoot 2 value
561+ src = source end
562+ {-
563+ u = do
564+ x <- src
565+ y <- src
566+ -}
567+ u = src `UF.bind` \x ->
568+ src `UF.bind` \y ->
569+ let s = x + y
570+ in if s > 1100000
571+ then UF.fromPure s
572+ else UF.nilM (return . const ())
573+ in UF.fold FL.drain u start
574+
575+{-# INLINE breakAfterSome #-}
576+breakAfterSome :: Int -> Int -> IO ()
577+breakAfterSome value start =
578+ let end = start + nthRoot 2 value
579+ src = source end
580+ {-
581+ u = do
582+ x <- src
583+ y <- src
584+ -}
585+ u = src `UF.bind` \x ->
586+ src `UF.bind` \y ->
587+ let s = x + y
588+ in if s > 1100000
589+ then error "break"
590+ else UF.fromPure s
591+ in do
592+ (_ :: Either ErrorCall ()) <- try $ UF.fold FL.drain u start
593+ return ()
594+
595+-------------------------------------------------------------------------------
596+-- Benchmark ops
597+-------------------------------------------------------------------------------
598+
599+-- n * (n + 1) / 2 == linearCount
600+concatCount :: Int -> Int
601+concatCount linearCount =
602+ round (((1 + 8 * fromIntegral linearCount)**(1/2::Double) - 1) / 2)
603+
604+{-# INLINE many #-}
605+many :: Monad m => Int -> Int -> m ()
606+many linearCount start = do
607+ let end = start + concatCount linearCount
608+ UF.fold FL.drain (UF.many (source end) (source end)) start
609+
610+-------------------------------------------------------------------------------
611+-- Benchmarks
612+-------------------------------------------------------------------------------
613+
614+moduleName :: String
615+moduleName = "Data.Unfold"
616+
617+o_1_space_transformation_input :: Int -> [Benchmark]
618+o_1_space_transformation_input size =
619+ [ bgroup
620+ "transformation/input"
621+ [ benchIO "lmap" $ lmap size
622+ , benchIO "lmapM" $ lmapM size
623+ , benchIO "both" $ both size
624+ , benchIO "first" $ first size
625+ , benchIO "second" $ second size
626+ , benchIO "discardFirst" $ discardFirst size
627+ , benchIO "discardSecond" $ discardSecond size
628+ , benchIO "swap" $ swap size
629+ ]
630+ ]
631+
632+o_1_space_generation :: Int -> [Benchmark]
633+o_1_space_generation size =
634+ [ bgroup
635+ "generation"
636+ [ benchIO "fromStream" $ fromStream size
637+ , benchIO "fromStreamK" $ fromStreamK size
638+ , benchIO "fromStreamD" $ fromStreamD size
639+ -- Very small benchmarks, reporting in ns
640+ -- , benchIO "nilM" $ nilM size
641+ , benchIO "consM" $ consM size
642+ -- , benchIO "functionM" $ functionM size
643+ -- , benchIO "function" $ function size
644+ -- , benchIO "identity" $ identity size
645+ -- , benchIO "const" $ const size
646+ , benchIO "unfoldrM" $ unfoldrM size
647+ , benchIO "fromList" $ fromList size
648+ , benchIO "fromListM" $ fromListM size
649+ -- Unimplemented
650+ -- , benchIO "fromSVar" $ fromSVar size
651+ -- , benchIO "fromProducer" $ fromProducer size
652+ , benchIO "replicateM" $ replicateM size
653+ , benchIO "repeatM" $ repeatM size
654+ , benchIO "iterateM" $ iterateM size
655+ , benchIO "fromIndicesM" $ fromIndicesM size
656+ , benchIO "enumerateFromThenIntegral" $ enumerateFromThenIntegral size
657+ , benchIO "enumerateFromToIntegral" $ enumerateFromToIntegral size
658+ , benchIO "enumerateFromIntegral" $ enumerateFromIntegral size
659+ , benchIO "enumerateFromStepNum" $ enumerateFromStepNum size
660+ , benchIO "enumerateFromNum" $ enumerateFromNum size
661+ , benchIO "enumerateFromToFractional" $ enumerateFromToFractional size
662+ ]
663+ ]
664+
665+o_1_space_transformation :: Int -> [Benchmark]
666+o_1_space_transformation size =
667+ [ bgroup
668+ "transformation"
669+ [ benchIO "map" $ map size
670+ , benchIO "mapM" $ mapM size
671+ , benchIO "mapM2" $ mapM2 size
672+ , benchIO "postscan" $ postscan size
673+ ]
674+ ]
675+
676+o_1_space_filtering :: Int -> [Benchmark]
677+o_1_space_filtering size =
678+ [ bgroup
679+ "filtering"
680+ [ benchIO "takeWhileM" $ takeWhileM size
681+ , benchIO "takeWhile" $ takeWhile size
682+ , benchIO "take" $ take size
683+ , benchIO "filter" $ filter size
684+ , benchIO "filterM" $ filterM size
685+ -- Very small benchmark, reporting in ns
686+ -- , benchIO "dropOne" $ dropOne size
687+ , benchIO "dropAll" $ dropAll size
688+ , benchIO "dropWhileTrue" $ dropWhileTrue size
689+ , benchIO "dropWhileFalse" $ dropWhileFalse size
690+ , benchIO "dropWhileMTrue" $ dropWhileMTrue size
691+ , benchIO "dropWhileMFalse" $ dropWhileMFalse size
692+ ]
693+ ]
694+
695+o_1_space_zip :: Int -> [Benchmark]
696+o_1_space_zip size =
697+ [ bgroup
698+ "zip"
699+ [ benchIO "zipWithM" $ zipWithM size
700+ , benchIO "zipWith" $ zipWith size
701+ , benchIO "teeZipWith" $ teeZipWith size
702+ ]
703+ ]
704+
705+lf :: Word8
706+lf = fromIntegral (ord '\n')
707+
708+-- | Split on line feed.
709+foldManySepBy :: Handle -> IO Int
710+foldManySepBy =
711+ let u = UF.foldMany (FL.takeEndBy_ (== lf) FL.drain) FH.reader
712+ in UF.fold FL.length u
713+
714+o_1_space_nested :: BenchEnv -> Int -> [Benchmark]
715+o_1_space_nested env size =
716+ [ bgroup
717+ "nested"
718+ [ benchIO "(<*>) (sqrt n x sqrt n)" $ toNullAp size
719+ -- Unimplemented
720+ -- , benchIO "apDiscardFst" $ apDiscardFst size
721+ -- , benchIO "apDiscardSnd" $ apDiscardSnd size
722+
723+ , benchIO "concatMapM (sqrt n x sqrt n)" $ concatMapM size
724+ , benchIO "(>>=) (sqrt n x sqrt n)" $ toNull size
725+ , benchIO "(>>=) (cubert n x cubert n x cubert n)" $ toNull3 size
726+ , benchIO "breakAfterSome" $ breakAfterSome size
727+ , benchIO "filterAllOut" $ filterAllOut size
728+ , benchIO "filterAllIn" $ filterAllIn size
729+ , benchIO "filterSome" $ filterSome size
730+
731+ , benchIO "many" $ many size
732+ , mkBench "foldMany (Fold.takeEndBy_ (== lf) Fold.drain)" env
733+ $ \inh _ -> foldManySepBy inh
734+ ]
735+ ]
736+
737+o_n_space_nested :: Int -> [Benchmark]
738+o_n_space_nested size =
739+ [ bgroup
740+ "nested"
741+ [ benchIO "toList" $ toList size
742+ , benchIO "toListSome" $ toListSome size
743+ ]
744+ ]
745+
746+-------------------------------------------------------------------------------
747+-- Unfold Exception Benchmarks
748+-------------------------------------------------------------------------------
749+-- | Send the file contents to /dev/null with exception handling
750+readWriteOnExceptionUnfold :: Handle -> Handle -> IO ()
751+readWriteOnExceptionUnfold inh devNull =
752+ let readEx = UF.onException (\_ -> hClose inh) FH.reader
753+ in S.fold (FH.write devNull) $ S.unfold readEx inh
754+
755+#ifdef INSPECTION
756+-- inspect $ hasNoTypeClasses 'readWriteOnExceptionUnfold
757+-- inspect $ 'readWriteOnExceptionUnfold `hasNoType` ''Step
758+#endif
759+
760+-- | Send the file contents to /dev/null with exception handling
761+readWriteHandleExceptionUnfold :: Handle -> Handle -> IO ()
762+readWriteHandleExceptionUnfold inh devNull =
763+ let handler (_e :: SomeException) = hClose inh >> return 10
764+ readEx = UF.handle (UF.functionM handler) FH.reader
765+ in S.fold (FH.write devNull) $ S.unfold readEx inh
766+
767+#ifdef INSPECTION
768+-- hasNoTypeClasses started failing in GHC 9.4.4
769+-- inspect $ hasNoTypeClasses 'readWriteHandleExceptionUnfold
770+-- inspect $ 'readWriteHandleExceptionUnfold `hasNoType` ''Step
771+#endif
772+
773+-- | Send the file contents to /dev/null with exception handling
774+readWriteFinally_Unfold :: Handle -> Handle -> IO ()
775+readWriteFinally_Unfold inh devNull =
776+ let readEx = UF.finally_ (\_ -> hClose inh) FH.reader
777+ in S.fold (FH.write devNull) $ S.unfold readEx inh
778+
779+#ifdef INSPECTION
780+#if __GLASGOW_HASKELL__ >= 906
781+inspect $ hasNoTypeClassesExcept 'readWriteFinally_Unfold [''MonadCatch]
782+#else
783+inspect $ hasNoTypeClasses 'readWriteFinally_Unfold
784+#endif
785+-- inspect $ 'readWriteFinallyUnfold `hasNoType` ''Step
786+#endif
787+
788+readWriteFinallyUnfold :: Handle -> Handle -> IO ()
789+readWriteFinallyUnfold inh devNull =
790+ let readEx = UF.finally (\_ -> hClose inh) FH.reader
791+ in S.fold (FH.write devNull) $ S.unfold readEx inh
792+
793+-- | Send the file contents to /dev/null with exception handling
794+readWriteBracket_Unfold :: Handle -> Handle -> IO ()
795+readWriteBracket_Unfold inh devNull =
796+ let readEx = UF.bracket_ return (\_ -> hClose inh) FH.reader
797+ in S.fold (FH.write devNull) $ S.unfold readEx inh
798+
799+#ifdef INSPECTION
800+#if __GLASGOW_HASKELL__ >= 906
801+inspect $ hasNoTypeClassesExcept 'readWriteBracket_Unfold [''MonadCatch]
802+#else
803+inspect $ hasNoTypeClasses 'readWriteBracket_Unfold
804+#endif
805+-- inspect $ 'readWriteBracketUnfold `hasNoType` ''Step
806+#endif
807+
808+readWriteBracketUnfold :: Handle -> Handle -> IO ()
809+readWriteBracketUnfold inh devNull =
810+ let readEx = UF.bracket return (\_ -> hClose inh) FH.reader
811+ in S.fold (FH.write devNull) $ S.unfold readEx inh
812+
813+o_1_space_copy_read_exceptions :: BenchEnv -> [Benchmark]
814+o_1_space_copy_read_exceptions env =
815+ [ bgroup "exceptions"
816+ [ mkBenchSmall "UF.onException" env $ \inh _ ->
817+ readWriteOnExceptionUnfold inh (nullH env)
818+ , mkBenchSmall "UF.handle" env $ \inh _ ->
819+ readWriteHandleExceptionUnfold inh (nullH env)
820+ , mkBenchSmall "UF.finally_" env $ \inh _ ->
821+ readWriteFinally_Unfold inh (nullH env)
822+ , mkBenchSmall "UF.finally" env $ \inh _ ->
823+ readWriteFinallyUnfold inh (nullH env)
824+ , mkBenchSmall "UF.bracket_" env $ \inh _ ->
825+ readWriteBracket_Unfold inh (nullH env)
826+ , mkBenchSmall "UF.bracket" env $ \inh _ ->
827+ readWriteBracketUnfold inh (nullH env)
828+ ]
829+ ]
830+
831+
832+-------------------------------------------------------------------------------
833+-- Driver
834+-------------------------------------------------------------------------------
835+
836+main :: IO ()
837+main = do
838+ env <- mkHandleBenchEnv
839+ runWithCLIOpts defaultStreamSize (allBenchmarks env)
840+
841+ where
842+
843+ allBenchmarks env size =
844+ [ bgroup (o_1_space_prefix moduleName)
845+ $ Prelude.concat
846+ [ o_1_space_transformation_input size
847+ , o_1_space_generation size
848+ , o_1_space_transformation size
849+ , o_1_space_filtering size
850+ , o_1_space_zip size
851+ , o_1_space_nested env size
852+ , o_1_space_copy_read_exceptions env
853+ ]
854+ , bgroup (o_n_space_prefix moduleName)
855+ $ Prelude.concat [o_n_space_nested size]
856+ ]
benchmark/Streamly/Benchmark/FileSystem/Handle.hsnew file+52
@@ -0,0 +1,52 @@
1+-- |
2+-- Module : Streamly.Benchmark.FileSystem.Handle
3+-- Copyright : (c) 2019 Composewell Technologies
4+-- License : BSD-3-Clause
5+-- Maintainer : streamly@composewell.com
6+-- Stability : experimental
7+-- Portability : GHC
8+
9+{-# LANGUAGE CPP #-}
10+{-# LANGUAGE ScopedTypeVariables #-}
11+
12+#ifdef __HADDOCK_VERSION__
13+#undef INSPECTION
14+#endif
15+
16+#ifdef INSPECTION
17+{-# LANGUAGE TemplateHaskell #-}
18+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
19+#endif
20+import Streamly.Benchmark.Common.Handle (mkHandleBenchEnv)
21+
22+import qualified Handle.ReadWrite as RW
23+import qualified Handle.Read as RO
24+
25+import Test.Tasty.Bench hiding (env)
26+import Prelude hiding (last, length)
27+import Streamly.Benchmark.Common
28+
29+-------------------------------------------------------------------------------
30+--
31+-------------------------------------------------------------------------------
32+
33+moduleName :: String
34+moduleName = "FileSystem.Handle"
35+
36+-------------------------------------------------------------------------------
37+--
38+-------------------------------------------------------------------------------
39+
40+main :: IO ()
41+main = do
42+ env <- mkHandleBenchEnv
43+ defaultMain (allBenchmarks env)
44+
45+ where
46+
47+ allBenchmarks env =
48+ [ bgroup (o_1_space_prefix moduleName) $ Prelude.concat
49+ [ RO.allBenchmarks env
50+ , RW.allBenchmarks env
51+ ]
52+ ]
benchmark/Streamly/Benchmark/FileSystem/Handle/Read.hsnew file+305
@@ -0,0 +1,305 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+-- |
4+-- Module : Streamly.Benchmark.FileSystem.Handle
5+-- Copyright : (c) 2019 Composewell Technologies
6+-- License : BSD-3-Clause
7+-- Maintainer : streamly@composewell.com
8+-- Stability : experimental
9+-- Portability : GHC
10+
11+{-# LANGUAGE CPP #-}
12+{-# LANGUAGE ScopedTypeVariables #-}
13+
14+#ifdef __HADDOCK_VERSION__
15+#undef INSPECTION
16+#endif
17+
18+#ifdef INSPECTION
19+{-# LANGUAGE TemplateHaskell #-}
20+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
21+#endif
22+
23+module Handle.Read
24+ (allBenchmarks)
25+where
26+
27+import Data.Word (Word8)
28+import GHC.Magic (inline)
29+import GHC.Magic (noinline)
30+import System.IO (Handle)
31+
32+import qualified Streamly.Data.Stream as Stream
33+import qualified Streamly.Data.Fold as Fold
34+import qualified Streamly.FileSystem.Handle as FH
35+import qualified Streamly.Internal.Data.Array as A
36+import qualified Streamly.Internal.Data.Fold as FL
37+import qualified Streamly.Internal.Data.Stream as IP
38+import qualified Streamly.Internal.FileSystem.Handle as IFH
39+import qualified Streamly.Internal.Unicode.Stream as IUS
40+import qualified Streamly.Data.Stream.Prelude as S
41+import qualified Streamly.Unicode.Stream as SS
42+
43+import Test.Tasty.Bench hiding (env)
44+import Prelude hiding (last, length)
45+import Streamly.Benchmark.Common.Handle
46+
47+#ifdef INSPECTION
48+import Streamly.Internal.Data.Stream (Step(..), FoldMany)
49+
50+import qualified Streamly.Internal.Data.MutArray as MutArray
51+import qualified Streamly.Internal.Data.Stream as D
52+import qualified Streamly.Internal.Data.Unfold as IUF
53+
54+import Test.Inspection
55+#endif
56+
57+-- TBD reading with unfold
58+
59+-------------------------------------------------------------------------------
60+-- unfold read
61+-------------------------------------------------------------------------------
62+
63+-- | Get the last byte from a file bytestream.
64+readLast :: Handle -> IO (Maybe Word8)
65+readLast = S.fold Fold.last . S.unfold FH.reader
66+
67+#ifdef INSPECTION
68+inspect $ hasNoTypeClasses 'readLast
69+inspect $ 'readLast `hasNoType` ''Step -- S.unfold
70+inspect $ 'readLast `hasNoType` ''IUF.ConcatState -- FH.read/UF.many
71+inspect $ 'readLast `hasNoType` ''MutArray.ArrayUnsafe -- FH.read/A.read
72+#endif
73+
74+-- assert that flattenArrays constructors are not present
75+-- | Count the number of bytes in a file.
76+readCountBytes :: Handle -> IO Int
77+readCountBytes = S.fold Fold.length . S.unfold FH.reader
78+
79+#ifdef INSPECTION
80+inspect $ hasNoTypeClasses 'readCountBytes
81+inspect $ 'readCountBytes `hasNoType` ''Step -- S.unfold
82+inspect $ 'readCountBytes `hasNoType` ''IUF.ConcatState -- FH.read/UF.many
83+inspect $ 'readCountBytes `hasNoType` ''MutArray.ArrayUnsafe -- FH.read/A.read
84+#endif
85+
86+-- | Count the number of lines in a file.
87+readCountLines :: Handle -> IO Int
88+readCountLines =
89+ S.fold Fold.length
90+ . IUS.lines FL.drain
91+ . SS.decodeLatin1
92+ . S.unfold FH.reader
93+
94+#ifdef INSPECTION
95+inspect $ hasNoTypeClasses 'readCountLines
96+inspect $ 'readCountLines `hasNoType` ''Step
97+inspect $ 'readCountLines `hasNoType` ''IUF.ConcatState -- FH.read/UF.many
98+inspect $ 'readCountLines `hasNoType` ''MutArray.ArrayUnsafe -- FH.read/A.read
99+#endif
100+
101+-- | Count the number of words in a file.
102+readCountWords :: Handle -> IO Int
103+readCountWords =
104+ S.fold Fold.length
105+ . IUS.words FL.drain
106+ . SS.decodeLatin1
107+ . S.unfold FH.reader
108+
109+#ifdef INSPECTION
110+inspect $ hasNoTypeClasses 'readCountWords
111+-- inspect $ 'readCountWords `hasNoType` ''Step
112+#endif
113+
114+-- | Sum the bytes in a file.
115+readSumBytes :: Handle -> IO Word8
116+readSumBytes = S.fold Fold.sum . S.unfold FH.reader
117+
118+#ifdef INSPECTION
119+inspect $ hasNoTypeClasses 'readSumBytes
120+inspect $ 'readSumBytes `hasNoType` ''Step
121+inspect $ 'readSumBytes `hasNoType` ''IUF.ConcatState -- FH.read/UF.many
122+inspect $ 'readSumBytes `hasNoType` ''MutArray.ArrayUnsafe -- FH.read/A.read
123+#endif
124+
125+-- XXX When we mark this with INLINE and we have two benchmarks using S.drain
126+-- in one benchmark group then somehow GHC ends up delaying the inlining of
127+-- readDrain. Since S.drain has an INLINE[2] for proper rule firing, that does
128+-- not work well because of delyaed inlining and the code does not fuse. We
129+-- need some way of propagating the inline phase information up so that we can
130+-- expedite inlining of the callers too automatically. The minimal example for
131+-- the problem can be created by using just two benchmarks in a bench group
132+-- both using "readDrain". Either GHC should be fixed or we can use
133+-- fusion-plugin to propagate INLINE phase information such that this problem
134+-- does not occur.
135+readDrain :: Handle -> IO ()
136+readDrain inh = S.fold Fold.drain $ S.unfold FH.reader inh
137+
138+-- XXX investigate why we need an INLINE in this case (GHC)
139+{-# INLINE readDecodeLatin1 #-}
140+readDecodeLatin1 :: Handle -> IO ()
141+readDecodeLatin1 inh =
142+ S.fold Fold.drain
143+ $ SS.decodeLatin1
144+ $ S.unfold FH.reader inh
145+
146+readDecodeUtf8 :: Handle -> IO ()
147+readDecodeUtf8 inh =
148+ S.fold Fold.drain
149+ $ SS.decodeUtf8
150+ $ S.unfold FH.reader inh
151+
152+#ifdef INSPECTION
153+inspect $ hasNoTypeClasses 'readDecodeUtf8
154+-- inspect $ 'readDecodeUtf8Lax `hasNoType` ''Step
155+#endif
156+
157+o_1_space_reduce_read :: BenchEnv -> [Benchmark]
158+o_1_space_reduce_read env =
159+ [ bgroup "reduce/read"
160+ [ -- read raw bytes without any decoding
161+ mkBench "S.drain" env $ \inh _ ->
162+ readDrain inh
163+ , mkBench "S.last" env $ \inh _ ->
164+ readLast inh
165+ , mkBench "S.sum" env $ \inh _ ->
166+ readSumBytes inh
167+
168+ -- read with Latin1 decoding
169+ , mkBench "SS.decodeLatin1" env $ \inh _ ->
170+ readDecodeLatin1 inh
171+ , mkBench "S.length" env $ \inh _ ->
172+ readCountBytes inh
173+ , mkBench "US.lines . SS.decodeLatin1" env $ \inh _ ->
174+ readCountLines inh
175+ , mkBench "US.words . SS.decodeLatin1" env $ \inh _ ->
176+ readCountWords inh
177+
178+ -- read with utf8 decoding
179+ , mkBenchSmall "SS.decodeUtf8" env $ \inh _ ->
180+ readDecodeUtf8 inh
181+ ]
182+ ]
183+
184+-------------------------------------------------------------------------------
185+-- stream toBytes
186+-------------------------------------------------------------------------------
187+
188+-- | Count the number of lines in a file.
189+getChunksConcatUnfoldCountLines :: Handle -> IO Int
190+getChunksConcatUnfoldCountLines inh =
191+ S.fold Fold.length
192+ $ IUS.lines FL.drain
193+ $ SS.decodeLatin1
194+ -- XXX replace with toBytes
195+ $ S.unfoldMany A.reader (IFH.readChunks inh)
196+
197+#ifdef INSPECTION
198+inspect $ hasNoTypeClasses 'getChunksConcatUnfoldCountLines
199+inspect $ 'getChunksConcatUnfoldCountLines `hasNoType` ''Step
200+inspect $ 'getChunksConcatUnfoldCountLines `hasNoType` ''D.ConcatMapUState
201+#endif
202+
203+o_1_space_reduce_toBytes :: BenchEnv -> [Benchmark]
204+o_1_space_reduce_toBytes env =
205+ [ bgroup "reduce/toBytes"
206+ [ mkBench "US.lines . SS.decodeLatin1" env $ \inh _ ->
207+ getChunksConcatUnfoldCountLines inh
208+ ]
209+ ]
210+
211+-------------------------------------------------------------------------------
212+-- reduce after grouping in chunks
213+-------------------------------------------------------------------------------
214+
215+chunksOfSum :: Int -> Handle -> IO Int
216+chunksOfSum n inh =
217+ S.fold Fold.length $ IP.groupsOf n FL.sum (S.unfold FH.reader inh)
218+
219+foldManyPostChunksOfSum :: Int -> Handle -> IO Int
220+foldManyPostChunksOfSum n inh =
221+ S.fold Fold.length
222+ $ IP.foldManyPost (FL.take n FL.sum) (S.unfold FH.reader inh)
223+
224+foldManyChunksOfSum :: Int -> Handle -> IO Int
225+foldManyChunksOfSum n inh =
226+ S.fold Fold.length
227+ $ IP.foldMany (FL.take n FL.sum) (S.unfold FH.reader inh)
228+
229+-- XXX investigate why we need an INLINE in this case (GHC)
230+-- Even though allocations remain the same in both cases inlining improves time
231+-- by 4x.
232+-- | Slice in chunks of size n and get the count of chunks.
233+{-# INLINE groupsOf #-}
234+groupsOf :: Int -> Handle -> IO Int
235+groupsOf n inh =
236+ -- writeNUnsafe gives 2.5x boost here over writeN.
237+ S.fold Fold.length
238+ $ IP.groupsOf n (A.writeNUnsafe n) (S.unfold FH.reader inh)
239+
240+#ifdef INSPECTION
241+inspect $ hasNoTypeClasses 'groupsOf
242+inspect $ 'groupsOf `hasNoType` ''Step
243+inspect $ 'groupsOf `hasNoType` ''FoldMany
244+inspect $ 'groupsOf `hasNoType` ''MutArray.ArrayUnsafe -- AT.writeNUnsafe
245+ -- FH.read/A.read
246+inspect $ 'groupsOf `hasNoType` ''IUF.ConcatState -- FH.read/UF.many
247+#endif
248+
249+{-# INLINE chunksOf #-}
250+chunksOf :: Int -> Handle -> IO Int
251+chunksOf n inh =
252+ S.fold Fold.length $ Stream.chunksOf n (S.unfold FH.reader inh)
253+
254+o_1_space_reduce_read_grouped :: BenchEnv -> [Benchmark]
255+o_1_space_reduce_read_grouped env =
256+ [ bgroup "reduce/read/chunks"
257+ [ mkBench ("S.groupsOf " ++ show (bigSize env) ++ " FL.sum") env $
258+ \inh _ ->
259+ chunksOfSum (bigSize env) inh
260+ , mkBench "S.groupsOf 1 FL.sum" env $ \inh _ ->
261+ chunksOfSum 1 inh
262+
263+ -- XXX investigate why we need inline/noinline in these cases (GHC)
264+ -- Chunk using parsers
265+ , mkBench
266+ ("S.foldManyPost (FL.take " ++ show (bigSize env) ++ " FL.sum)")
267+ env
268+ $ \inh _ -> noinline foldManyPostChunksOfSum (bigSize env) inh
269+ , mkBench
270+ "S.foldManyPost (FL.take 1 FL.sum)"
271+ env
272+ $ \inh _ -> inline foldManyPostChunksOfSum 1 inh
273+ , mkBench
274+ ("S.foldMany (FL.take " ++ show (bigSize env) ++ " FL.sum)")
275+ env
276+ $ \inh _ -> noinline foldManyChunksOfSum (bigSize env) inh
277+ , mkBench
278+ "S.foldMany (FL.take 1 FL.sum)"
279+ env
280+ $ \inh _ -> inline foldManyChunksOfSum 1 inh
281+
282+ -- folding chunks to arrays
283+ , mkBenchSmall "S.groupsOf 1" env $ \inh _ ->
284+ groupsOf 1 inh
285+ , mkBench "S.groupsOf 10" env $ \inh _ ->
286+ groupsOf 10 inh
287+ , mkBench "S.groupsOf 1000" env $ \inh _ ->
288+ groupsOf 1000 inh
289+
290+ -- chunksOf may use a different impl than groupsOf
291+ , mkBenchSmall "S.chunksOf 1" env $ \inh _ ->
292+ chunksOf 1 inh
293+ , mkBench "S.chunksOf 10" env $ \inh _ ->
294+ chunksOf 10 inh
295+ , mkBench "S.chunksOf 1000" env $ \inh _ ->
296+ chunksOf 1000 inh
297+ ]
298+ ]
299+
300+allBenchmarks :: BenchEnv -> [Benchmark]
301+allBenchmarks env = Prelude.concat
302+ [ o_1_space_reduce_read env
303+ , o_1_space_reduce_toBytes env
304+ , o_1_space_reduce_read_grouped env
305+ ]
benchmark/Streamly/Benchmark/FileSystem/Handle/ReadWrite.hsnew file+214
@@ -0,0 +1,214 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+-- |
4+-- Module : Streamly.Benchmark.FileSystem.Handle
5+-- Copyright : (c) 2019 Composewell Technologies
6+-- License : BSD3-3-Clause
7+-- Maintainer : streamly@composewell.com
8+-- Stability : experimental
9+-- Portability : GHC
10+
11+{-# LANGUAGE CPP #-}
12+{-# LANGUAGE ScopedTypeVariables #-}
13+
14+#ifdef __HADDOCK_VERSION__
15+#undef INSPECTION
16+#endif
17+
18+#ifdef INSPECTION
19+{-# LANGUAGE TemplateHaskell #-}
20+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
21+#endif
22+
23+module Handle.ReadWrite
24+ (allBenchmarks)
25+where
26+
27+import System.IO (Handle)
28+import Prelude hiding (last, length)
29+import Streamly.Internal.System.IO (defaultChunkSize)
30+
31+import qualified Streamly.FileSystem.Handle as FH
32+import qualified Streamly.Internal.Data.Unfold as IUF
33+import qualified Streamly.Internal.FileSystem.Handle as IFH
34+import qualified Streamly.Data.Array as A
35+import qualified Streamly.Data.Stream.Prelude as S
36+
37+import Test.Tasty.Bench hiding (env)
38+import Streamly.Benchmark.Common.Handle
39+
40+#ifdef INSPECTION
41+import Streamly.Internal.Data.Stream (Step(..))
42+
43+import qualified Streamly.Internal.Data.Stream as D
44+import qualified Streamly.Internal.Data.Tuple.Strict as Strict
45+import qualified Streamly.Internal.Data.MutArray as MutArray
46+
47+import Test.Inspection
48+#endif
49+
50+-------------------------------------------------------------------------------
51+-- copy chunked
52+-------------------------------------------------------------------------------
53+
54+-- | Copy file
55+copyChunks :: Handle -> Handle -> IO ()
56+copyChunks inh outh = S.fold (IFH.writeChunks outh) $ IFH.readChunks inh
57+
58+#ifdef INSPECTION
59+inspect $ hasNoTypeClasses 'copyChunks
60+inspect $ 'copyChunks `hasNoType` ''Step
61+#endif
62+
63+o_1_space_copy_chunked :: BenchEnv -> [Benchmark]
64+o_1_space_copy_chunked env =
65+ [ bgroup "copy/getChunks"
66+ [ mkBench "toNull" env $ \inH _ ->
67+ copyChunks inH (nullH env)
68+ , mkBench "raw" env $ \inH outH ->
69+ copyChunks inH outH
70+ ]
71+ ]
72+
73+-------------------------------------------------------------------------------
74+-- copy unfold
75+-------------------------------------------------------------------------------
76+
77+-- | Copy file
78+copyStream :: Handle -> Handle -> IO ()
79+copyStream inh outh = S.fold (FH.write outh) (S.unfold FH.reader inh)
80+
81+#ifdef INSPECTION
82+inspect $ hasNoTypeClasses 'copyStream
83+inspect $ 'copyStream `hasNoType` ''Step -- S.unfold
84+inspect $ 'copyStream `hasNoType` ''IUF.ConcatState -- FH.read/UF.many
85+inspect $ 'copyStream `hasNoType` ''MutArray.ArrayUnsafe -- FH.write/writeNUnsafe
86+ -- FH.read/A.read
87+inspect $ 'copyStream `hasNoType` ''Strict.Tuple3' -- FH.write/chunksOf
88+#endif
89+
90+o_1_space_copy_read :: BenchEnv -> [Benchmark]
91+o_1_space_copy_read env =
92+ [ bgroup "copy/read"
93+ [ mkBench "rawToNull" env $ \inh _ ->
94+ copyStream inh (nullH env)
95+ , mkBench "rawToFile" env $ \inh outh ->
96+ copyStream inh outh
97+ ]
98+ ]
99+
100+-------------------------------------------------------------------------------
101+-- copy stream
102+-------------------------------------------------------------------------------
103+
104+-- | Send the file contents to /dev/null
105+readFromBytesNull :: Handle -> Handle -> IO ()
106+readFromBytesNull inh devNull = IFH.putBytes devNull $ S.unfold FH.reader inh
107+
108+#ifdef INSPECTION
109+inspect $ hasNoTypeClasses 'readFromBytesNull
110+inspect $ 'readFromBytesNull `hasNoType` ''Step
111+inspect $ 'readFromBytesNull `hasNoType` ''MutArray.SpliceState
112+inspect $ 'readFromBytesNull `hasNoType` ''MutArray.ArrayUnsafe -- FH.fromBytes/S.chunksOf
113+inspect $ 'readFromBytesNull `hasNoType` ''D.FoldMany
114+#endif
115+
116+-- | Send the file contents ('defaultChunkSize') to /dev/null
117+readWithFromBytesNull :: Handle -> Handle -> IO ()
118+readWithFromBytesNull inh devNull =
119+ IFH.putBytes devNull
120+ $ S.unfold FH.readerWith (defaultChunkSize, inh)
121+
122+#ifdef INSPECTION
123+inspect $ hasNoTypeClasses 'readWithFromBytesNull
124+inspect $ 'readWithFromBytesNull `hasNoType` ''Step
125+inspect $ 'readWithFromBytesNull `hasNoType` ''MutArray.SpliceState
126+inspect $ 'readWithFromBytesNull `hasNoType` ''MutArray.ArrayUnsafe -- FH.fromBytes/S.chunksOf
127+inspect $ 'readWithFromBytesNull `hasNoType` ''D.FoldMany
128+#endif
129+
130+-- | Send the chunk content ('defaultChunkSize') to /dev/null
131+-- Implicitly benchmarked via 'readFromBytesNull'
132+_readChunks :: Handle -> Handle -> IO ()
133+_readChunks inh devNull = IUF.fold fld unf inh
134+
135+ where
136+
137+ fld = FH.write devNull
138+ unf = IUF.many A.reader FH.chunkReader
139+
140+-- | Send the chunk content to /dev/null
141+-- Implicitly benchmarked via 'readWithFromBytesNull'
142+_readChunksWith :: Handle -> Handle -> IO ()
143+_readChunksWith inh devNull = IUF.fold fld unf (defaultChunkSize, inh)
144+
145+ where
146+
147+ fld = FH.write devNull
148+ unf = IUF.many A.reader FH.chunkReaderWith
149+
150+o_1_space_copy_fromBytes :: BenchEnv -> [Benchmark]
151+o_1_space_copy_fromBytes env =
152+ [ bgroup "copy/putBytes"
153+ [ mkBench "rawToNull" env $ \inh _ ->
154+ readFromBytesNull inh (nullH env)
155+ , mkBench "FH.readWith" env $ \inh _ ->
156+ readWithFromBytesNull inh (nullH env)
157+ ]
158+ ]
159+
160+-- | Send the file contents ('defaultChunkSize') to /dev/null
161+writeReadWith :: Handle -> Handle -> IO ()
162+writeReadWith inh devNull = IUF.fold fld unf (defaultChunkSize, inh)
163+
164+ where
165+
166+ fld = FH.writeWith defaultChunkSize devNull
167+ unf = FH.readerWith
168+
169+#ifdef INSPECTION
170+inspect $ hasNoTypeClasses 'writeReadWith
171+inspect $ 'writeReadWith `hasNoType` ''Step
172+inspect $ 'writeReadWith `hasNoType` ''IUF.ConcatState -- FH.read/UF.many
173+inspect $ 'writeReadWith `hasNoType` ''MutArray.ArrayUnsafe -- FH.write/writeNUnsafe
174+ -- FH.read/A.read
175+#endif
176+
177+-- | Send the file contents ('AT.defaultChunkSize') to /dev/null
178+writeRead :: Handle -> Handle -> IO ()
179+writeRead inh devNull = IUF.fold fld unf inh
180+
181+ where
182+
183+ fld = FH.write devNull
184+ unf = FH.reader
185+
186+#ifdef INSPECTION
187+inspect $ hasNoTypeClasses 'writeRead
188+inspect $ 'writeRead `hasNoType` ''Step
189+inspect $ 'writeRead `hasNoType` ''IUF.ConcatState -- FH.read/UF.many
190+inspect $ 'writeRead `hasNoType` ''MutArray.ArrayUnsafe -- FH.write/writeNUnsafe
191+ -- FH.read/A.read
192+#endif
193+
194+o_1_space_copy :: BenchEnv -> [Benchmark]
195+o_1_space_copy env =
196+ [ bgroup "copy"
197+ [ mkBench "FH.write . FH.read" env $ \inh _ ->
198+ writeRead inh (nullH env)
199+ , mkBench "FH.writeWith . FH.readWith" env $ \inh _ ->
200+ writeReadWith inh (nullH env)
201+ ]
202+ ]
203+
204+-------------------------------------------------------------------------------
205+--
206+-------------------------------------------------------------------------------
207+
208+allBenchmarks :: BenchEnv -> [Benchmark]
209+allBenchmarks env = Prelude.concat
210+ [ o_1_space_copy_chunked env
211+ , o_1_space_copy_read env
212+ , o_1_space_copy_fromBytes env
213+ , o_1_space_copy env
214+ ]
benchmark/Streamly/Benchmark/Prelude/Adaptive.hsnew file+143
@@ -0,0 +1,143 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+-- |
4+-- Module : Main
5+-- Copyright : (c) 2018 Composewell Technologies
6+--
7+-- License : BSD3
8+-- Maintainer : streamly@composewell.com
9+
10+import Control.Concurrent (threadDelay)
11+import Control.Monad (when)
12+import Control.Monad.IO.Class (liftIO)
13+import Test.Tasty.Bench
14+import Streamly.Prelude as S
15+import System.Random (randomRIO)
16+
17+-- Note that we should also compare the cpuTime especially when threaded
18+-- runtime is used with this benchmark because thread scheduling is not
19+-- predictable and can add non-deterministic delay to the total time measured.
20+--
21+-- Also, the worker dispatch depends on the worker dispatch latency which is
22+-- set to fixed 200 us. We need to keep that in mind when designing tests.
23+
24+moduleName :: String
25+moduleName = "Prelude.Adaptive"
26+
27+value :: Int
28+value = 1000
29+
30+{-# INLINE source #-}
31+source :: IsStream t => (Int, Int) -> t IO Int
32+source range = S.replicateM value $ do
33+ r <- randomRIO range
34+ when (r /= 0) $ liftIO $ threadDelay r
35+ return r
36+
37+{-# INLINE run #-}
38+run :: IsStream t => (Int, Int) -> (Int, Int) -> (t IO Int -> SerialT IO Int) -> IO ()
39+run srange crange t = S.drain $ S.mapM action (t $ source srange)
40+
41+ where
42+
43+ action x = liftIO $ do
44+ d <- randomRIO crange
45+ when (d /= 0) $ threadDelay d
46+ return x
47+
48+low, medium, high :: Int
49+low = 10
50+medium = 20
51+high = 30
52+
53+{-# INLINE noDelay #-}
54+noDelay :: IsStream t => (t IO Int -> SerialT IO Int) -> IO ()
55+noDelay = run (0,0) (0,0)
56+
57+{-# INLINE alwaysConstSlowSerial #-}
58+alwaysConstSlowSerial :: IsStream t => (t IO Int -> SerialT IO Int) -> IO ()
59+alwaysConstSlowSerial = run (0,0) (medium,medium)
60+
61+{-# INLINE alwaysConstSlow #-}
62+alwaysConstSlow :: IsStream t => (t IO Int -> SerialT IO Int) -> IO ()
63+alwaysConstSlow = run (low,low) (medium,medium)
64+
65+{-# INLINE alwaysConstFast #-}
66+alwaysConstFast :: IsStream t => (t IO Int -> SerialT IO Int) -> IO ()
67+alwaysConstFast = run (high,high) (medium,medium)
68+
69+{-# INLINE alwaysVarSlow #-}
70+alwaysVarSlow :: IsStream t => (t IO Int -> SerialT IO Int) -> IO ()
71+alwaysVarSlow = run (low,low) (low,high)
72+
73+{-# INLINE alwaysVarFast #-}
74+alwaysVarFast :: IsStream t => (t IO Int -> SerialT IO Int) -> IO ()
75+alwaysVarFast = run (high,high) (low,high)
76+
77+-- XXX add variable producer tests as well
78+
79+{-# INLINE runVarSometimesFast #-}
80+runVarSometimesFast :: IsStream t => (t IO Int -> SerialT IO Int) -> IO ()
81+runVarSometimesFast = run (medium,medium) (low,high)
82+
83+{-# INLINE randomVar #-}
84+randomVar :: IsStream t => (t IO Int -> SerialT IO Int) -> IO ()
85+randomVar = run (low,high) (low,high)
86+
87+main :: IO ()
88+main =
89+ defaultMain [bgroup moduleName allBenchmarks]
90+
91+ where
92+
93+ allBenchmarks =
94+ [
95+ bgroup "serialConstantSlowConsumer"
96+ [ bench "serially" $ nfIO $ alwaysConstSlowSerial fromSerial
97+ , bench "wSerially" $ nfIO $ alwaysConstSlowSerial fromWSerial
98+ ]
99+ , bgroup "default"
100+ [ bench "serially" $ nfIO $ noDelay fromSerial
101+ , bench "wSerially" $ nfIO $ noDelay fromWSerial
102+ , bench "aheadly" $ nfIO $ noDelay fromAhead
103+ , bench "asyncly" $ nfIO $ noDelay fromAsync
104+ , bench "wAsyncly" $ nfIO $ noDelay fromWAsync
105+ , bench "parallely" $ nfIO $ noDelay fromParallel
106+ ]
107+ , bgroup "constantSlowConsumer"
108+ [ bench "aheadly" $ nfIO $ alwaysConstSlow fromAhead
109+ , bench "asyncly" $ nfIO $ alwaysConstSlow fromAsync
110+ , bench "wAsyncly" $ nfIO $ alwaysConstSlow fromWAsync
111+ , bench "parallely" $ nfIO $ alwaysConstSlow fromParallel
112+ ]
113+ , bgroup "constantFastConsumer"
114+ [ bench "aheadly" $ nfIO $ alwaysConstFast fromAhead
115+ , bench "asyncly" $ nfIO $ alwaysConstFast fromAsync
116+ , bench "wAsyncly" $ nfIO $ alwaysConstFast fromWAsync
117+ , bench "parallely" $ nfIO $ alwaysConstFast fromParallel
118+ ]
119+ , bgroup "variableSlowConsumer"
120+ [ bench "aheadly" $ nfIO $ alwaysVarSlow fromAhead
121+ , bench "asyncly" $ nfIO $ alwaysVarSlow fromAsync
122+ , bench "wAsyncly" $ nfIO $ alwaysVarSlow fromWAsync
123+ , bench "parallely" $ nfIO $ alwaysVarSlow fromParallel
124+ ]
125+ , bgroup "variableFastConsumer"
126+ [ bench "aheadly" $ nfIO $ alwaysVarFast fromAhead
127+ , bench "asyncly" $ nfIO $ alwaysVarFast fromAsync
128+ , bench "wAsyncly" $ nfIO $ alwaysVarFast fromWAsync
129+ , bench "parallely" $ nfIO $ alwaysVarFast fromParallel
130+ ]
131+ , bgroup "variableSometimesFastConsumer"
132+ [ bench "aheadly" $ nfIO $ runVarSometimesFast fromAhead
133+ , bench "asyncly" $ nfIO $ runVarSometimesFast fromAsync
134+ , bench "wAsyncly" $ nfIO $ runVarSometimesFast fromWAsync
135+ , bench "parallely" $ nfIO $ runVarSometimesFast fromParallel
136+ ]
137+ , bgroup "variableFullOverlap"
138+ [ bench "aheadly" $ nfIO $ randomVar fromAhead
139+ , bench "asyncly" $ nfIO $ randomVar fromAsync
140+ , bench "wAsyncly" $ nfIO $ randomVar fromWAsync
141+ , bench "parallely" $ nfIO $ randomVar fromParallel
142+ ]
143+ ]
benchmark/Streamly/Benchmark/Prelude/Ahead.hsnew file+135
@@ -0,0 +1,135 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+-- |
4+-- Module : Main
5+-- Copyright : (c) 2018 Composewell Technologies
6+--
7+-- License : BSD3
8+-- Maintainer : streamly@composewell.com
9+
10+import Prelude hiding (mapM)
11+
12+import Streamly.Prelude (fromAhead, fromSerial, ahead, maxBuffer, maxThreads)
13+import qualified Streamly.Prelude as S
14+
15+import Streamly.Benchmark.Common
16+import Streamly.Benchmark.Prelude
17+
18+import Test.Tasty.Bench
19+
20+moduleName :: String
21+moduleName = "Prelude.Ahead"
22+
23+-------------------------------------------------------------------------------
24+-- Benchmark groups
25+-------------------------------------------------------------------------------
26+
27+-- unfoldr and fromFoldable are always serial and therefore the same for
28+-- all stream types. They can be removed to reduce the number of benchmarks.
29+o_1_space_generation :: Int -> [Benchmark]
30+o_1_space_generation value =
31+ [ bgroup "generation"
32+ [ benchIOSrc fromAhead "unfoldr" (sourceUnfoldr value)
33+ , benchIOSrc fromAhead "unfoldrM" (sourceUnfoldrM value)
34+ , benchIOSrc fromAhead "fromFoldable" (sourceFromFoldable value)
35+ , benchIOSrc fromAhead "fromFoldableM" (sourceFromFoldableM value)
36+ , benchIOSrc fromAhead "unfoldrM maxThreads 1"
37+ (maxThreads 1 . sourceUnfoldrM value)
38+ , benchIOSrc fromAhead "unfoldrM maxBuffer 1 (x/10 ops)"
39+ (maxBuffer 1 . sourceUnfoldrM (value `div` 10))
40+ ]
41+ ]
42+
43+o_1_space_mapping :: Int -> [Benchmark]
44+o_1_space_mapping value =
45+ [ bgroup "mapping"
46+ [ benchIOSink value "map" $ mapN fromAhead 1
47+ , benchIOSink value "fmap" $ fmapN fromAhead 1
48+ , benchIOSink value "mapM" $ mapM fromAhead 1 . fromSerial
49+ ]
50+ ]
51+
52+o_1_space_concatFoldable :: Int -> [Benchmark]
53+o_1_space_concatFoldable value =
54+ [ bgroup
55+ "concat-foldable"
56+ [ benchIOSrc fromAhead "foldMapWith (<>) (List)"
57+ (sourceFoldMapWith value)
58+ , benchIOSrc fromAhead "foldMapWith (<>) (Stream)"
59+ (sourceFoldMapWithStream value)
60+ , benchIOSrc fromAhead "foldMapWithM (<>) (List)"
61+ (sourceFoldMapWithM value)
62+ , benchIOSrc fromSerial "S.concatFoldableWith (<>) (List)"
63+ (concatFoldableWith value)
64+ , benchIOSrc fromSerial "S.concatForFoldableWith (<>) (List)"
65+ (concatForFoldableWith value)
66+ , benchIOSrc fromAhead "foldMapM (List)" (sourceFoldMapM value)
67+ ]
68+ ]
69+
70+o_1_space_concatMap :: Int -> [Benchmark]
71+o_1_space_concatMap value =
72+ value2 `seq`
73+ [ bgroup "concat"
74+ -- This is for comparison with foldMapWith
75+ [ benchIOSrc fromSerial "concatMapWithId (n of 1) (fromFoldable)"
76+ (S.concatMapWith ahead id . sourceConcatMapId value)
77+
78+ , benchIO "concatMapWith (n of 1)"
79+ (concatStreamsWith ahead value 1)
80+ , benchIO "concatMapWith (sqrt x of sqrt x)"
81+ (concatStreamsWith ahead value2 value2)
82+ , benchIO "concatMapWith (1 of n)"
83+ (concatStreamsWith ahead 1 value)
84+ ]
85+ ]
86+
87+ where
88+
89+ value2 = round $ sqrt (fromIntegral value :: Double)
90+
91+-------------------------------------------------------------------------------
92+-- Monadic outer product
93+-------------------------------------------------------------------------------
94+
95+o_1_space_outerProduct :: Int -> [Benchmark]
96+o_1_space_outerProduct value =
97+ [ bgroup "monad-outer-product"
98+ [ benchIO "toNullAp" $ toNullAp value fromAhead
99+ , benchIO "toNull" $ toNullM value fromAhead
100+ , benchIO "toNull3" $ toNullM3 value fromAhead
101+ , benchIO "filterAllOut" $ filterAllOutM value fromAhead
102+ , benchIO "filterAllIn" $ filterAllInM value fromAhead
103+ , benchIO "filterSome" $ filterSome value fromAhead
104+ , benchIO "breakAfterSome" $ breakAfterSome value fromAhead
105+
106+ ]
107+ ]
108+
109+o_n_space_outerProduct :: Int -> [Benchmark]
110+o_n_space_outerProduct value =
111+ [ bgroup "monad-outer-product"
112+ [ benchIO "toList" $ toListM value fromAhead
113+ , benchIO "toListSome" $ toListSome value fromAhead
114+ ]
115+ ]
116+
117+-------------------------------------------------------------------------------
118+-- Main
119+-------------------------------------------------------------------------------
120+
121+main :: IO ()
122+main = runWithCLIOpts defaultStreamSize allBenchmarks
123+
124+ where
125+
126+ allBenchmarks value =
127+ [ bgroup (o_1_space_prefix moduleName) $ concat
128+ [ o_1_space_generation value
129+ , o_1_space_mapping value
130+ , o_1_space_concatFoldable value
131+ , o_1_space_concatMap value
132+ , o_1_space_outerProduct value
133+ ]
134+ , bgroup (o_n_space_prefix moduleName) (o_n_space_outerProduct value)
135+ ]
benchmark/Streamly/Benchmark/Prelude/Async.hsnew file+204
@@ -0,0 +1,204 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+-- |
4+-- Module : Main
5+-- Copyright : (c) 2018 Composewell Technologies
6+--
7+-- License : BSD3
8+-- Maintainer : streamly@composewell.com
9+
10+import Prelude hiding (mapM)
11+
12+import Streamly.Prelude (fromAsync, async, maxBuffer, maxThreads, fromSerial)
13+import qualified Streamly.Prelude as S
14+import qualified Streamly.Internal.Data.Stream.IsStream.Transform as Transform
15+
16+import Streamly.Benchmark.Common
17+import Streamly.Benchmark.Prelude
18+
19+import Test.Tasty.Bench
20+
21+moduleName :: String
22+moduleName = "Prelude.Async"
23+
24+-------------------------------------------------------------------------------
25+-- Generation
26+-------------------------------------------------------------------------------
27+
28+o_1_space_generation :: Int -> [Benchmark]
29+o_1_space_generation value =
30+ -- These basically test the performance of consMAsync
31+ [ bgroup "generation"
32+ [ benchIOSrc fromAsync "unfoldr" (sourceUnfoldr value)
33+ , benchIOSrc fromAsync "unfoldrM" (sourceUnfoldrM value)
34+ , benchIOSrc fromAsync "fromListM" (sourceFromListM value)
35+ , benchIOSrc fromAsync "fromFoldable (List)" (sourceFromFoldable value)
36+ , benchIOSrc fromAsync "fromFoldableM (List)" (sourceFromFoldableM value)
37+ , benchIOSrc fromAsync "unfoldrM maxThreads 1"
38+ (maxThreads 1 . sourceUnfoldrM value)
39+ , benchIOSrc fromAsync "unfoldrM maxBuffer 1 (x/10 ops)"
40+ (maxBuffer 1 . sourceUnfoldrM (value `div` 10))
41+ ]
42+ ]
43+
44+-------------------------------------------------------------------------------
45+-- Mapping
46+-------------------------------------------------------------------------------
47+
48+{-# INLINE foldrSShared #-}
49+foldrSShared :: Int -> Int -> IO ()
50+foldrSShared count n =
51+ S.drain
52+ $ fromAsync
53+ $ Transform.foldrSShared (\x xs -> S.consM (return x) xs) S.nil
54+ $ fromSerial
55+ $ sourceUnfoldrM count n
56+
57+o_1_space_mapping :: Int -> [Benchmark]
58+o_1_space_mapping value =
59+ [ bgroup "mapping"
60+ [ benchIOSink value "map" $ mapN fromAsync 1
61+ , benchIOSink value "fmap" $ fmapN fromAsync 1
62+ , benchIOSrc1 "foldrSShared" (foldrSShared value)
63+ -- This basically tests the performance of consMAsync
64+ , benchIOSink value "mapM" $ mapM fromAsync 1 . fromSerial
65+ ]
66+ ]
67+
68+-------------------------------------------------------------------------------
69+-- Size conserving transformations (reordering, buffering, etc.)
70+-------------------------------------------------------------------------------
71+
72+o_n_heap_buffering :: Int -> [Benchmark]
73+o_n_heap_buffering value =
74+ [bgroup "buffered" [benchIOSink value "mkAsync" (mkAsync fromAsync)]]
75+
76+-------------------------------------------------------------------------------
77+-- Joining
78+-------------------------------------------------------------------------------
79+
80+{-# INLINE async2 #-}
81+async2 :: Int -> Int -> IO ()
82+async2 count n =
83+ S.drain $
84+ (sourceUnfoldrM count n) `async` (sourceUnfoldrM count (n + 1))
85+
86+{-# INLINE async4 #-}
87+async4 :: Int -> Int -> IO ()
88+async4 count n =
89+ S.drain $
90+ (sourceUnfoldrM count (n + 0))
91+ `async` (sourceUnfoldrM count (n + 1))
92+ `async` (sourceUnfoldrM count (n + 2))
93+ `async` (sourceUnfoldrM count (n + 3))
94+
95+{-# INLINE async2n2 #-}
96+async2n2 :: Int -> Int -> IO ()
97+async2n2 count n =
98+ S.drain $
99+ ((sourceUnfoldrM count (n + 0))
100+ `async` (sourceUnfoldrM count (n + 1)))
101+ `async` ((sourceUnfoldrM count (n + 2))
102+ `async` (sourceUnfoldrM count (n + 3)))
103+
104+o_1_space_joining :: Int -> [Benchmark]
105+o_1_space_joining value =
106+ [ bgroup "joining"
107+ [ benchIOSrc1 "async (2 of n/2)" (async2 (value `div` 2))
108+ , benchIOSrc1 "async (4 of n/4)" (async4 (value `div` 4))
109+ , benchIOSrc1 "async (2 of (2 of n/4)" (async2n2 (value `div` 4))
110+ ]
111+ ]
112+
113+-------------------------------------------------------------------------------
114+-- Concat
115+-------------------------------------------------------------------------------
116+
117+-- These basically test the performance of folding streams with `async`
118+o_1_space_concatFoldable :: Int -> [Benchmark]
119+o_1_space_concatFoldable value =
120+ [ bgroup "concat-foldable"
121+ [ benchIOSrc fromAsync "foldMapWith (<>) (List)"
122+ (sourceFoldMapWith value)
123+ , benchIOSrc fromAsync "foldMapWith (<>) (Stream)"
124+ (sourceFoldMapWithStream value)
125+ , benchIOSrc fromAsync "foldMapWithM (<>) (List)"
126+ (sourceFoldMapWithM value)
127+ , benchIOSrc fromAsync "S.concatFoldableWith (<>) (List)"
128+ (concatFoldableWith value)
129+ , benchIOSrc fromAsync "S.concatForFoldableWith (<>) (List)"
130+ (concatForFoldableWith value)
131+ , benchIOSrc fromAsync "foldMapM (List)" (sourceFoldMapM value)
132+ ]
133+ ]
134+
135+-- These basically test the performance of concating streams with `async`
136+o_1_space_concatMap :: Int -> [Benchmark]
137+o_1_space_concatMap value =
138+ value2 `seq`
139+ [ bgroup "concat"
140+ -- This is for comparison with foldMapWith
141+ [ benchIOSrc fromSerial "concatMapWithId (n of 1) (fromFoldable)"
142+ (S.concatMapWith async id . sourceConcatMapId value)
143+
144+ , benchIO "concatMapWith (n of 1)"
145+ (concatStreamsWith async value 1)
146+ , benchIO "concatMapWith (sqrt x of sqrt x)"
147+ (concatStreamsWith async value2 value2)
148+ , benchIO "concatMapWith (1 of n)"
149+ (concatStreamsWith async 1 value)
150+ ]
151+ ]
152+
153+ where
154+
155+ value2 = round $ sqrt (fromIntegral value :: Double)
156+
157+-------------------------------------------------------------------------------
158+-- Monadic outer product
159+-------------------------------------------------------------------------------
160+
161+o_1_space_outerProduct :: Int -> [Benchmark]
162+o_1_space_outerProduct value =
163+ [ bgroup "monad-outer-product"
164+ [ benchIO "toNullAp" $ toNullAp value fromAsync
165+ , benchIO "toNull" $ toNullM value fromAsync
166+ , benchIO "toNull3" $ toNullM3 value fromAsync
167+ , benchIO "filterAllOut" $ filterAllOutM value fromAsync
168+ , benchIO "filterAllIn" $ filterAllInM value fromAsync
169+ , benchIO "filterSome" $ filterSome value fromAsync
170+ , benchIO "breakAfterSome" $ breakAfterSome value fromAsync
171+
172+ ]
173+ ]
174+
175+o_n_space_outerProduct :: Int -> [Benchmark]
176+o_n_space_outerProduct value =
177+ [ bgroup "monad-outer-product"
178+ [ benchIO "toList" $ toListM value fromAsync
179+ , benchIO "toListSome" $ toListSome value fromAsync
180+ ]
181+ ]
182+
183+-------------------------------------------------------------------------------
184+-- Main
185+-------------------------------------------------------------------------------
186+
187+main :: IO ()
188+main = runWithCLIOpts defaultStreamSize allBenchmarks
189+
190+
191+ where
192+
193+ allBenchmarks value =
194+ [ bgroup (o_1_space_prefix moduleName) $ concat
195+ [ o_1_space_generation value
196+ , o_1_space_mapping value
197+ , o_1_space_concatFoldable value
198+ , o_1_space_concatMap value
199+ , o_1_space_outerProduct value
200+ , o_1_space_joining value
201+ ]
202+ , bgroup (o_n_heap_prefix moduleName) (o_n_heap_buffering value)
203+ , bgroup (o_n_space_prefix moduleName) (o_n_space_outerProduct value)
204+ ]
benchmark/Streamly/Benchmark/Prelude/Concurrent.hsnew file+111
@@ -0,0 +1,111 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+{-# LANGUAGE CPP #-}
3+{-# LANGUAGE RankNTypes #-}
4+-- |
5+-- Module : Main
6+-- Copyright : (c) 2018 Composewell Technologies
7+--
8+-- License : BSD3
9+-- Maintainer : streamly@composewell.com
10+
11+import Control.Concurrent
12+import Control.Monad (when, replicateM)
13+import Streamly.Prelude
14+ ( IsStream, SerialT, serial, async, fromAsync, ahead, fromAhead, wAsync
15+ , fromWAsync, parallel, fromParallel
16+ )
17+
18+import Test.Tasty.Bench
19+import qualified Streamly.Prelude as S
20+
21+-------------------------------------------------------------------------------
22+-- Append
23+-------------------------------------------------------------------------------
24+
25+-- | Run @tcount@ number of actions concurrently using the given concurrency
26+-- style. Each thread produces a single output after a delay of @d@
27+-- microseconds.
28+--
29+{-# INLINE append #-}
30+append :: IsStream t
31+ => Int -> Int -> Int -> (t IO Int -> SerialT IO Int) -> IO ()
32+append buflen tcount d t =
33+ let work = (\i -> when (d /= 0) (threadDelay d) >> return i)
34+ in S.drain
35+ $ t
36+ $ S.maxBuffer buflen
37+ $ S.maxThreads (-1)
38+ $ S.fromFoldableM $ fmap work [1..tcount]
39+
40+-- | Run @threads@ concurrently, each producing streams of @elems@ elements
41+-- with a delay of @d@ microseconds between successive elements, and merge
42+-- their outputs in a single output stream. The individual streams are produced
43+-- serially but merged using the provided concurrency style.
44+--
45+{-# INLINE concated #-}
46+concated
47+ :: Int
48+ -> Int
49+ -> Int
50+ -> Int
51+ -> (forall a. SerialT IO a -> SerialT IO a -> SerialT IO a)
52+ -> IO ()
53+concated buflen threads d elems t =
54+ let work = \i -> S.replicateM i (when (d /= 0) (threadDelay d) >> return i)
55+ in S.drain
56+ $ S.adapt
57+ $ S.maxThreads (-1)
58+ $ S.maxBuffer buflen
59+ $ S.concatMapWith t work
60+ $ S.replicate threads elems
61+
62+appendGroup :: Int -> Int -> Int -> [Benchmark]
63+appendGroup buflen threads usec =
64+ [ -- bench "serial" $ nfIO $ append buflen threads delay fromSerial
65+ bench "ahead" $ nfIO $ append buflen threads usec fromAhead
66+ , bench "async" $ nfIO $ append buflen threads usec fromAsync
67+ , bench "wAsync" $ nfIO $ append buflen threads usec fromWAsync
68+ , bench "parallel" $ nfIO $ append buflen threads usec fromParallel
69+ ]
70+
71+concatGroup :: Int -> Int -> Int -> Int -> [Benchmark]
72+concatGroup buflen threads usec n =
73+ [ bench "serial" $ nfIO $ concated buflen threads usec n serial
74+ , bench "ahead" $ nfIO $ concated buflen threads usec n ahead
75+ , bench "async" $ nfIO $ concated buflen threads usec n async
76+ , bench "wAsync" $ nfIO $ concated buflen threads usec n wAsync
77+ , bench "parallel" $ nfIO $ concated buflen threads usec n parallel
78+ ]
79+
80+main :: IO ()
81+main =
82+#ifdef MIN_VERSION_gauge
83+ defaultMainWith (defaultConfig
84+ { timeLimit = Just 0
85+ , minSamples = Just 1
86+ , minDuration = 0
87+ , includeFirstIter = True
88+ , quickMode = True
89+ })
90+#else
91+ defaultMain
92+#endif
93+
94+ [ -- bgroup "append/buf-1-threads-10k-0sec" (appendGroup 1 10000 0)
95+ -- , bgroup "append/buf-100-threads-100k-0sec" (appendGroup 100 100000 0)
96+ bgroup "stream1x10k/buf10k-threads10k-5sec" (appendGroup 10000 10000 5000000)
97+ -- bgroup "concat/buf-1-threads-100k-count-1" (concatGroup 1 100000 0 1)
98+ -- bgroup "concat/buf-1-threads-1-count-10m" (concatGroup 1 1 0 10000000)
99+ , bgroup "streams100x500k/buf100-threads100" (concatGroup 100 100 0 500000)
100+
101+ , bench "forkIO/threads10k-5sec" $
102+ let delay = threadDelay 5000000
103+ count = 10000 :: Int
104+ list = [1..count]
105+ work i = delay >> return i
106+ in nfIO $ do
107+ ref <- newEmptyMVar
108+ mapM_ (\i -> forkIO $ work i >>=
109+ \j -> putMVar ref j) list
110+ replicateM 10000 (takeMVar ref)
111+ ]
benchmark/Streamly/Benchmark/Prelude/Merge.hsnew file+298
@@ -0,0 +1,298 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+-- |
4+-- Module : Main
5+-- Copyright : (c) 2018 Composewell Technologies
6+--
7+-- License : BSD3
8+-- Maintainer : streamly@composewell.com
9+
10+{-# LANGUAGE BangPatterns #-}
11+{-# LANGUAGE CPP #-}
12+{-# LANGUAGE FlexibleContexts #-}
13+{-# LANGUAGE ScopedTypeVariables #-}
14+{-# LANGUAGE RankNTypes #-}
15+
16+#ifdef __HADDOCK_VERSION__
17+#undef INSPECTION
18+#endif
19+
20+#ifdef INSPECTION
21+{-# LANGUAGE TemplateHaskell #-}
22+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
23+#endif
24+
25+import Streamly.Internal.Data.Stream.IsStream (SerialT)
26+import qualified Data.List as List
27+import qualified Streamly.Internal.Data.Stream.IsStream as Stream
28+-- import qualified Streamly.Internal.Data.Unfold as Unfold
29+
30+import Streamly.Benchmark.Common
31+import Streamly.Benchmark.Prelude
32+
33+import Test.Tasty.Bench
34+
35+#ifdef INSPECTION
36+import GHC.Types (SPEC(..))
37+import Test.Inspection
38+
39+import qualified Streamly.Internal.Data.Stream as D
40+#endif
41+
42+moduleName :: String
43+moduleName = "Prelude.Merge"
44+
45+-------------------------------------------------------------------------------
46+-- Merging
47+-------------------------------------------------------------------------------
48+
49+{-# INLINE mergeWith #-}
50+mergeWith ::
51+ ( (Int -> Int -> Ordering)
52+ -> SerialT IO Int
53+ -> SerialT IO Int
54+ -> SerialT IO Int
55+ )
56+ -> (Int -> Int -> Ordering)
57+ -> Int -> Int -> IO ()
58+mergeWith g cmp count n =
59+ Stream.drain
60+ $ g
61+ cmp
62+ (sourceUnfoldrM count n)
63+ (sourceUnfoldrM count (n + 1))
64+
65+{-# INLINE mergeWithM #-}
66+mergeWithM ::
67+ ( (Int -> Int -> IO Ordering)
68+ -> SerialT IO Int
69+ -> SerialT IO Int
70+ -> SerialT IO Int
71+ )
72+ -> (Int -> Int -> Ordering)
73+ -> Int -> Int -> IO ()
74+mergeWithM g cmp count n =
75+ Stream.drain
76+ $ g
77+ (\a b -> return $ cmp a b)
78+ (sourceUnfoldrM count n)
79+ (sourceUnfoldrM count (n + 1))
80+
81+{-# INLINE mergeBy #-}
82+mergeBy :: (Int -> Int -> Ordering) -> Int -> Int -> IO ()
83+mergeBy = mergeWith Stream.mergeBy
84+
85+{-# INLINE mergeByM #-}
86+mergeByM :: (Int -> Int -> Ordering) -> Int -> Int -> IO ()
87+mergeByM = mergeWithM Stream.mergeByM
88+
89+{-# INLINE mergeByMFused #-}
90+mergeByMFused :: (Int -> Int -> Ordering) -> Int -> Int -> IO ()
91+mergeByMFused = mergeWithM Stream.mergeByMFused
92+
93+#ifdef INSPECTION
94+inspect $ hasNoTypeClasses 'mergeBy
95+inspect $ 'mergeBy `hasNoType` ''SPEC
96+inspect $ 'mergeBy `hasNoType` ''D.Step
97+
98+inspect $ hasNoTypeClasses 'mergeByM
99+inspect $ 'mergeByM `hasNoType` ''SPEC
100+inspect $ 'mergeByM `hasNoType` ''D.Step
101+
102+{-# INLINE _mergeByMFusedCheck #-}
103+_mergeByMFusedCheck :: IO ()
104+_mergeByMFusedCheck = mergeWithM Stream.mergeByMFused compare 0 0
105+
106+inspect $ hasNoTypeClasses '_mergeByMFusedCheck
107+inspect $ '_mergeByMFusedCheck `hasNoType` ''SPEC
108+inspect $ '_mergeByMFusedCheck `hasNoType` ''D.Step
109+#endif
110+
111+{-# INLINE concatPairsWithMergeBy #-}
112+concatPairsWithMergeBy :: (Int -> Int -> Ordering) -> Int -> Int -> Int -> IO ()
113+concatPairsWithMergeBy cmp = concatPairsWith (Stream.mergeBy cmp)
114+
115+{-# INLINE concatPairsWithMergeByFused #-}
116+concatPairsWithMergeByFused ::
117+ (Int -> Int -> Ordering) -> Int -> Int -> Int -> IO ()
118+concatPairsWithMergeByFused cmp =
119+ concatPairsWith (Stream.mergeByMFused (\x y -> return $ cmp x y))
120+
121+-------------------------------------------------------------------------------
122+-- Interleaving
123+-------------------------------------------------------------------------------
124+
125+o_1_space_joining :: Int -> [Benchmark]
126+o_1_space_joining value =
127+ [ bgroup "joining (2 of n/2)"
128+ [ benchIOSrc1
129+ "mergeBy compare"
130+ (mergeBy compare (value `div` 2))
131+ , benchIOSrc1
132+ "mergeByM compare"
133+ (mergeByM compare (value `div` 2))
134+ , benchIOSrc1
135+ "mergeByMFused compare"
136+ (mergeByMFused compare (value `div` 2))
137+
138+ , benchIOSrc1
139+ "mergeBy (flip compare)"
140+ (mergeBy (flip compare) (value `div` 2))
141+ , benchIOSrc1
142+ "mergeByM (flip compare)"
143+ (mergeByM (flip compare) (value `div` 2))
144+ , benchIOSrc1
145+ "mergeByMFused (flip compare)"
146+ (mergeByMFused (flip compare) (value `div` 2))
147+
148+ , benchIOSrc1
149+ "concatPairsWithMergeBy compare"
150+ (concatPairsWithMergeBy compare 2 (value `div` 2))
151+ , benchIOSrc1
152+ "concatPairsWithMergeBy (flip compare)"
153+ (concatPairsWithMergeBy (flip compare) 2 (value `div` 2))
154+
155+ , benchIOSrc1
156+ "concatPairsWithMergeByFused compare"
157+ (concatPairsWithMergeByFused compare 2 (value `div` 2))
158+ , benchIOSrc1
159+ "concatPairsWithMergeByFused (flip compare)"
160+ (concatPairsWithMergeByFused (flip compare) 2 (value `div` 2))
161+ ]
162+ ]
163+
164+-------------------------------------------------------------------------------
165+-- Concat
166+-------------------------------------------------------------------------------
167+
168+{-
169+{-# INLINE sourceUnfoldrMUF #-}
170+-- (count, value)
171+sourceUnfoldrMUF :: Monad m => Int -> UF.Unfold m (Int, Int) Int
172+sourceUnfoldrMUF count = UF.unfoldrM step
173+ where
174+ step (cnt, start) =
175+ return $
176+ if cnt > start + count
177+ then Nothing
178+ else Just (cnt, (cnt + 1, start))
179+
180+{-# INLINE unfoldManyMergeBy #-}
181+unfoldManyMergeBy :: Int -> Int -> Int -> IO ()
182+unfoldManyMergeBy outer inner n =
183+ S.drain $ (Internal.unfoldManyMergeBy compare)
184+ -- (UF.lmap return (UF.replicateM inner))
185+ (UF.lmap (\x -> (x,x)) (sourceUnfoldrMUF inner))
186+ (sourceUnfoldrM outer n)
187+
188+#ifdef INSPECTION
189+inspect $ hasNoTypeClasses 'unfoldManyMergeBy
190+-- inspect $ 'unfoldManyMergeBy `hasNoType` ''SPEC
191+-- inspect $ 'unfoldManyMergeBy `hasNoType`
192+-- ''D.ConcatUnfoldMergeState
193+#endif
194+-}
195+
196+{-# INLINE sortBy #-}
197+sortBy :: (Int -> Int -> Ordering) -> SerialT IO Int -> IO ()
198+sortBy cmp = Stream.drain . Stream.sortBy cmp
199+
200+{-
201+-- For fair comparison with concatPairs, removed sorted segmentation
202+{-# INLINE listSortBy #-}
203+listSortBy :: (a -> a -> Ordering) -> [a] -> [a]
204+listSortBy cmp = mergeAll . sequences
205+ where
206+ sequences = fmap (: [])
207+
208+ mergeAll [x] = x
209+ mergeAll xs = mergeAll (mergePairs xs)
210+
211+ mergePairs (a:b:xs) = let !x = merge a b
212+ in x : mergePairs xs
213+ mergePairs xs = xs
214+
215+ merge as@(a:as') bs@(b:bs')
216+ | a `cmp` b == GT = b:merge as bs'
217+ | otherwise = a:merge as' bs
218+ merge [] bs = bs
219+ merge as [] = as
220+-}
221+
222+o_n_heap_concat :: Int -> [Benchmark]
223+o_n_heap_concat value =
224+ [ bgroup "concatPairsWith"
225+ [ benchIOSrc1
226+ "concatPairsWithMergeBy compare (n of 1)"
227+ (concatPairsWithMergeBy compare value 1)
228+ , benchIOSrc1
229+ "concatPairsWithMergeBy compare (sqrtVal of sqrtVal)"
230+ (concatPairsWithMergeBy compare sqrtVal sqrtVal)
231+
232+ , benchIOSrc1
233+ "concatPairsWithMergeBy (flip compare) (n of 1)"
234+ (concatPairsWithMergeBy (flip compare) value 1)
235+ , benchIOSrc1
236+ "concatPairsWithMergeBy (flip compare) (sqrtVal of sqrtVal)"
237+ (concatPairsWithMergeBy (flip compare) sqrtVal sqrtVal)
238+
239+ , benchIOSrc1
240+ "concatPairsWithMergeByFused compare (n of 1)"
241+ (concatPairsWithMergeByFused compare value 1)
242+ , benchIOSrc1
243+ "concatPairsWithMergeByFused compare (sqrtVal of sqrtVal)"
244+ (concatPairsWithMergeByFused compare sqrtVal sqrtVal)
245+ ]
246+ -- TODO: change sourceUnfoldrM to generate alternating bigger and lower
247+ -- numbers to simulate a random input for a worst case sort benchmark. We
248+ -- can use 0 and value as two ints in the state and alternate each in the
249+ -- output streams, incrementing the lower number of decrementing the higher
250+ -- number.
251+ , bgroup "sorting"
252+ [ benchIOSink value "sortBy compare" (sortBy compare)
253+ , benchIOSink value "sortBy (flip compare)" (sortBy (flip compare))
254+ , benchIOSink value "sortBy compare randomized"
255+ (sortBy compare . Stream.map (\x -> if even x then x + 2 else x))
256+ {-
257+ , bench "sortByLists compare"
258+ $ nf (\x -> listSortBy compare [1..x]) value
259+ , bench "sortByLists (flip compare)"
260+ $ nf (\x -> listSortBy (flip compare) [1..x]) value
261+ , bench "sortByLists compare randomized"
262+ $ nf (\x -> listSortBy compare
263+ (map (\n -> if even n then n + 2 else n) [1..x])
264+ )
265+ value
266+ -}
267+ , bench "sortByLists compare"
268+ $ nf (\x -> List.sortBy compare [1..x]) value
269+ , bench "sortByLists (flip compare)"
270+ $ nf (\x -> List.sortBy (flip compare) [1..x]) value
271+ , bench "sortByLists compare randomized"
272+ $ nf (\x -> List.sortBy compare
273+ (map (\n -> if even n then n + 2 else n) [1..x])
274+ )
275+ value
276+ ]
277+ ]
278+
279+ where
280+
281+ sqrtVal = round $ sqrt (fromIntegral value :: Double)
282+
283+-------------------------------------------------------------------------------
284+-- Main
285+-------------------------------------------------------------------------------
286+
287+-- In addition to gauge options, the number of elements in the stream can be
288+-- passed using the --stream-size option.
289+--
290+main :: IO ()
291+main = runWithCLIOpts defaultStreamSize allBenchmarks
292+
293+ where
294+
295+ allBenchmarks size =
296+ [ bgroup (o_1_space_prefix moduleName) (o_1_space_joining size)
297+ , bgroup (o_n_heap_prefix moduleName) (o_n_heap_concat size)
298+ ]
benchmark/Streamly/Benchmark/Prelude/Parallel.hsnew file+240
@@ -0,0 +1,240 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+-- |
4+-- Module : Main
5+-- Copyright : (c) 2018 Composewell Technologies
6+--
7+-- License : BSD3
8+-- Maintainer : streamly@composewell.com
9+
10+{-# LANGUAGE FlexibleContexts #-}
11+
12+import Prelude hiding (mapM)
13+
14+import Data.Function ((&))
15+import Streamly.Prelude
16+ ( SerialT, fromParallel, parallel, fromSerial, maxBuffer, maxThreads)
17+
18+import qualified Streamly.Prelude as S
19+import qualified Streamly.Internal.Data.Fold as FL
20+import qualified Streamly.Internal.Data.Stream.IsStream as Internal
21+
22+import Streamly.Benchmark.Common
23+import Streamly.Benchmark.Prelude
24+
25+import Test.Tasty.Bench
26+
27+moduleName :: String
28+moduleName = "Prelude.Parallel"
29+
30+-------------------------------------------------------------------------------
31+-- Merging
32+-------------------------------------------------------------------------------
33+
34+{-# INLINE mergeAsyncByM #-}
35+mergeAsyncByM :: (S.IsStream t, S.MonadAsync m) => Int -> Int -> t m Int
36+mergeAsyncByM count n =
37+ S.mergeAsyncByM
38+ (\a b -> return (a `compare` b))
39+ (sourceUnfoldrM count n)
40+ (sourceUnfoldrM count (n + 1))
41+
42+{-# INLINE mergeAsyncBy #-}
43+mergeAsyncBy :: (S.IsStream t, S.MonadAsync m) => Int -> Int -> t m Int
44+mergeAsyncBy count n =
45+ S.mergeAsyncBy
46+ compare
47+ (sourceUnfoldrM count n)
48+ (sourceUnfoldrM count (n + 1))
49+
50+-------------------------------------------------------------------------------
51+-- Application/fold
52+-------------------------------------------------------------------------------
53+
54+{-# INLINE parAppMap #-}
55+parAppMap :: S.MonadAsync m => SerialT m Int -> m ()
56+parAppMap src = S.drain $ S.map (+1) S.|$ src
57+
58+{-# INLINE parAppSum #-}
59+parAppSum :: S.MonadAsync m => SerialT m Int -> m ()
60+parAppSum src = (S.sum S.|$. src) >>= \x -> seq x (return ())
61+
62+{-# INLINE (|&) #-}
63+(|&) :: S.MonadAsync m => SerialT m Int -> m ()
64+(|&) src = src S.|& S.map (+ 1) & S.drain
65+
66+{-# INLINE (|&.) #-}
67+(|&.) :: S.MonadAsync m => SerialT m Int -> m ()
68+(|&.) src = (src S.|&. S.sum) >>= \x -> seq x (return ())
69+
70+-------------------------------------------------------------------------------
71+-- Tapping
72+-------------------------------------------------------------------------------
73+
74+{-# INLINE tapAsyncS #-}
75+tapAsyncS :: S.MonadAsync m => Int -> SerialT m Int -> m ()
76+tapAsyncS n = composeN n $ Internal.tapAsyncK S.sum
77+
78+{-# INLINE tapAsync #-}
79+tapAsync :: S.MonadAsync m => Int -> SerialT m Int -> m ()
80+tapAsync n = composeN n $ Internal.tapAsync FL.sum
81+
82+o_1_space_merge_app_tap :: Int -> [Benchmark]
83+o_1_space_merge_app_tap value =
84+ [ bgroup "merge-app-tap"
85+ [ benchIOSrc fromSerial "mergeAsyncBy (2,x/2)"
86+ (mergeAsyncBy (value `div` 2))
87+ , benchIOSrc fromSerial "mergeAsyncByM (2,x/2)"
88+ (mergeAsyncByM (value `div` 2))
89+ -- Parallel stages in a pipeline
90+ , benchIOSink value "parAppMap" parAppMap
91+ , benchIOSink value "parAppSum" parAppSum
92+ , benchIOSink value "(|&)" (|&)
93+ , benchIOSink value "(|&.)" (|&.)
94+ , benchIOSink value "tapAsync" (tapAsync 1)
95+ , benchIOSink value "tapAsyncS" (tapAsyncS 1)
96+ ]
97+ ]
98+
99+-------------------------------------------------------------------------------
100+-- Generation
101+-------------------------------------------------------------------------------
102+
103+o_n_heap_generation :: Int -> [Benchmark]
104+o_n_heap_generation value =
105+ [ bgroup
106+ "generation"
107+ [ benchIOSrc fromParallel "unfoldr" (sourceUnfoldr value)
108+ , benchIOSrc fromParallel "unfoldrM" (sourceUnfoldrM value)
109+ , benchIOSrc fromParallel "fromFoldable" (sourceFromFoldable value)
110+ , benchIOSrc fromParallel "fromFoldableM" (sourceFromFoldableM value)
111+ , benchIOSrc fromParallel "unfoldrM maxThreads 1"
112+ (maxThreads 1 . sourceUnfoldrM value)
113+ , benchIOSrc fromParallel "unfoldrM maxBuffer 1 (x/10 ops)"
114+ (maxBuffer 1 . sourceUnfoldrM (value `div` 10))
115+ ]
116+ ]
117+
118+-------------------------------------------------------------------------------
119+-- Mapping
120+-------------------------------------------------------------------------------
121+
122+o_n_heap_mapping :: Int -> [Benchmark]
123+o_n_heap_mapping value =
124+ [ bgroup "mapping"
125+ [ benchIOSink value "map" $ mapN fromParallel 1
126+ , benchIOSink value "fmap" $ fmapN fromParallel 1
127+ , benchIOSink value "mapM" $ mapM fromParallel 1 . fromSerial
128+ ]
129+ ]
130+
131+
132+-------------------------------------------------------------------------------
133+-- Joining
134+-------------------------------------------------------------------------------
135+
136+{-# INLINE parallel2 #-}
137+parallel2 :: Int -> Int -> IO ()
138+parallel2 count n =
139+ S.drain $
140+ (sourceUnfoldrM count n) `parallel` (sourceUnfoldrM count (n + 1))
141+
142+o_1_space_joining :: Int -> [Benchmark]
143+o_1_space_joining value =
144+ [ bgroup "joining"
145+ [ benchIOSrc1 "parallel (2 of n/2)" (parallel2 (value `div` 2))
146+ ]
147+ ]
148+
149+-------------------------------------------------------------------------------
150+-- Concat
151+-------------------------------------------------------------------------------
152+
153+o_n_heap_concatFoldable :: Int -> [Benchmark]
154+o_n_heap_concatFoldable value =
155+ [ bgroup
156+ "concat-foldable"
157+ [ benchIOSrc fromParallel "foldMapWith (<>) (List)"
158+ (sourceFoldMapWith value)
159+ , benchIOSrc fromParallel "foldMapWith (<>) (Stream)"
160+ (sourceFoldMapWithStream value)
161+ , benchIOSrc fromParallel "foldMapWithM (<>) (List)"
162+ (sourceFoldMapWithM value)
163+ , benchIOSrc fromSerial "S.concatFoldableWith (<>) (List)"
164+ (concatFoldableWith value)
165+ , benchIOSrc fromSerial "S.concatForFoldableWith (<>) (List)"
166+ (concatForFoldableWith value)
167+ , benchIOSrc fromParallel "foldMapM (List)" (sourceFoldMapM value)
168+ ]
169+ ]
170+
171+o_n_heap_concat :: Int -> [Benchmark]
172+o_n_heap_concat value =
173+ value2 `seq`
174+ [ bgroup "concat"
175+ -- This is for comparison with foldMapWith
176+ [ benchIOSrc fromSerial "concatMapWithId (n of 1) (fromFoldable)"
177+ (S.concatMapWith parallel id . sourceConcatMapId value)
178+
179+ , benchIO "concatMapWith (n of 1)"
180+ (concatStreamsWith parallel value 1)
181+ , benchIO "concatMapWith (sqrt x of sqrt x)"
182+ (concatStreamsWith parallel value2 value2)
183+ , benchIO "concatMapWith (1 of n)"
184+ (concatStreamsWith parallel 1 value)
185+ ]
186+ ]
187+
188+ where
189+
190+ value2 = round $ sqrt (fromIntegral value :: Double)
191+
192+-------------------------------------------------------------------------------
193+-- Monadic outer product
194+-------------------------------------------------------------------------------
195+
196+o_n_heap_outerProduct :: Int -> [Benchmark]
197+o_n_heap_outerProduct value =
198+ [ bgroup "monad-outer-product"
199+ [ benchIO "toNullAp" $ toNullAp value fromParallel
200+ , benchIO "toNull" $ toNullM value fromParallel
201+ , benchIO "toNull3" $ toNullM3 value fromParallel
202+ , benchIO "filterAllOut" $ filterAllOutM value fromParallel
203+ , benchIO "filterAllIn" $ filterAllInM value fromParallel
204+ , benchIO "filterSome" $ filterSome value fromParallel
205+ , benchIO "breakAfterSome" $ breakAfterSome value fromParallel
206+ ]
207+ ]
208+
209+o_n_space_outerProduct :: Int -> [Benchmark]
210+o_n_space_outerProduct value =
211+ [ bgroup "monad-outer-product"
212+ [ benchIO "toList" $ toListM value fromParallel
213+ -- XXX disabled due to a bug for now
214+ -- , benchIO "toListSome" $ toListSome value fromParallel
215+ ]
216+ ]
217+
218+-------------------------------------------------------------------------------
219+-- Main
220+-------------------------------------------------------------------------------
221+
222+main :: IO ()
223+main = runWithCLIOpts defaultStreamSize allBenchmarks
224+
225+ where
226+
227+ allBenchmarks value =
228+ [ bgroup (o_1_space_prefix moduleName) $ concat
229+ [ o_1_space_merge_app_tap value
230+ , o_1_space_joining value
231+ ]
232+ , bgroup (o_n_heap_prefix moduleName) $ concat
233+ [ o_n_heap_generation value
234+ , o_n_heap_mapping value
235+ , o_n_heap_concatFoldable value
236+ , o_n_heap_concat value
237+ , o_n_heap_outerProduct value
238+ ]
239+ , bgroup (o_n_space_prefix moduleName) (o_n_space_outerProduct value)
240+ ]
benchmark/Streamly/Benchmark/Prelude/Rate.hsnew file+110
@@ -0,0 +1,110 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+{-# LANGUAGE FlexibleContexts #-}
3+
4+-- |
5+-- Module : Main
6+-- Copyright : (c) 2018 Composewell Technologies
7+--
8+-- License : BSD3
9+-- Maintainer : streamly@composewell.com
10+
11+import Streamly.Prelude (fromAsync, fromAhead, maxThreads, IsStream, MonadAsync)
12+import qualified Streamly.Prelude as S
13+
14+import Streamly.Benchmark.Common
15+import Streamly.Benchmark.Prelude
16+
17+import Test.Tasty.Bench
18+
19+moduleName :: String
20+moduleName = "Prelude.Rate"
21+
22+-------------------------------------------------------------------------------
23+-- Average Rate
24+-------------------------------------------------------------------------------
25+
26+{-# INLINE rateNothing #-}
27+rateNothing :: (MonadAsync m, IsStream t) => Int -> Int -> t m Int
28+rateNothing value = S.rate Nothing . sourceUnfoldrM value
29+
30+{-# INLINE avgRate #-}
31+avgRate :: (MonadAsync m, IsStream t) => Int -> Double -> Int -> t m Int
32+avgRate value rate_ = S.avgRate rate_ . sourceUnfoldrM value
33+
34+{-# INLINE avgRateThreads1 #-}
35+avgRateThreads1 :: (MonadAsync m, IsStream t) => Int -> Double -> Int -> t m Int
36+avgRateThreads1 value rate_ =
37+ maxThreads 1 . S.avgRate rate_ . sourceUnfoldrM value
38+
39+{-# INLINE minRate #-}
40+minRate :: (MonadAsync m, IsStream t) => Int -> Double -> Int -> t m Int
41+minRate value rate_ = S.minRate rate_ . sourceUnfoldrM value
42+
43+{-# INLINE maxRate #-}
44+maxRate :: (MonadAsync m, IsStream t) => Int -> Double -> Int -> t m Int
45+maxRate value rate_ = S.minRate rate_ . sourceUnfoldrM value
46+
47+{-# INLINE constRate #-}
48+constRate :: (MonadAsync m, IsStream t) => Int -> Double -> Int -> t m Int
49+constRate value rate_ = S.constRate rate_ . sourceUnfoldrM value
50+
51+-- XXX arbitrarily large rate should be the same as rate Nothing
52+o_1_space_async :: Int -> [Benchmark]
53+o_1_space_async value =
54+ [ bgroup
55+ "asyncly"
56+ [ bgroup
57+ "avgRate"
58+ -- benchIO "unfoldr" $ toNull fromAsync
59+ -- benchIOSrc fromAsync "unfoldrM" (sourceUnfoldrM value)
60+ [ benchIOSrc fromAsync "Nothing" $ rateNothing value
61+ , benchIOSrc fromAsync "1M" $ avgRate value 1000000
62+ , benchIOSrc fromAsync "3M" $ avgRate value 3000000
63+ , benchIOSrc fromAsync "10M/maxThreads1"
64+ $ avgRateThreads1 value 10000000
65+ , benchIOSrc fromAsync "10M" $ avgRate value 10000000
66+ , benchIOSrc fromAsync "20M" $ avgRate value 20000000
67+ ]
68+ , bgroup
69+ "minRate"
70+ [ benchIOSrc fromAsync "1M" $ minRate value 1000000
71+ , benchIOSrc fromAsync "10M" $ minRate value 10000000
72+ , benchIOSrc fromAsync "20M" $ minRate value 20000000
73+ ]
74+ , bgroup
75+ "maxRate"
76+ [ -- benchIOSrc fromAsync "10K" $ maxRate value 10000
77+ benchIOSrc fromAsync "10M" $ maxRate value 10000000
78+ ]
79+ , bgroup
80+ "constRate"
81+ [ -- benchIOSrc fromAsync "10K" $ constRate value 10000
82+ benchIOSrc fromAsync "1M" $ constRate value 1000000
83+ , benchIOSrc fromAsync "10M" $ constRate value 10000000
84+ ]
85+ ]
86+ ]
87+
88+o_1_space_ahead :: Int -> [Benchmark]
89+o_1_space_ahead value =
90+ [ bgroup
91+ "aheadly"
92+ [ benchIOSrc fromAhead "avgRate/1M" $ avgRate value 1000000
93+ , benchIOSrc fromAhead "minRate/1M" $ minRate value 1000000
94+ , benchIOSrc fromAhead "maxRate/1M" $ maxRate value 1000000
95+ , benchIOSrc fromAsync "constRate/1M" $ constRate value 1000000
96+ ]
97+ ]
98+
99+-------------------------------------------------------------------------------
100+-- Main
101+-------------------------------------------------------------------------------
102+
103+main :: IO ()
104+main = runWithCLIOpts defaultStreamSize allBenchmarks
105+
106+ where
107+
108+ allBenchmarks value =
109+ [ bgroup (o_1_space_prefix moduleName)
110+ $ concat [o_1_space_async value, o_1_space_ahead value]]
benchmark/Streamly/Benchmark/Prelude/WAsync.hsnew file+186
@@ -0,0 +1,186 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+-- |
4+-- Module : Main
5+-- Copyright : (c) 2018 Composewell Technologies
6+--
7+-- License : BSD3
8+-- Maintainer : streamly@composewell.com
9+
10+import Prelude hiding (mapM)
11+
12+import Streamly.Prelude (fromWAsync, fromSerial, wAsync, maxBuffer, maxThreads)
13+import qualified Streamly.Prelude as S
14+
15+import Streamly.Benchmark.Common
16+import Streamly.Benchmark.Prelude
17+
18+import Test.Tasty.Bench
19+
20+moduleName :: String
21+moduleName = "Prelude.WAsync"
22+
23+-------------------------------------------------------------------------------
24+-- Generation
25+-------------------------------------------------------------------------------
26+
27+o_1_space_generation :: Int -> [Benchmark]
28+o_1_space_generation value =
29+ [ bgroup "generation"
30+ [ benchIOSrc fromWAsync "unfoldr" (sourceUnfoldr value)
31+ , benchIOSrc fromWAsync "unfoldrM" (sourceUnfoldrM value)
32+ , benchIOSrc fromWAsync "fromFoldable" (sourceFromFoldable value)
33+ , benchIOSrc fromWAsync "fromFoldableM" (sourceFromFoldableM value)
34+ , benchIOSrc fromWAsync "unfoldrM maxThreads 1"
35+ (maxThreads 1 . sourceUnfoldrM value)
36+ , benchIOSrc fromWAsync "unfoldrM maxBuffer 1 (x/10 ops)"
37+ (maxBuffer 1 . sourceUnfoldrM (value `div` 10))
38+ ]
39+ ]
40+
41+-------------------------------------------------------------------------------
42+-- Mapping
43+-------------------------------------------------------------------------------
44+
45+o_1_space_mapping :: Int -> [Benchmark]
46+o_1_space_mapping value =
47+ [ bgroup "mapping"
48+ [ benchIOSink value "map" $ mapN fromWAsync 1
49+ , benchIOSink value "fmap" $ fmapN fromWAsync 1
50+ , benchIOSink value "mapM" $ mapM fromWAsync 1 . fromSerial
51+ ]
52+ ]
53+
54+-------------------------------------------------------------------------------
55+-- Joining
56+-------------------------------------------------------------------------------
57+
58+{-# INLINE wAsync2 #-}
59+wAsync2 :: Int -> Int -> IO ()
60+wAsync2 count n =
61+ S.drain $
62+ (sourceUnfoldrM count n) `wAsync` (sourceUnfoldrM count (n + 1))
63+
64+{-# INLINE wAsync4 #-}
65+wAsync4 :: Int -> Int -> IO ()
66+wAsync4 count n =
67+ S.drain $
68+ (sourceUnfoldrM count (n + 0))
69+ `wAsync` (sourceUnfoldrM count (n + 1))
70+ `wAsync` (sourceUnfoldrM count (n + 2))
71+ `wAsync` (sourceUnfoldrM count (n + 3))
72+
73+{-# INLINE wAsync2n2 #-}
74+wAsync2n2 :: Int -> Int -> IO ()
75+wAsync2n2 count n =
76+ S.drain $
77+ ((sourceUnfoldrM count (n + 0))
78+ `wAsync` (sourceUnfoldrM count (n + 1)))
79+ `wAsync` ((sourceUnfoldrM count (n + 2))
80+ `wAsync` (sourceUnfoldrM count (n + 3)))
81+
82+o_1_space_joining :: Int -> [Benchmark]
83+o_1_space_joining value =
84+ [ bgroup "joining"
85+ [ benchIOSrc1 "wAsync (2 of n/2)" (wAsync2 (value `div` 2))
86+ , benchIOSrc1 "wAsync (4 of n/4)" (wAsync4 (value `div` 4))
87+ , benchIOSrc1 "wAsync (2 of (2 of n/4)" (wAsync2n2 (value `div` 4))
88+ ]
89+ ]
90+
91+-------------------------------------------------------------------------------
92+-- Concat
93+-------------------------------------------------------------------------------
94+
95+o_1_space_concatFoldable :: Int -> [Benchmark]
96+o_1_space_concatFoldable value =
97+ [ bgroup "concat-foldable"
98+ [ benchIOSrc fromWAsync "foldMapWith (<>) (List)"
99+ (sourceFoldMapWith value)
100+ , benchIOSrc fromWAsync "foldMapWith (<>) (Stream)"
101+ (sourceFoldMapWithStream value)
102+ , benchIOSrc fromWAsync "foldMapWithM (<>) (List)"
103+ (sourceFoldMapWithM value)
104+ , benchIOSrc fromSerial "S.concatFoldableWith (<>) (List)"
105+ (concatFoldableWith value)
106+ , benchIOSrc fromSerial "S.concatForFoldableWith (<>) (List)"
107+ (concatForFoldableWith value)
108+ , benchIOSrc fromWAsync "foldMapM (List)" (sourceFoldMapM value)
109+ ]
110+ ]
111+
112+-- When we merge streams using wAsync the size of the queue increases
113+-- slowly because of the binary composition adding just one more item
114+-- to the work queue only after every scheduling pass through the
115+-- work queue.
116+--
117+-- We should see the memory consumption increasing slowly if these
118+-- benchmarks are left to run on infinite number of streams of infinite
119+-- sizes.
120+o_1_space_concatMap :: Int -> [Benchmark]
121+o_1_space_concatMap value =
122+ value2 `seq`
123+ [ bgroup "concat"
124+ -- This is for comparison with foldMapWith
125+ [ benchIOSrc fromSerial "concatMapWithId (n of 1) (fromFoldable)"
126+ (S.concatMapWith wAsync id . sourceConcatMapId value)
127+
128+ , benchIO "concatMapWith (n of 1)"
129+ (concatStreamsWith wAsync value 1)
130+ , benchIO "concatMapWith (sqrt x of sqrt x)"
131+ (concatStreamsWith wAsync value2 value2)
132+ , benchIO "concatMapWith (1 of n)"
133+ (concatStreamsWith wAsync 1 value)
134+ ]
135+ ]
136+
137+ where
138+
139+ value2 = round $ sqrt (fromIntegral value :: Double)
140+
141+-------------------------------------------------------------------------------
142+-- Monadic outer product
143+-------------------------------------------------------------------------------
144+
145+o_n_heap_outerProduct :: Int -> [Benchmark]
146+o_n_heap_outerProduct value =
147+ [ bgroup "monad-outer-product"
148+ [ benchIO "toNullAp" $ toNullAp value fromWAsync
149+ , benchIO "toNull" $ toNullM value fromWAsync
150+ , benchIO "toNull3" $ toNullM3 value fromWAsync
151+ , benchIO "filterAllOut" $ filterAllOutM value fromWAsync
152+ , benchIO "filterAllIn" $ filterAllInM value fromWAsync
153+ , benchIO "filterSome" $ filterSome value fromWAsync
154+ , benchIO "breakAfterSome" $ breakAfterSome value fromWAsync
155+
156+ ]
157+ ]
158+
159+o_n_space_outerProduct :: Int -> [Benchmark]
160+o_n_space_outerProduct value =
161+ [ bgroup "monad-outer-product"
162+ [ benchIO "toList" $ toListM value fromWAsync
163+ , benchIO "toListSome" $ toListSome value fromWAsync
164+ ]
165+ ]
166+
167+-------------------------------------------------------------------------------
168+-- Main
169+-------------------------------------------------------------------------------
170+
171+main :: IO ()
172+main = runWithCLIOpts defaultStreamSize allBenchmarks
173+
174+ where
175+
176+ allBenchmarks value =
177+ [ bgroup (o_1_space_prefix moduleName) $ concat
178+ [ o_1_space_generation value
179+ , o_1_space_mapping value
180+ , o_1_space_joining value
181+ , o_1_space_concatFoldable value
182+ , o_1_space_concatMap value
183+ ]
184+ , bgroup (o_n_heap_prefix moduleName) (o_n_heap_outerProduct value)
185+ , bgroup (o_n_space_prefix moduleName) (o_n_space_outerProduct value)
186+ ]
benchmark/Streamly/Benchmark/Prelude/WSerial.hsnew file+369
@@ -0,0 +1,369 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+-- |
4+-- Module : Main
5+-- Copyright : (c) 2018 Composewell Technologies
6+--
7+-- License : BSD3
8+-- Maintainer : streamly@composewell.com
9+
10+{-# LANGUAGE CPP #-}
11+{-# LANGUAGE FlexibleContexts #-}
12+{-# LANGUAGE ScopedTypeVariables #-}
13+{-# LANGUAGE RankNTypes #-}
14+
15+#ifdef __HADDOCK_VERSION__
16+#undef INSPECTION
17+#endif
18+
19+#ifdef INSPECTION
20+{-# LANGUAGE TemplateHaskell #-}
21+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
22+#endif
23+
24+import Streamly.Prelude (wSerial, fromWSerial)
25+import qualified Streamly.Prelude as S
26+import qualified Streamly.Internal.Data.Stream.IsStream as Internal
27+import qualified Streamly.Internal.Data.Unfold as UF
28+
29+import Streamly.Benchmark.Common
30+import Streamly.Benchmark.Prelude
31+
32+import Test.Tasty.Bench
33+
34+#ifdef INSPECTION
35+import GHC.Types (SPEC(..))
36+import Test.Inspection
37+
38+import qualified Streamly.Internal.Data.Stream as D
39+#endif
40+
41+moduleName :: String
42+moduleName = "Prelude.WSerial"
43+
44+-------------------------------------------------------------------------------
45+-- Mapping
46+-------------------------------------------------------------------------------
47+
48+o_1_space_mapping :: Int -> [Benchmark]
49+o_1_space_mapping value =
50+ [ bgroup "mapping"
51+ [ benchIOSink value "fmap" $ fmapN fromWSerial 1 ]
52+ ]
53+
54+-------------------------------------------------------------------------------
55+-- Interleaving
56+-------------------------------------------------------------------------------
57+
58+{-# INLINE wSerial2 #-}
59+wSerial2 :: Int -> Int -> IO ()
60+wSerial2 value n =
61+ S.drain $ wSerial
62+ (sourceUnfoldrM (value `div` 2) n)
63+ (sourceUnfoldrM (value `div` 2) (n + 1))
64+
65+{-# INLINE interleave2 #-}
66+interleave2 :: Int -> Int -> IO ()
67+interleave2 value n =
68+ S.drain $
69+ Internal.interleave
70+ (sourceUnfoldrM (value `div` 2) n)
71+ (sourceUnfoldrM (value `div` 2) (n + 1))
72+
73+#ifdef INSPECTION
74+inspect $ hasNoTypeClasses 'interleave2
75+inspect $ 'interleave2 `hasNoType` ''SPEC
76+inspect $ 'interleave2 `hasNoType` ''D.InterleaveState
77+#endif
78+
79+{-# INLINE roundRobin2 #-}
80+roundRobin2 :: Int -> Int -> IO ()
81+roundRobin2 value n =
82+ S.drain $
83+ Internal.roundrobin
84+ (sourceUnfoldrM (value `div` 2) n)
85+ (sourceUnfoldrM (value `div` 2) (n + 1))
86+
87+#ifdef INSPECTION
88+inspect $ hasNoTypeClasses 'roundRobin2
89+inspect $ 'roundRobin2 `hasNoType` ''SPEC
90+inspect $ 'roundRobin2 `hasNoType` ''D.InterleaveState
91+#endif
92+
93+{-# INLINE sourceUnfoldrMUF #-}
94+-- (count, value)
95+sourceUnfoldrMUF :: Monad m => Int -> UF.Unfold m (Int, Int) Int
96+sourceUnfoldrMUF count = UF.unfoldrM step
97+ where
98+ step (cnt, start) =
99+ return $
100+ if cnt > start + count
101+ then Nothing
102+ else Just (cnt, (cnt + 1, start))
103+
104+{-# INLINE unfoldManyInterleave #-}
105+unfoldManyInterleave :: Int -> Int -> Int -> IO ()
106+unfoldManyInterleave outer inner n =
107+ S.drain $ Internal.unfoldManyInterleave
108+ -- (UF.lmap return (UF.replicateM inner))
109+ (UF.lmap (\x -> (x,x)) (sourceUnfoldrMUF inner))
110+ (sourceUnfoldrM outer n)
111+
112+#ifdef INSPECTION
113+inspect $ hasNoTypeClasses 'unfoldManyInterleave
114+-- inspect $ 'unfoldManyInterleave `hasNoType` ''SPEC
115+-- inspect $ 'unfoldManyInterleave `hasNoType`
116+-- ''D.ConcatUnfoldInterleaveState
117+#endif
118+
119+{-# INLINE unfoldManyRoundRobin #-}
120+unfoldManyRoundRobin :: Int -> Int -> Int -> IO ()
121+unfoldManyRoundRobin outer inner n =
122+ S.drain $ Internal.unfoldManyRoundRobin
123+ -- (UF.lmap return (UF.replicateM inner))
124+ (UF.lmap (\x -> (x,x)) (sourceUnfoldrMUF inner))
125+ (sourceUnfoldrM outer n)
126+
127+#ifdef INSPECTION
128+inspect $ hasNoTypeClasses 'unfoldManyRoundRobin
129+-- inspect $ 'unfoldManyRoundRobin `hasNoType` ''SPEC
130+-- inspect $ 'unfoldManyRoundRobin `hasNoType`
131+-- ''D.ConcatUnfoldInterleaveState
132+#endif
133+
134+{-# INLINE concatPairsWithWSerial #-}
135+concatPairsWithWSerial :: Int -> Int -> Int -> IO ()
136+concatPairsWithWSerial = concatPairsWith Internal.wSerial
137+
138+{-# INLINE concatPairsWithRoundrobin #-}
139+concatPairsWithRoundrobin :: Int -> Int -> Int -> IO ()
140+concatPairsWithRoundrobin = concatPairsWith Internal.roundrobin
141+
142+{-# INLINE concatMapWithWSerial #-}
143+concatMapWithWSerial :: Int -> Int -> Int -> IO ()
144+concatMapWithWSerial = concatStreamsWith wSerial
145+
146+#ifdef INSPECTION
147+inspect $ hasNoTypeClasses 'concatMapWithWSerial
148+inspect $ 'concatMapWithWSerial `hasNoType` ''SPEC
149+#endif
150+
151+o_1_space_joining :: Int -> [Benchmark]
152+o_1_space_joining value =
153+ [ bgroup "joining (2 of n/2)"
154+ [ benchIOSrc1 "wSerial" (wSerial2 value)
155+ , benchIOSrc1 "interleave" (interleave2 value)
156+ , benchIOSrc1 "roundRobin" (roundRobin2 value)
157+ , benchIOSrc1
158+ "concatMapWithWSerial"
159+ (concatMapWithWSerial 2 (value `div` 2))
160+ , benchIOSrc1
161+ "concatMapWithInterleave"
162+ (concatStreamsWith Internal.interleave 2 (value `div` 2))
163+ , benchIOSrc1
164+ "concatMapWithRoundrobin"
165+ (concatStreamsWith Internal.roundrobin 2 (value `div` 2))
166+ , benchIOSrc1
167+ "unfoldManyInterleave"
168+ (unfoldManyInterleave 2 (value `div` 2))
169+ , benchIOSrc1
170+ "concatPairsWithWSerial"
171+ (concatPairsWithWSerial 2 (value `div` 2))
172+ , benchIOSrc1
173+ "concatPairsWithRoundrobin"
174+ (concatPairsWithRoundrobin 2 (value `div` 2))
175+ ]
176+ ]
177+
178+-------------------------------------------------------------------------------
179+-- Concat
180+-------------------------------------------------------------------------------
181+
182+o_1_space_concat :: Int -> [Benchmark]
183+o_1_space_concat value =
184+ [ bgroup "concatMapWith"
185+ [ benchIOSrc1
186+ "concatMapWithWSerial (n of 1)"
187+ (concatStreamsWith wSerial value 1)
188+ , benchIOSrc1
189+ "concatMapWithWSerial (sqrtVal of sqrtVal)"
190+ (concatStreamsWith wSerial sqrtVal sqrtVal)
191+ ]
192+ ]
193+
194+ where
195+
196+ sqrtVal = round $ sqrt (fromIntegral value :: Double)
197+
198+o_n_space_concat :: Int -> [Benchmark]
199+o_n_space_concat value =
200+ [ bgroup "concatMapWith"
201+ [
202+ -- concatMapWith using StreamD versions of interleave operations are
203+ -- all quadratic, we just measure the sqrtVal benchmark for comparison.
204+ benchIOSrc1
205+ "concatMapWithInterleave (sqrtVal of 1)"
206+ (concatStreamsWith Internal.interleave sqrtVal 1)
207+ , benchIOSrc1
208+ "concatMapWithInterleave (sqrtVal of sqrtVal)"
209+ (concatStreamsWith Internal.interleave sqrtVal sqrtVal)
210+ , benchIOSrc1
211+ "concatMapWithRoundrobin (sqrtVal of sqrtVal)"
212+ (concatStreamsWith Internal.roundrobin sqrtVal sqrtVal)
213+ ]
214+ ]
215+
216+ where
217+
218+ sqrtVal = round $ sqrt (fromIntegral value :: Double)
219+
220+{-# INLINE concatPairsWithInterleave #-}
221+concatPairsWithInterleave :: Int -> Int -> Int -> IO ()
222+concatPairsWithInterleave = concatPairsWith Internal.interleave
223+
224+{-# INLINE concatPairsWithInterleaveSuffix #-}
225+concatPairsWithInterleaveSuffix :: Int -> Int -> Int -> IO ()
226+concatPairsWithInterleaveSuffix = concatPairsWith Internal.interleaveSuffix
227+
228+{-# INLINE concatPairsWithInterleaveInfix #-}
229+concatPairsWithInterleaveInfix :: Int -> Int -> Int -> IO ()
230+concatPairsWithInterleaveInfix = concatPairsWith Internal.interleaveInfix
231+
232+{-# INLINE concatPairsWithInterleaveMin #-}
233+concatPairsWithInterleaveMin :: Int -> Int -> Int -> IO ()
234+concatPairsWithInterleaveMin = concatPairsWith Internal.interleaveMin
235+
236+o_n_heap_concat :: Int -> [Benchmark]
237+o_n_heap_concat value =
238+ [ bgroup "concatPairsWith"
239+ [
240+ benchIOSrc1
241+ "unfoldManyInterleave (n of 1)"
242+ (unfoldManyInterleave value 1)
243+ , benchIOSrc1
244+ "unfoldManyInterleave (sqrtVal of sqrtVal)"
245+ (unfoldManyInterleave sqrtVal sqrtVal)
246+
247+ , benchIOSrc1
248+ "unfoldManyRoundRobin (n of 1)"
249+ (unfoldManyRoundRobin value 1)
250+ , benchIOSrc1
251+ "unfoldManyRoundRobin (sqrtVal of sqrtVal)"
252+ (unfoldManyRoundRobin sqrtVal sqrtVal)
253+
254+ , benchIOSrc1
255+ "concatPairsWithWSerial (n of 1)"
256+ (concatPairsWithWSerial value 1)
257+ , benchIOSrc1
258+ "concatPairsWithWSerial (sqrtVal of sqrtVal)"
259+ (concatPairsWithWSerial sqrtVal sqrtVal)
260+
261+ , benchIOSrc1
262+ "concatPairsWithInterleave (n of 1)"
263+ (concatPairsWithInterleave value 1)
264+ , benchIOSrc1
265+ "concatPairsWithInterleave (sqrtVal of sqrtVal)"
266+ (concatPairsWithInterleave sqrtVal sqrtVal)
267+
268+ , benchIOSrc1
269+ "concatPairsWithInterleaveSuffix (n of 1)"
270+ (concatPairsWithInterleaveSuffix value 1)
271+ , benchIOSrc1
272+ "concatPairsWithInterleaveSuffix (sqrtVal of sqrtVal)"
273+ (concatPairsWithInterleaveSuffix sqrtVal sqrtVal)
274+
275+ , benchIOSrc1
276+ "concatPairsWithInterleaveInfix (n of 1)"
277+ (concatPairsWithInterleaveInfix value 1)
278+ , benchIOSrc1
279+ "concatPairsWithInterleaveInfix (sqrtVal of sqrtVal)"
280+ (concatPairsWithInterleaveInfix sqrtVal sqrtVal)
281+
282+ , benchIOSrc1
283+ "concatPairsWithInterleaveMin (n of 1)"
284+ (concatPairsWithInterleaveMin value 1)
285+ , benchIOSrc1
286+ "concatPairsWithInterleaveMin (sqrtVal of sqrtVal)"
287+ (concatPairsWithInterleaveMin sqrtVal sqrtVal)
288+
289+ , benchIOSrc1
290+ "concatPairsWithRoundrobin (n of 1)"
291+ (concatPairsWithRoundrobin value 1)
292+ , benchIOSrc1
293+ "concatPairsWithRoundrobin (sqrtVal of sqrtVal)"
294+ (concatPairsWithRoundrobin sqrtVal sqrtVal)
295+ ]
296+ ]
297+
298+ where
299+
300+ sqrtVal = round $ sqrt (fromIntegral value :: Double)
301+
302+-------------------------------------------------------------------------------
303+-- Monad
304+-------------------------------------------------------------------------------
305+
306+o_1_space_outerProduct :: Int -> [Benchmark]
307+o_1_space_outerProduct value =
308+ [ bgroup "outer-product"
309+ [ benchIO
310+ "drain applicative (+) (sqrtVal of sqrtVal)"
311+ (toNullAp value fromWSerial)
312+ , benchIO
313+ "drain monad (+) (sqrtVal of sqrtVal)"
314+ (toNullM value fromWSerial)
315+ , benchIO
316+ "drain monad (+) (cbrtVal of cbrtVal of cbrtVal)"
317+ (toNullM3 value fromWSerial)
318+ , benchIO
319+ "filterAllOut monad (+) (sqrtVal of sqrtVal)"
320+ (filterAllOutM value fromWSerial)
321+ , benchIO
322+ "filterAllIn monad (+) (sqrtVal of sqrtVal)"
323+ (filterAllInM value fromWSerial)
324+ , benchIO
325+ "filterSome monad (+) (sqrtVal of sqrtVal)"
326+ (filterSome value fromWSerial)
327+ , benchIO
328+ "breakAfterSome monad (+) (sqrtVal of sqrtVal)"
329+ (breakAfterSome value fromWSerial)
330+ ]
331+ ]
332+
333+o_n_space_outerProduct :: Int -> [Benchmark]
334+o_n_space_outerProduct value =
335+ [ bgroup
336+ "outer-product"
337+ [ benchIO
338+ "toList monad (+) (sqrtVal of sqrtVal)"
339+ (toListM value fromWSerial)
340+ , benchIO
341+ "toListSome monad (+) (sqrtVal of sqrtVal)"
342+ (toListSome value fromWSerial)
343+ ]
344+ ]
345+
346+-------------------------------------------------------------------------------
347+-- Main
348+-------------------------------------------------------------------------------
349+
350+-- In addition to gauge options, the number of elements in the stream can be
351+-- passed using the --stream-size option.
352+--
353+main :: IO ()
354+main = runWithCLIOpts defaultStreamSize allBenchmarks
355+
356+
357+ where
358+
359+ allBenchmarks size =
360+ [ bgroup (o_1_space_prefix moduleName) $ concat
361+ [ o_1_space_mapping size
362+ , o_1_space_joining size
363+ , o_1_space_concat size
364+ , o_1_space_outerProduct size
365+ ]
366+ , bgroup (o_n_heap_prefix moduleName) (o_n_heap_concat size)
367+ , bgroup (o_n_space_prefix moduleName) $
368+ o_n_space_outerProduct size ++ o_n_space_concat size
369+ ]
benchmark/Streamly/Benchmark/Prelude/ZipAsync.hsnew file+97
@@ -0,0 +1,97 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+-- |
4+-- Module : Main
5+-- Copyright : (c) 2018 Composewell Technologies
6+--
7+-- License : BSD3
8+-- Maintainer : streamly@composewell.com
9+
10+{-# LANGUAGE FlexibleContexts #-}
11+
12+import Streamly.Prelude (fromSerial)
13+import qualified Streamly.Prelude as S
14+
15+import Streamly.Benchmark.Common
16+import Streamly.Benchmark.Prelude
17+
18+import Test.Tasty.Bench
19+
20+moduleName :: String
21+moduleName = "Prelude.ZipAsync"
22+
23+-------------------------------------------------------------------------------
24+-- Zipping
25+-------------------------------------------------------------------------------
26+
27+{-# INLINE zipAsyncWith #-}
28+zipAsyncWith :: (S.IsStream t, S.MonadAsync m) => Int -> Int -> t m (Int, Int)
29+zipAsyncWith count n =
30+ S.zipAsyncWith (,) (sourceUnfoldrM count n) (sourceUnfoldrM count (n + 1))
31+
32+{-# INLINE zipAsyncWithM #-}
33+zipAsyncWithM :: (S.IsStream t, S.MonadAsync m) => Int -> Int -> t m (Int, Int)
34+zipAsyncWithM count n =
35+ S.zipAsyncWithM
36+ (curry return)
37+ (sourceUnfoldrM count n)
38+ (sourceUnfoldrM count (n + 1))
39+
40+{-# INLINE zipAsyncAp #-}
41+zipAsyncAp :: (S.IsStream t, S.MonadAsync m) => Int -> Int -> t m (Int, Int)
42+zipAsyncAp count n =
43+ S.fromZipAsync $
44+ (,) <$> sourceUnfoldrM count n <*> sourceUnfoldrM count (n + 1)
45+
46+fromZipAsyncTraverse :: String -> Int -> Benchmark
47+fromZipAsyncTraverse name count =
48+ bench name
49+ $ nfIO
50+ $ S.drain $ S.fromZipAsync $ traverse S.fromPure [0 :: Int .. count]
51+
52+o_1_space_joining :: Int -> [Benchmark]
53+o_1_space_joining value =
54+ [ bgroup "joining"
55+ [ benchIOSrc fromSerial "zipAsyncWith (2,x/2)" (zipAsyncWith
56+ (value `div` 2))
57+ , benchIOSrc fromSerial "zipAsyncWithM (2,x/2)" (zipAsyncWithM
58+ (value `div` 2))
59+ , benchIOSrc fromSerial "zipAsyncAp (2,x/2)" (zipAsyncAp (value `div` 2))
60+ , benchIOSink value "fmap zipAsyncly" $ fmapN S.fromZipAsync 1
61+ ]
62+ ]
63+
64+o_n_heap_joining :: Int -> [Benchmark]
65+o_n_heap_joining value =
66+ [ bgroup "joining"
67+ [ fromZipAsyncTraverse "ZipAsync Applicative (x/100)" (value `div` 100)
68+ ]
69+ ]
70+
71+-------------------------------------------------------------------------------
72+-- Monad outer product
73+-------------------------------------------------------------------------------
74+
75+o_1_space_outerProduct :: Int -> [Benchmark]
76+o_1_space_outerProduct value =
77+ [ bgroup "monad-outer-product"
78+ [ benchIO "toNullAp" $ toNullAp value S.fromZipAsync
79+ ]
80+ ]
81+
82+-------------------------------------------------------------------------------
83+-- Main
84+-------------------------------------------------------------------------------
85+
86+main :: IO ()
87+main = runWithCLIOpts defaultStreamSize allBenchmarks
88+
89+ where
90+
91+ allBenchmarks size =
92+ [ bgroup (o_1_space_prefix moduleName) $ concat
93+ [ o_1_space_joining size
94+ , o_1_space_outerProduct size
95+ ]
96+ , bgroup (o_n_heap_prefix moduleName) $ o_n_heap_joining size
97+ ]
benchmark/Streamly/Benchmark/Prelude/ZipSerial.hsnew file+187
@@ -0,0 +1,187 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+-- |
4+-- Module : Main
5+-- Copyright : (c) 2018 Composewell Technologies
6+--
7+-- License : BSD3
8+-- Maintainer : streamly@composewell.com
9+
10+{-# LANGUAGE CPP #-}
11+{-# LANGUAGE FlexibleContexts #-}
12+{-# LANGUAGE ScopedTypeVariables #-}
13+{-# LANGUAGE RankNTypes #-}
14+
15+#ifdef __HADDOCK_VERSION__
16+#undef INSPECTION
17+#endif
18+
19+#ifdef INSPECTION
20+{-# LANGUAGE TemplateHaskell #-}
21+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
22+#endif
23+
24+import Prelude hiding (zipWith)
25+
26+import Streamly.Prelude (MonadAsync)
27+import qualified Streamly.Prelude as S
28+
29+import Streamly.Benchmark.Common
30+import Streamly.Benchmark.Prelude hiding (sourceUnfoldrM)
31+
32+import Test.Tasty.Bench
33+
34+#ifdef INSPECTION
35+import GHC.Types (SPEC(..))
36+import Test.Inspection
37+
38+import qualified Streamly.Internal.Data.Stream as D
39+#endif
40+
41+moduleName :: String
42+moduleName = "Prelude.ZipSerial"
43+
44+-------------------------------------------------------------------------------
45+-- Zipping
46+-------------------------------------------------------------------------------
47+
48+-- XXX somehow copying this definition here instead of importing it performs
49+-- better. Need to investigate why.
50+{-# INLINE sourceUnfoldrM #-}
51+sourceUnfoldrM :: (S.IsStream t, MonadAsync m) => Int -> Int -> t m Int
52+sourceUnfoldrM count start = S.unfoldrM step start
53+ where
54+ step cnt =
55+ if cnt > start + count
56+ then return Nothing
57+ else return (Just (cnt, cnt + 1))
58+
59+{-# INLINE zipWith #-}
60+zipWith :: Int -> Int -> IO ()
61+zipWith count n =
62+ S.drain $
63+ S.zipWith
64+ (,)
65+ (S.fromSerial $ sourceUnfoldrM count n)
66+ (S.fromSerial $ sourceUnfoldrM count (n + 1))
67+
68+#ifdef INSPECTION
69+inspect $ hasNoTypeClasses 'zipWith
70+inspect $ 'zipWith `hasNoType` ''SPEC
71+inspect $ 'zipWith `hasNoType` ''D.Step
72+#endif
73+
74+{-# INLINE zipWithM #-}
75+zipWithM :: Int -> Int -> IO ()
76+zipWithM count n =
77+ S.drain $
78+ S.zipWithM
79+ (curry return)
80+ (sourceUnfoldrM count n)
81+ (sourceUnfoldrM count (n + 1))
82+
83+#ifdef INSPECTION
84+inspect $ hasNoTypeClasses 'zipWithM
85+inspect $ 'zipWithM `hasNoType` ''SPEC
86+inspect $ 'zipWithM `hasNoType` ''D.Step
87+#endif
88+
89+{-
90+{-# INLINE concatMapWithZip #-}
91+concatMapWithZip :: Int -> Int -> Int -> IO ()
92+concatMapWithZip = concatStreamsWith (S.zipWith (+))
93+-}
94+
95+{-# INLINE concatPairsWithZip #-}
96+concatPairsWithZip :: Int -> Int -> Int -> IO ()
97+concatPairsWithZip = concatPairsWith (S.zipWith (+))
98+
99+o_1_space_joining :: Int -> [Benchmark]
100+o_1_space_joining value =
101+ [ bgroup "joining"
102+ [ benchIOSrc1 "zip (2 of n/2)" (zipWith (value `div` 2))
103+ , benchIOSrc1 "zipM (2 of n/2)" (zipWithM (value `div` 2))
104+ {-
105+ -- Not correct because of nil stream at end issue.
106+ , benchIOSrc1 "concatMapWithZip (+) (2 of n/2)"
107+ (concatMapWithZip 2 (value `div` 2))
108+ -}
109+ ]
110+ ]
111+
112+-------------------------------------------------------------------------------
113+-- Mapping
114+-------------------------------------------------------------------------------
115+
116+o_1_space_mapping :: Int -> [Benchmark]
117+o_1_space_mapping value =
118+ [ bgroup "mapping"
119+ [ benchIOSink value "fmap" $ fmapN S.fromZipSerial 1
120+ ]
121+ ]
122+
123+-------------------------------------------------------------------------------
124+-- Concat
125+-------------------------------------------------------------------------------
126+
127+o_n_heap_concat :: Int -> [Benchmark]
128+o_n_heap_concat value =
129+ [ bgroup "concatPairsWith"
130+ [ {- -- This fails with stack overflow.
131+ benchIOSrc1 "concatMapWithZip (n of 1)"
132+ (concatMapWithZip value 1)
133+ -- Not correct because of nil stream at end issue.
134+ , benchIOSrc1 "concatMapWithZip (sqrtVal of sqrtVal)"
135+ (concatMapWithZip sqrtVal sqrtVal)
136+ -}
137+ benchIOSrc1 "concatPairsWithZip (n of 1)"
138+ (concatPairsWithZip value 1)
139+ , benchIOSrc1 "concatPairsWithZip (sqrtVal of sqrtVal)"
140+ (concatPairsWithZip sqrtVal sqrtVal)
141+ , benchIOSrc1 "concatPairsWithZip (+) (2 of n/2)"
142+ (concatPairsWithZip 2 (value `div` 2))
143+ ]
144+ ]
145+
146+ where
147+
148+ sqrtVal = round $ sqrt (fromIntegral value :: Double)
149+
150+-------------------------------------------------------------------------------
151+-- Monad outer product
152+-------------------------------------------------------------------------------
153+
154+{-
155+-- Not correct because of nil stream at end issue.
156+o_1_space_outerProduct :: Int -> [Benchmark]
157+o_1_space_outerProduct value =
158+ [ bgroup "monad-outer-product"
159+ -- XXX needs fixing
160+ [ benchIO "toNullAp" $ toNullAp value S.zipSerially
161+ ]
162+ ]
163+-}
164+
165+-------------------------------------------------------------------------------
166+-- Main
167+-------------------------------------------------------------------------------
168+
169+-- In addition to gauge options, the number of elements in the stream can be
170+-- passed using the --stream-size option.
171+--
172+main :: IO ()
173+main = runWithCLIOpts defaultStreamSize allBenchmarks
174+
175+ where
176+
177+ allBenchmarks size =
178+ [ bgroup (o_1_space_prefix moduleName) $ concat
179+ [ o_1_space_joining size
180+ , o_1_space_mapping size
181+ -- XXX need to fix, timing in ns
182+ -- , o_1_space_outerProduct size
183+ ]
184+ , bgroup (o_n_heap_prefix moduleName) $ concat
185+ [ o_n_heap_concat size
186+ ]
187+ ]
benchmark/Streamly/Benchmark/Unicode/Char.hsnew file+90
@@ -0,0 +1,90 @@
1+{-# OPTIONS_GHC -Wno-deprecations -Wno-orphans #-}
2+
3+--
4+-- Module : Streamly.Unicode.Char
5+-- Copyright : (c) 2021 Composewell Technologies
6+-- License : BSD-3-Clause
7+-- Maintainer : streamly@composewell.com
8+-- Stability : experimental
9+-- Portability : GHC
10+
11+--------------------------------------------------------------------------------
12+-- Imports
13+--------------------------------------------------------------------------------
14+
15+import Control.DeepSeq (NFData(..))
16+import Streamly.Internal.Data.Array (Array)
17+import System.FilePath (dropExtensions, takeFileName)
18+import System.FilePath.Posix ((</>))
19+import Test.Tasty.Bench (Benchmark, bench, bgroup, defaultMain, env, nfIO)
20+import Streamly.Internal.Unicode.Char
21+ ( NormalizationMode(NFC, NFD, NFKC, NFKD)
22+ , normalize
23+ )
24+import Streamly.Benchmark.Common (o_1_space_prefix)
25+
26+import qualified Streamly.Internal.Data.Array as Array
27+import qualified Streamly.Internal.Data.Stream as IsStream
28+import qualified System.Directory as Dir
29+
30+--------------------------------------------------------------------------------
31+-- Utilities
32+--------------------------------------------------------------------------------
33+
34+moduleName :: String
35+moduleName = "Unicode.Char"
36+
37+dataDir :: FilePath
38+dataDir = "benchmark/Streamly/Benchmark/Unicode/data"
39+
40+-- Truncate or expand all datasets to this size to provide a normalized
41+-- measurement view across all datasets and to reduce the effect of noise
42+-- because of the datasets being too small.
43+dataSetSize :: Int
44+dataSetSize = 1000000
45+
46+-- Unboxed arrays are fully evaluated.
47+instance NFData (Array a) where
48+ {-# INLINE rnf #-}
49+ rnf _ = ()
50+
51+makeBench ::
52+ (String, Array Char -> IO ()) -> (String, IO (Array Char)) -> Benchmark
53+makeBench (implName, func) (dataName, setup) =
54+ env setup (bench (implName ++ "/" ++ dataName) . nfIO . func)
55+
56+strInput :: FilePath -> (String, IO String)
57+strInput file = (dataName file, fmap (take dataSetSize . cycle) (readFile file))
58+
59+ where
60+
61+ dataName = dropExtensions . takeFileName
62+
63+arrInput :: FilePath -> (String, IO (Array Char))
64+arrInput file = second (fmap Array.fromList) (strInput file)
65+
66+ where
67+
68+ second f (a, b) = (a, f b)
69+
70+--------------------------------------------------------------------------------
71+-- Benchmarks
72+--------------------------------------------------------------------------------
73+
74+benchFunctions :: [(String, Array Char -> IO ())]
75+benchFunctions =
76+ [ ("NFD", IsStream.drain . normalize NFD . Array.read)
77+ , ("NFKD", IsStream.drain . normalize NFKD . Array.read)
78+ , ("NFC", IsStream.drain . normalize NFC . Array.read)
79+ , ("NFKC", IsStream.drain . normalize NFKC . Array.read)
80+ ]
81+
82+main :: IO ()
83+main = do
84+ cdir <- Dir.getCurrentDirectory
85+ dataFiles <- fmap (dataDir </>) <$> Dir.listDirectory (cdir </> dataDir)
86+ defaultMain
87+ [ bgroup
88+ (o_1_space_prefix moduleName)
89+ (makeBench <$> benchFunctions <*> map arrInput dataFiles)
90+ ]
benchmark/Streamly/Benchmark/Unicode/Parser.hsnew file+107
@@ -0,0 +1,107 @@
1+-- |
2+-- Module : Streamly.Benchmark.Data.Parser
3+-- Copyright : (c) 2020 Composewell Technologies
4+--
5+-- License : BSD-3-Clause
6+-- Maintainer : streamly@composewell.com
7+
8+{-# LANGUAGE CPP #-}
9+{-# LANGUAGE FlexibleContexts #-}
10+{-# LANGUAGE ScopedTypeVariables #-}
11+{-# OPTIONS_GHC -Wno-orphans #-}
12+
13+#undef FUSION_CHECK
14+#ifdef FUSION_CHECK
15+{-# OPTIONS_GHC -ddump-simpl -ddump-to-file -dsuppress-all #-}
16+#endif
17+
18+module Main
19+ (
20+ main
21+ ) where
22+
23+import Control.DeepSeq (NFData(..))
24+import Control.Monad (replicateM_)
25+import Streamly.Internal.Data.Parser (ParseError(..))
26+import Streamly.Internal.Data.Stream (Stream)
27+import Prelude hiding
28+ (any, all, take, sequence, sequence_, sequenceA, takeWhile, dropWhile)
29+
30+import qualified Streamly.Data.Array as Array
31+import qualified Streamly.Data.Stream as Stream
32+import qualified Streamly.Internal.Unicode.Parser as PRU
33+
34+import Test.Tasty.Bench hiding (env)
35+import Streamly.Benchmark.Common
36+
37+runParser :: Int -> (Stream IO Char -> IO a) -> IO ()
38+runParser count p = do
39+ let v = "+123456789.123456789e-123"
40+ let !(arr :: Array.Array Char) = Array.fromListN (length v) v
41+ let s = Stream.unfold Array.reader arr
42+ replicateM_ count (p s)
43+
44+-- | Takes a fold method, and uses it with a default source.
45+{-# INLINE benchIOSink #-}
46+benchIOSink :: Int -> String -> (Stream IO Char -> IO b) -> Benchmark
47+benchIOSink value name f = bench name $ nfIO $ runParser value f
48+
49+{-# INLINE doubleParser #-}
50+doubleParser :: Monad m => Stream m Char -> m (Either ParseError (Int, Int))
51+doubleParser = Stream.parse PRU.doubleParser
52+
53+{-# INLINE number #-}
54+number :: Monad m => Stream m Char -> m (Either ParseError (Integer, Int))
55+number = Stream.parse PRU.number
56+
57+{-# INLINE double #-}
58+double :: Monad m => Stream m Char -> m (Either ParseError Double)
59+double = Stream.parse PRU.double
60+
61+{-# INLINE numberDouble #-}
62+numberDouble :: Monad m => Stream m Char -> m (Either ParseError Double)
63+numberDouble = Stream.parse p
64+ where p = uncurry PRU.mkDouble <$> PRU.number
65+
66+-------------------------------------------------------------------------------
67+-- Benchmarks
68+-------------------------------------------------------------------------------
69+
70+moduleName :: String
71+moduleName = "Unicode.Parser"
72+
73+instance NFData ParseError where
74+ {-# INLINE rnf #-}
75+ rnf (ParseError x) = rnf x
76+
77+o_n_heap_serial :: Int -> [Benchmark]
78+o_n_heap_serial value =
79+ [
80+ benchIOSink value "doubleParser" doubleParser
81+ , benchIOSink value "number" number
82+ , benchIOSink value "double (doubleParser)" double
83+ , benchIOSink value "double (number)" numberDouble
84+ ]
85+
86+-------------------------------------------------------------------------------
87+-- Driver
88+-------------------------------------------------------------------------------
89+
90+main :: IO ()
91+main = do
92+#ifndef FUSION_CHECK
93+ runWithCLIOpts defaultStreamSize allBenchmarks
94+
95+ where
96+
97+ allBenchmarks value =
98+ [ bgroup (o_n_heap_prefix moduleName) (o_n_heap_serial value)
99+ ]
100+#else
101+ -- Enable FUSION_CHECK macro at the beginning of the file
102+ -- Enable one benchmark below, and run the benchmark
103+ -- Check the .dump-simpl output
104+ let value = 100000
105+ runParser value double
106+ return ()
107+#endif
benchmark/Streamly/Benchmark/Unicode/Stream.hsnew file+349
@@ -0,0 +1,349 @@
1+{-# OPTIONS_GHC -Wno-deprecations #-}
2+
3+--
4+-- Module : Streamly.Unicode.Stream
5+-- Copyright : (c) 2019 Composewell Technologies
6+-- License : BSD-3-Clause
7+-- Maintainer : streamly@composewell.com
8+-- Stability : experimental
9+-- Portability : GHC
10+
11+{-# LANGUAGE CPP #-}
12+{-# LANGUAGE ScopedTypeVariables #-}
13+
14+#undef FUSION_CHECK
15+#ifdef FUSION_CHECK
16+{-# OPTIONS_GHC -ddump-simpl -ddump-to-file -dsuppress-all #-}
17+#endif
18+
19+#ifdef __HADDOCK_VERSION__
20+#undef INSPECTION
21+#endif
22+
23+#ifdef INSPECTION
24+{-# LANGUAGE TemplateHaskell #-}
25+{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
26+#endif
27+
28+import Streamly.Data.Stream (Stream)
29+import Streamly.Data.Fold (Fold)
30+import Prelude hiding (last, length)
31+import System.IO (Handle)
32+
33+import qualified Streamly.Data.Array as Array
34+import qualified Streamly.Data.Fold as Fold
35+import qualified Streamly.Internal.Data.Stream as Stream
36+import qualified Streamly.Internal.Data.Unfold as Unfold
37+import qualified Streamly.Internal.FileSystem.Handle as Handle
38+import qualified Streamly.Internal.Unicode.Array as UnicodeArr
39+import qualified Streamly.Internal.Unicode.Stream as Unicode
40+
41+import Test.Tasty.Bench hiding (env)
42+import Streamly.Benchmark.Common
43+import Streamly.Benchmark.Common.Handle
44+
45+#ifdef INSPECTION
46+import Streamly.Internal.Data.MutByteArray (Unbox)
47+import Streamly.Internal.Data.Stream (Step(..))
48+import qualified Streamly.Internal.Data.Array as Array
49+import qualified Streamly.Internal.Data.MutArray as MutArray
50+import qualified Streamly.Internal.Data.Fold as Fold
51+import qualified Streamly.Internal.Data.Tuple.Strict as Strict
52+
53+import Test.Inspection
54+#endif
55+
56+moduleName :: String
57+moduleName = "Unicode.Stream"
58+
59+-- | Copy file
60+{-# NOINLINE copyCodecUtf8ArraysLenient #-}
61+copyCodecUtf8ArraysLenient :: Handle -> Handle -> IO ()
62+copyCodecUtf8ArraysLenient inh outh =
63+ Stream.fold (Handle.write outh)
64+ $ Unicode.encodeUtf8'
65+ $ Unicode.decodeUtf8Chunks
66+ $ Handle.readChunks inh
67+
68+#ifdef INSPECTION
69+inspect $ hasNoTypeClasses 'copyCodecUtf8ArraysLenient
70+-- inspect $ 'copyCodecUtf8ArraysLenient `hasNoType` ''Step
71+#endif
72+
73+o_1_space_decode_encode_chunked :: BenchEnv -> [Benchmark]
74+o_1_space_decode_encode_chunked env =
75+ [ bgroup "decode-encode/toChunks"
76+ [
77+ mkBenchSmall "encodeUtf8' . decodeUtf8Arrays" env $ \inH outH ->
78+ copyCodecUtf8ArraysLenient inH outH
79+ ]
80+ ]
81+
82+-------------------------------------------------------------------------------
83+-- copy with group/ungroup transformations
84+-------------------------------------------------------------------------------
85+
86+{-# INLINE splitOnSuffix #-}
87+splitOnSuffix
88+ :: (Monad m)
89+ => (a -> Bool) -> Fold m a b -> Stream m a -> Stream m b
90+splitOnSuffix predicate f = Stream.foldMany (Fold.takeEndBy_ predicate f)
91+
92+{-# NOINLINE linesUnlinesCopy #-}
93+linesUnlinesCopy :: Handle -> Handle -> IO ()
94+linesUnlinesCopy inh outh =
95+ Stream.fold (Handle.write outh)
96+ $ Unicode.encodeLatin1'
97+ $ Unicode.unlines Unfold.fromList
98+ $ splitOnSuffix (== '\n') Fold.toList
99+ $ Unicode.decodeLatin1
100+ $ Stream.unfold Handle.reader inh
101+
102+{-# NOINLINE linesUnlinesArrayWord8Copy #-}
103+linesUnlinesArrayWord8Copy :: Handle -> Handle -> IO ()
104+linesUnlinesArrayWord8Copy inh outh =
105+ Stream.fold (Handle.write outh)
106+ $ Stream.interposeSuffix 10 Array.reader
107+ $ splitOnSuffix (== 10) Array.write
108+ $ Stream.unfold Handle.reader inh
109+
110+-- XXX splitSuffixOn requires -funfolding-use-threshold=150 for better fusion
111+-- | Lines and unlines
112+{-# NOINLINE linesUnlinesArrayCharCopy #-}
113+linesUnlinesArrayCharCopy :: Handle -> Handle -> IO ()
114+linesUnlinesArrayCharCopy inh outh =
115+ Stream.fold (Handle.write outh)
116+ $ Unicode.encodeLatin1'
117+ $ UnicodeArr.unlines
118+ $ UnicodeArr.lines
119+ $ Unicode.decodeLatin1
120+ $ Stream.unfold Handle.reader inh
121+
122+#ifdef INSPECTION
123+inspect $ hasNoTypeClassesExcept 'linesUnlinesArrayCharCopy [''Unbox]
124+-- inspect $ 'linesUnlinesArrayCharCopy `hasNoType` ''Step
125+#endif
126+
127+-- XXX to write this we need to be able to map decodeUtf8 on the Array.read fold.
128+-- For that we have to write decodeUtf8 as a Pipe.
129+{-
130+{-# INLINE linesUnlinesArrayUtf8Copy #-}
131+linesUnlinesArrayUtf8Copy :: Handle -> Handle -> IO ()
132+linesUnlinesArrayUtf8Copy inh outh =
133+ Stream.fold (Handle.write outh)
134+ $ Unicode.encodeLatin1'
135+ $ Stream.intercalate (Array.fromList [10]) (pipe Unicode.decodeUtf8P Array.read)
136+ $ Stream.splitOnSuffix (== '\n') (IFold.map Unicode.encodeUtf8' Array.write)
137+ $ Unicode.decodeLatin1
138+ $ Stream.unfold Handle.read inh
139+-}
140+
141+-- | Word, unwords and copy
142+{-# NOINLINE wordsUnwordsCopyWord8 #-}
143+wordsUnwordsCopyWord8 :: Handle -> Handle -> IO ()
144+wordsUnwordsCopyWord8 inh outh =
145+ Stream.fold (Handle.write outh)
146+ $ Stream.interposeSuffix 32 Unfold.fromList
147+ $ Stream.wordsBy isSp Fold.toList
148+ $ Stream.unfold Handle.reader inh
149+
150+#ifdef INSPECTION
151+inspect $ hasNoTypeClasses 'wordsUnwordsCopyWord8
152+-- inspect $ 'wordsUnwordsCopyWord8 `hasNoType` ''Step
153+#endif
154+
155+-- | Word, unwords and copy
156+{-# NOINLINE wordsUnwordsCopy #-}
157+wordsUnwordsCopy :: Handle -> Handle -> IO ()
158+wordsUnwordsCopy inh outh =
159+ Stream.fold (Handle.write outh)
160+ $ Unicode.encodeLatin1'
161+ $ Unicode.unwords Unfold.fromList
162+ -- XXX This pipeline does not fuse with wordsBy but fuses with splitOn
163+ -- with -funfolding-use-threshold=300. With wordsBy it does not fuse
164+ -- even with high limits for inlining and spec-constr ghc options. With
165+ -- -funfolding-use-threshold=400 it performs pretty well and there
166+ -- is no evidence in the core that a join point involving Step
167+ -- constructors is not getting inlined. Not being able to fuse at all in
168+ -- this case could be an unknown issue, need more investigation.
169+ $ Stream.wordsBy isSpace Fold.toList
170+ -- -- $ Stream.splitOn isSpace Fold.toList
171+ $ Unicode.decodeLatin1
172+ $ Stream.unfold Handle.reader inh
173+
174+#ifdef INSPECTION
175+-- inspect $ hasNoTypeClasses 'wordsUnwordsCopy
176+-- inspect $ 'wordsUnwordsCopy `hasNoType` ''Step
177+#endif
178+
179+{-# NOINLINE wordsUnwordsCharArrayCopy #-}
180+wordsUnwordsCharArrayCopy :: Handle -> Handle -> IO ()
181+wordsUnwordsCharArrayCopy inh outh =
182+ Stream.fold (Handle.write outh)
183+ $ Unicode.encodeLatin1'
184+ $ UnicodeArr.unwords
185+ $ UnicodeArr.words
186+ $ Unicode.decodeLatin1
187+ $ Stream.unfold Handle.reader inh
188+
189+o_1_space_copy_read_group_ungroup :: BenchEnv -> [Benchmark]
190+o_1_space_copy_read_group_ungroup env =
191+ [ bgroup "ungroup-group"
192+ [ mkBenchSmall "unlines . splitOnSuffix ([Word8])" env
193+ $ \inh outh -> linesUnlinesCopy inh outh
194+ , mkBenchSmall "interposeSuffix . splitOnSuffix (Array Word8)" env
195+ $ \inh outh -> linesUnlinesArrayWord8Copy inh outh
196+ , mkBenchSmall "UnicodeArr.unlines . UnicodeArr.lines (Array Char)" env
197+ $ \inh outh -> linesUnlinesArrayCharCopy inh outh
198+
199+ , mkBenchSmall "interposeSuffix . wordsBy ([Word8])" env
200+ $ \inh outh -> wordsUnwordsCopyWord8 inh outh
201+ , mkBenchSmall "unwords . wordsBy ([Char])" env
202+ $ \inh outh -> wordsUnwordsCopy inh outh
203+ , mkBenchSmall "UnicodeArr.unwords . UnicodeArr.words (Array Char)" env
204+ $ \inh outh -> wordsUnwordsCharArrayCopy inh outh
205+ ]
206+ ]
207+
208+-------------------------------------------------------------------------------
209+-- copy unfold
210+-------------------------------------------------------------------------------
211+
212+-- | Copy file (encodeLatin1')
213+{-# NOINLINE copyStreamLatin1' #-}
214+copyStreamLatin1' :: Handle -> Handle -> IO ()
215+copyStreamLatin1' inh outh =
216+ Stream.fold (Handle.write outh)
217+ $ Unicode.encodeLatin1'
218+ $ Unicode.decodeLatin1
219+ $ Stream.unfold Handle.reader inh
220+
221+#ifdef INSPECTION
222+inspect $ hasNoTypeClasses 'copyStreamLatin1'
223+inspect $ 'copyStreamLatin1' `hasNoType` ''Step
224+inspect $ 'copyStreamLatin1' `hasNoType` ''Unfold.ConcatState -- Handle.read/UF.many
225+
226+inspect $ 'copyStreamLatin1' `hasNoType` ''Fold.Step
227+inspect $ 'copyStreamLatin1' `hasNoType` ''MutArray.ArrayUnsafe -- Handle.write/writeNUnsafe
228+ -- Handle.read/Array.read
229+inspect $ 'copyStreamLatin1' `hasNoType` ''Strict.Tuple3' -- Handle.write/chunksOf
230+#endif
231+
232+-- | Copy file (encodeLatin1)
233+{-# NOINLINE copyStreamLatin1 #-}
234+copyStreamLatin1 :: Handle -> Handle -> IO ()
235+copyStreamLatin1 inh outh =
236+ Stream.fold (Handle.write outh)
237+ $ Unicode.encodeLatin1
238+ $ Unicode.decodeLatin1
239+ $ Stream.unfold Handle.reader inh
240+
241+#ifdef INSPECTION
242+inspect $ hasNoTypeClasses 'copyStreamLatin1
243+inspect $ 'copyStreamLatin1 `hasNoType` ''Step
244+inspect $ 'copyStreamLatin1 `hasNoType` ''Unfold.ConcatState -- Handle.read/UF.many
245+
246+inspect $ 'copyStreamLatin1 `hasNoType` ''Fold.ManyState
247+inspect $ 'copyStreamLatin1 `hasNoType` ''Fold.Step
248+inspect $ 'copyStreamLatin1 `hasNoType` ''MutArray.ArrayUnsafe -- Handle.write/writeNUnsafe
249+ -- Handle.read/Array.read
250+inspect $ 'copyStreamLatin1 `hasNoType` ''Strict.Tuple3' -- Handle.write/chunksOf
251+#endif
252+
253+-- | Copy file
254+_copyStreamUtf8' :: Handle -> Handle -> IO ()
255+_copyStreamUtf8' inh outh =
256+ Stream.fold (Handle.write outh)
257+ $ Unicode.encodeUtf8'
258+ $ Unicode.decodeUtf8'
259+ $ Stream.unfold Handle.reader inh
260+
261+#ifdef INSPECTION
262+inspect $ hasNoTypeClasses '_copyStreamUtf8'
263+-- inspect $ '_copyStreamUtf8 `hasNoType` ''Step
264+-- inspect $ '_copyStreamUtf8 `hasNoType` ''Array.FlattenState
265+-- inspect $ '_copyStreamUtf8 `hasNoType` ''D.ConcatMapUState
266+#endif
267+
268+-- | Copy file
269+{-# NOINLINE copyStreamUtf8 #-}
270+copyStreamUtf8 :: Handle -> Handle -> IO ()
271+copyStreamUtf8 inh outh =
272+ Stream.fold (Handle.write outh)
273+ $ Unicode.encodeUtf8
274+ $ Unicode.decodeUtf8
275+ $ Stream.unfold Handle.reader inh
276+
277+#ifdef INSPECTION
278+inspect $ hasNoTypeClasses 'copyStreamUtf8
279+-- inspect $ 'copyStreamUtf8Lax `hasNoType` ''Step
280+-- inspect $ 'copyStreamUtf8Lax `hasNoType` ''Array.FlattenState
281+-- inspect $ 'copyStreamUtf8Lax `hasNoType` ''D.ConcatMapUState
282+#endif
283+
284+{-# NOINLINE _copyStreamUtf8'Fold #-}
285+_copyStreamUtf8'Fold :: Handle -> Handle -> IO ()
286+_copyStreamUtf8'Fold inh outh =
287+ Stream.fold (Handle.write outh)
288+ $ Unicode.encodeUtf8
289+ $ Stream.catRights
290+ $ Stream.parseMany Unicode.writeCharUtf8'
291+ $ Stream.unfold Handle.reader inh
292+
293+{-# NOINLINE _copyStreamUtf8Parser #-}
294+_copyStreamUtf8Parser :: Handle -> Handle -> IO ()
295+_copyStreamUtf8Parser inh outh =
296+ Stream.fold (Handle.write outh)
297+ $ Unicode.encodeUtf8
298+ $ Stream.catRights $ Stream.parseMany
299+ (Unicode.parseCharUtf8With Unicode.TransliterateCodingFailure)
300+ $ Stream.unfold Handle.reader inh
301+
302+o_1_space_decode_encode_read :: BenchEnv -> [Benchmark]
303+o_1_space_decode_encode_read env =
304+ [ bgroup "decode-encode"
305+ [
306+ -- This needs an ascii file, as decode just errors out.
307+ mkBench "encodeLatin1' . decodeLatin1" env $ \inh outh ->
308+ copyStreamLatin1' inh outh
309+ , mkBench "encodeLatin1 . decodeLatin1" env $ \inh outh ->
310+ copyStreamLatin1 inh outh
311+#ifdef INCLUDE_STRICT_UTF8
312+ -- Requires valid unicode input
313+ , mkBench "encodeUtf8' . decodeUtf8'" env $ \inh outh ->
314+ _copyStreamUtf8' inh outh
315+ , mkBench "encodeUtf8' . foldMany writeCharUtf8'" env $ \inh outh ->
316+ _copyStreamUtf8'Fold inh outh
317+#endif
318+ , mkBenchSmall "encodeUtf8 . parseMany parseCharUtf8" env
319+ $ \inh outh -> _copyStreamUtf8Parser inh outh
320+ , mkBenchSmall "encodeUtf8 . decodeUtf8" env $ \inh outh ->
321+ copyStreamUtf8 inh outh
322+ ]
323+ ]
324+
325+main :: IO ()
326+main = do
327+#ifndef FUSION_CHECK
328+ env <- mkHandleBenchEnv
329+ defaultMain (allBenchmarks env)
330+
331+ where
332+
333+ allBenchmarks env =
334+ [ bgroup (o_1_space_prefix moduleName) $ Prelude.concat
335+ [ o_1_space_copy_read_group_ungroup env
336+ , o_1_space_decode_encode_chunked env
337+ , o_1_space_decode_encode_read env
338+ ]
339+ ]
340+#else
341+ -- Enable FUSION_CHECK macro at the beginning of the file
342+ -- Enable one benchmark below, and run the benchmark
343+ -- Check the .dump-simpl output
344+ env <- mkHandleBenchEnv
345+ let mkHandles (RefHandles {bigInH = inh, outputH = outh}) = Handles inh outh
346+ (Handles inh outh) <- getHandles env mkHandles
347+ copyStreamLatin1' inh outh
348+ return ()
349+#endif
benchmark/Streamly/Benchmark/Unicode/Utf8.hsnew file+55
@@ -0,0 +1,55 @@
1+--
2+-- Module : Streamly.Unicode.Utf8
3+-- Copyright : (c) 2021 Composewell Technologies
4+-- License : BSD-3-Clause
5+-- Maintainer : streamly@composewell.com
6+-- Stability : experimental
7+-- Portability : GHC
8+
9+--------------------------------------------------------------------------------
10+-- Imports
11+--------------------------------------------------------------------------------
12+
13+import Data.Char (chr)
14+import Streamly.Internal.Unicode.Utf8 (Utf8)
15+
16+import Test.Tasty.Bench hiding (env)
17+import Streamly.Benchmark.Common
18+
19+import qualified Streamly.Internal.Unicode.Utf8 as Utf8
20+
21+--------------------------------------------------------------------------------
22+-- Utilities
23+--------------------------------------------------------------------------------
24+
25+moduleName :: String
26+moduleName = "Unicode.Stream"
27+
28+--------------------------------------------------------------------------------
29+-- Benchmarks
30+--------------------------------------------------------------------------------
31+
32+{-# INLINE pack #-}
33+pack :: Int -> Utf8
34+pack i = Utf8.pack $ chr <$> [1 .. i]
35+
36+{-# INLINE packUnpack #-}
37+packUnpack :: Int -> String
38+packUnpack = Utf8.unpack . pack
39+
40+--------------------------------------------------------------------------------
41+-- Main function
42+--------------------------------------------------------------------------------
43+
44+main :: IO ()
45+main = runWithCLIOpts defaultStreamSize allBenchmarks
46+
47+ where
48+
49+ allBenchmarks value =
50+ [ bgroup
51+ moduleName
52+ [ bench "pack" $ whnf pack value
53+ , bench "pack + unpack" $ whnf packUnpack value
54+ ]
55+ ]
benchmark/Streamly/Benchmark/Unicode/data/AllChars.txtnew file+216
@@ -0,0 +1,216 @@
1+This page contains characters from each of the Unicode character blocks.
2+
3+Basic Latin
4+! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~
5+Latin-1 Supplement
6+ ¡ ¢ £ ¤ ¥ ¦ § ¨ © ª « ¬ ­ ® ¯ ° ± ² ³ ´ µ ¶ · ¸ ¹ º » ¼ ½ ¾ ¿ À Á Â Ã Ä Å Æ Ç È É Ê Ë Ì Í Î Ï Ð Ñ Ò Ó Ô Õ Ö × Ø Ù Ú Û Ü Ý Þ ß à á â ã ä å æ ç è é ê ë ì í î ï ð ñ ò ó ô õ ö ÷ ø ù ú û ü ý þ ÿ
7+Latin Extended-A
8+Ā ā Ă ă Ą ą Ć ć Ĉ ĉ Ċ ċ Č č Ď ď Đ đ Ē ē Ĕ ĕ Ė ė Ę ę Ě ě Ĝ ĝ Ğ ğ Ġ ġ Ģ ģ Ĥ ĥ Ħ ħ Ĩ ĩ Ī ī Ĭ ĭ Į į İ ı IJ ij Ĵ ĵ Ķ ķ ĸ Ĺ ĺ Ļ ļ Ľ ľ Ŀ ŀ Ł ł Ń ń Ņ ņ Ň ň ʼn Ŋ ŋ Ō ō Ŏ ŏ Ő ő Œ œ Ŕ ŕ Ŗ ŗ Ř ř Ś ś Ŝ ŝ Ş ş Š š Ţ ţ Ť ť Ŧ ŧ Ũ ũ Ū ū Ŭ ŭ Ů ů Ű ű Ų ų Ŵ ŵ Ŷ ŷ Ÿ Ź ź Ż ż Ž ž ſ
9+Latin Extended-B
10+ƀ Ɓ Ƃ ƃ Ƅ ƅ Ɔ Ƈ ƈ Ɖ Ɗ Ƌ ƌ ƍ Ǝ Ə Ɛ Ƒ ƒ Ɠ Ɣ ƕ Ɩ Ɨ Ƙ ƙ ƚ ƛ Ɯ Ɲ ƞ Ɵ Ơ ơ Ƣ ƣ Ƥ ƥ Ʀ Ƨ ƨ Ʃ ƪ ƫ Ƭ ƭ Ʈ Ư ư Ʊ Ʋ Ƴ ƴ Ƶ ƶ Ʒ Ƹ ƹ ƺ ƻ Ƽ ƽ ƾ ƿ ǀ ǁ ǂ ǃ DŽ Dž dž LJ Lj lj NJ Nj nj Ǎ ǎ Ǐ ǐ Ǒ ǒ Ǔ ǔ Ǖ ǖ Ǘ ǘ Ǚ ǚ Ǜ ǜ ǝ Ǟ ǟ Ǡ ǡ Ǣ ǣ Ǥ ǥ Ǧ ǧ Ǩ ǩ Ǫ ǫ Ǭ ǭ Ǯ ǯ ǰ DZ Dz dz Ǵ ǵ Ƕ Ƿ Ǹ ǹ Ǻ ǻ Ǽ ǽ Ǿ ǿ ...
11+IPA Extensions
12+ɐ ɑ ɒ ɓ ɔ ɕ ɖ ɗ ɘ ə ɚ ɛ ɜ ɝ ɞ ɟ ɠ ɡ ɢ ɣ ɤ ɥ ɦ ɧ ɨ ɩ ɪ ɫ ɬ ɭ ɮ ɯ ɰ ɱ ɲ ɳ ɴ ɵ ɶ ɷ ɸ ɹ ɺ ɻ ɼ ɽ ɾ ɿ ʀ ʁ ʂ ʃ ʄ ʅ ʆ ʇ ʈ ʉ ʊ ʋ ʌ ʍ ʎ ʏ ʐ ʑ ʒ ʓ ʔ ʕ ʖ ʗ ʘ ʙ ʚ ʛ ʜ ʝ ʞ ʟ ʠ ʡ ʢ ʣ ʤ ʥ ʦ ʧ ʨ ʩ ʪ ʫ ʬ ʭ
13+Spacing Modifier Letters
14+ʰ ʱ ʲ ʳ ʴ ʵ ʶ ʷ ʸ ʹ ʺ ʻ ʼ ʽ ʾ ʿ ˀ ˁ ˂ ˃ ˄ ˅ ˆ ˇ ˈ ˉ ˊ ˋ ˌ ˍ ˎ ˏ ː ˑ ˒ ˓ ˔ ˕ ˖ ˗ ˘ ˙ ˚ ˛ ˜ ˝ ˞ ˟ ˠ ˡ ˢ ˣ ˤ ˥ ˦ ˧ ˨ ˩ ˪ ˫ ˬ ˭ ˮ
15+Combining Diacritical Marks
16+̀ ́ ̂ ̃ ̄ ̅ ̆ ̇ ̈ ̉ ̊ ̋ ̌ ̍ ̎ ̏ ̐ ̑ ̒ ̓ ̔ ̕ ̖ ̗ ̘ ̙ ̚ ̛ ̜ ̝ ̞ ̟ ̠ ̡ ̢ ̣ ̤ ̥ ̦ ̧ ̨ ̩ ̪ ̫ ̬ ̭ ̮ ̯ ̰ ̱ ̲ ̳ ̴ ̵ ̶ ̷ ̸ ̹ ̺ ̻ ̼ ̽ ̾ ̿ ̀ ́ ͂ ̓ ̈́ ͅ ͆ ͇ ͈ ͉ ͊ ͋ ͌ ͍ ͎ ͏ ͠ ͡ ͢ ͣ ͤ ͥ ͦ ͧ ͨ ͩ ͪ ͫ ͬ ͭ ͮ ͯ
17+Greek and Coptic
18+ʹ ͵ ͺ ; ΄ ΅ Ά · Έ Ή Ί Ό Ύ Ώ ΐ Α Β Γ Δ Ε Ζ Η Θ Ι Κ Λ Μ Ν Ξ Ο Π Ρ Σ Τ Υ Φ Χ Ψ Ω Ϊ Ϋ ά έ ή ί ΰ α β γ δ ε ζ η θ ι κ λ μ ν ξ ο π ρ ς σ τ υ φ χ ψ ω ϊ ϋ ό ύ ώ ϐ ϑ ϒ ϓ ϔ ϕ ϖ ϗ Ϙ ϙ Ϛ ϛ Ϝ ϝ Ϟ ϟ Ϡ ϡ Ϣ ϣ Ϥ ϥ Ϧ ϧ Ϩ ϩ Ϫ ϫ Ϭ ϭ Ϯ ϯ ϰ ϱ ϲ ϳ ϴ ϵ ϶
19+Cyrillic
20+Ѐ Ё Ђ Ѓ Є Ѕ І Ї Ј Љ Њ Ћ Ќ Ѝ Ў Џ А Б В Г Д Е Ж З И Й К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Ъ Ы Ь Э Ю Я а б в г д е ж з и й к л м н о п р с т у ф х ц ч ш щ ъ ы ь э ю я ѐ ё ђ ѓ є ѕ і ї ј љ њ ћ ќ ѝ ў џ Ѡ ѡ Ѣ ѣ Ѥ ѥ Ѧ ѧ Ѩ ѩ Ѫ ѫ Ѭ ѭ Ѯ ѯ Ѱ ѱ Ѳ ѳ Ѵ ѵ Ѷ ѷ Ѹ ѹ Ѻ ѻ Ѽ ѽ Ѿ ѿ ...
21+Cyrillic Supplementary
22+Ԁ ԁ Ԃ ԃ Ԅ ԅ Ԇ ԇ Ԉ ԉ Ԋ ԋ Ԍ ԍ Ԏ ԏ
23+Armenian
24+Ա Բ Գ Դ Ե Զ Է Ը Թ Ժ Ի Լ Խ Ծ Կ Հ Ձ Ղ Ճ Մ Յ Ն Շ Ո Չ Պ Ջ Ռ Ս Վ Տ Ր Ց Ւ Փ Ք Օ Ֆ ՙ ՚ ՛ ՜ ՝ ՞ ՟ ա բ գ դ ե զ է ը թ ժ ի լ խ ծ կ հ ձ ղ ճ մ յ ն շ ո չ պ ջ ռ ս վ տ ր ց ւ փ ք օ ֆ և ։ ֊
25+Hebrew
26+֑ ֒ ֓ ֔ ֕ ֖ ֗ ֘ ֙ ֚ ֛ ֜ ֝ ֞ ֟ ֠ ֡ ֣ ֤ ֥ ֦ ֧ ֨ ֩ ֪ ֫ ֬ ֭ ֮ ֯ ְ ֱ ֲ ֳ ִ ֵ ֶ ַ ָ ֹ ֻ ּ ֽ ־ ֿ ׀ ׁ ׂ ׃ ׄ א ב ג ד ה ו ז ח ט י ך כ ל ם מ ן נ ס ע ף פ ץ צ ק ר ש ת װ ױ ײ ׳ ״
27+Arabic
28+، ؛ ؟ ء آ أ ؤ إ ئ ا ب ة ت ث ج ح خ د ذ ر ز س ش ص ض ط ظ ع غ ـ ف ق ك ل م ن ه و ى ي ً ٌ ٍ َ ُ ِ ّ ْ ٓ ٔ ٕ ٠ ١ ٢ ٣ ٤ ٥ ٦ ٧ ٨ ٩ ٪ ٫ ٬ ٭ ٮ ٯ ٰ ٱ ٲ ٳ ٴ ٵ ٶ ٷ ٸ ٹ ٺ ٻ ټ ٽ پ ٿ ڀ ځ ڂ ڃ ڄ څ چ ڇ ڈ ډ ڊ ڋ ڌ ڍ ڎ ڏ ڐ ڑ ڒ ړ ڔ ڕ ږ ڗ ژ ڙ ښ ڛ ڜ ڝ ڞ ڟ ڠ ڡ ڢ ڣ ڤ ڥ ڦ ڧ ڨ ک ڪ ګ ڬ ...
29+Syriac
30+܀ ܁ ܂ ܃ ܄ ܅ ܆ ܇ ܈ ܉ ܊ ܋ ܌ ܍ ܏ ܐ ܑ ܒ ܓ ܔ ܕ ܖ ܗ ܘ ܙ ܚ ܛ ܜ ܝ ܞ ܟ ܠ ܡ ܢ ܣ ܤ ܥ ܦ ܧ ܨ ܩ ܪ ܫ ܬ ܰ ܱ ܲ ܳ ܴ ܵ ܶ ܷ ܸ ܹ ܺ ܻ ܼ ܽ ܾ ܿ ݀ ݁ ݂ ݃ ݄ ݅ ݆ ݇ ݈ ݉ ݊
31+Thaana
32+ހ ށ ނ ރ ބ ޅ ކ އ ވ މ ފ ދ ތ ލ ގ ޏ ސ ޑ ޒ ޓ ޔ ޕ ޖ ޗ ޘ ޙ ޚ ޛ ޜ ޝ ޞ ޟ ޠ ޡ ޢ ޣ ޤ ޥ ަ ާ ި ީ ު ޫ ެ ޭ ޮ ޯ ް ޱ
33+Devanagari
34+ँ ं ः अ आ इ ई उ ऊ ऋ ऌ ऍ ऎ ए ऐ ऑ ऒ ओ औ क ख ग घ ङ च छ ज झ ञ ट ठ ड ढ ण त थ द ध न ऩ प फ ब भ म य र ऱ ल ळ ऴ व श ष स ह ़ ऽ ा ि ी ु ू ृ ॄ ॅ ॆ े ै ॉ ॊ ो ौ ् ॐ ॑ ॒ ॓ ॔ क़ ख़ ग़ ज़ ड़ ढ़ फ़ य़ ॠ ॡ ॢ ॣ । ॥ ० १ २ ३ ४ ५ ६ ७ ८ ९ ॰
35+Bengali
36+ঁ ং ঃ অ আ ই ঈ উ ঊ ঋ ঌ এ ঐ ও ঔ ক খ গ ঘ ঙ চ ছ জ ঝ ঞ ট ঠ ড ঢ ণ ত থ দ ধ ন প ফ ব ভ ম য র ল শ ষ স হ ় া ি ী ু ূ ৃ ৄ ে ৈ ো ৌ ্ ৗ ড় ঢ় য় ৠ ৡ ৢ ৣ ০ ১ ২ ৩ ৪ ৫ ৬ ৭ ৮ ৯ ৰ ৱ ৲ ৳ ৴ ৵ ৶ ৷ ৸ ৹ ৺
37+Gurmukhi
38+ਂ ਅ ਆ ਇ ਈ ਉ ਊ ਏ ਐ ਓ ਔ ਕ ਖ ਗ ਘ ਙ ਚ ਛ ਜ ਝ ਞ ਟ ਠ ਡ ਢ ਣ ਤ ਥ ਦ ਧ ਨ ਪ ਫ ਬ ਭ ਮ ਯ ਰ ਲ ਲ਼ ਵ ਸ਼ ਸ ਹ ਼ ਾ ਿ ੀ ੁ ੂ ੇ ੈ ੋ ੌ ੍ ਖ਼ ਗ਼ ਜ਼ ੜ ਫ਼ ੦ ੧ ੨ ੩ ੪ ੫ ੬ ੭ ੮ ੯ ੰ ੱ ੲ ੳ ੴ
39+Gujarati
40+ઁ ં ઃ અ આ ઇ ઈ ઉ ઊ ઋ ઍ એ ઐ ઑ ઓ ઔ ક ખ ગ ઘ ઙ ચ છ જ ઝ ઞ ટ ઠ ડ ઢ ણ ત થ દ ધ ન પ ફ બ ભ મ ય ર લ ળ વ શ ષ સ હ ઼ ઽ ા િ ી ુ ૂ ૃ ૄ ૅ ે ૈ ૉ ો ૌ ્ ૐ ૠ ૦ ૧ ૨ ૩ ૪ ૫ ૬ ૭ ૮ ૯
41+Oriya
42+ଁ ଂ ଃ ଅ ଆ ଇ ଈ ଉ ଊ ଋ ଌ ଏ ଐ ଓ ଔ କ ଖ ଗ ଘ ଙ ଚ ଛ ଜ ଝ ଞ ଟ ଠ ଡ ଢ ଣ ତ ଥ ଦ ଧ ନ ପ ଫ ବ ଭ ମ ଯ ର ଲ ଳ ଶ ଷ ସ ହ ଼ ଽ ା ି ୀ ୁ ୂ ୃ େ ୈ ୋ ୌ ୍ ୖ ୗ ଡ଼ ଢ଼ ୟ ୠ ୡ ୦ ୧ ୨ ୩ ୪ ୫ ୬ ୭ ୮ ୯ ୰
43+Tamil
44+ஂ ஃ அ ஆ இ ஈ உ ஊ எ ஏ ஐ ஒ ஓ ஔ க ங ச ஜ ஞ ட ண த ந ன ப ம ய ர ற ல ள ழ வ ஷ ஸ ஹ ா ி ீ ு ூ ெ ே ை ொ ோ ௌ ் ௗ ௧ ௨ ௩ ௪ ௫ ௬ ௭ ௮ ௯ ௰ ௱ ௲
45+Telugu
46+ఁ ం ః అ ఆ ఇ ఈ ఉ ఊ ఋ ఌ ఎ ఏ ఐ ఒ ఓ ఔ క ఖ గ ఘ ఙ చ ఛ జ ఝ ఞ ట ఠ డ ఢ ణ త థ ద ధ న ప ఫ బ భ మ య ర ఱ ల ళ వ శ ష స హ ా ి ీ ు ూ ృ ౄ ె ే ై ొ ో ౌ ్ ౕ ౖ ౠ ౡ ౦ ౧ ౨ ౩ ౪ ౫ ౬ ౭ ౮ ౯
47+Kannada
48+ಂ ಃ ಅ ಆ ಇ ಈ ಉ ಊ ಋ ಌ ಎ ಏ ಐ ಒ ಓ ಔ ಕ ಖ ಗ ಘ ಙ ಚ ಛ ಜ ಝ ಞ ಟ ಠ ಡ ಢ ಣ ತ ಥ ದ ಧ ನ ಪ ಫ ಬ ಭ ಮ ಯ ರ ಱ ಲ ಳ ವ ಶ ಷ ಸ ಹ ಾ ಿ ೀ ು ೂ ೃ ೄ ೆ ೇ ೈ ೊ ೋ ೌ ್ ೕ ೖ ೞ ೠ ೡ ೦ ೧ ೨ ೩ ೪ ೫ ೬ ೭ ೮ ೯
49+Malayalam
50+ം ഃ അ ആ ഇ ഈ ഉ ഊ ഋ ഌ എ ഏ ഐ ഒ ഓ ഔ ക ഖ ഗ ഘ ങ ച ഛ ജ ഝ ഞ ട ഠ ഡ ഢ ണ ത ഥ ദ ധ ന പ ഫ ബ ഭ മ യ ര റ ല ള ഴ വ ശ ഷ സ ഹ ാ ി ീ ു ൂ ൃ െ േ ൈ ൊ ോ ൌ ് ൗ ൠ ൡ ൦ ൧ ൨ ൩ ൪ ൫ ൬ ൭ ൮ ൯
51+Sinhala
52+ං ඃ අ ආ ඇ ඈ ඉ ඊ උ ඌ ඍ ඎ ඏ ඐ එ ඒ ඓ ඔ ඕ ඖ ක ඛ ග ඝ ඞ ඟ ච ඡ ජ ඣ ඤ ඥ ඦ ට ඨ ඩ ඪ ණ ඬ ත ථ ද ධ න ඳ ප ඵ බ භ ම ඹ ය ර ල ව ශ ෂ ස හ ළ ෆ ් ා ැ ෑ ි ී ු ූ ෘ ෙ ේ ෛ ො ෝ ෞ ෟ ෲ ෳ ෴
53+Thai
54+ก ข ฃ ค ฅ ฆ ง จ ฉ ช ซ ฌ ญ ฎ ฏ ฐ ฑ ฒ ณ ด ต ถ ท ธ น บ ป ผ ฝ พ ฟ ภ ม ย ร ฤ ล ฦ ว ศ ษ ส ห ฬ อ ฮ ฯ ะ ั า ำ ิ ี ึ ื ุ ู ฺ ฿ เ แ โ ใ ไ ๅ ๆ ็ ่ ้ ๊ ๋ ์ ํ ๎ ๏ ๐ ๑ ๒ ๓ ๔ ๕ ๖ ๗ ๘ ๙ ๚ ๛
55+Lao
56+ກ ຂ ຄ ງ ຈ ຊ ຍ ດ ຕ ຖ ທ ນ ບ ປ ຜ ຝ ພ ຟ ມ ຢ ຣ ລ ວ ສ ຫ ອ ຮ ຯ ະ ັ າ ຳ ິ ີ ຶ ື ຸ ູ ົ ຼ ຽ ເ ແ ໂ ໃ ໄ ໆ ່ ້ ໊ ໋ ໌ ໍ ໐ ໑ ໒ ໓ ໔ ໕ ໖ ໗ ໘ ໙ ໜ ໝ
57+Tibetan
58+ༀ ༁ ༂ ༃ ༄ ༅ ༆ ༇ ༈ ༉ ༊ ་ ༌ ། ༎ ༏ ༐ ༑ ༒ ༓ ༔ ༕ ༖ ༗ ༘ ༙ ༚ ༛ ༜ ༝ ༞ ༟ ༠ ༡ ༢ ༣ ༤ ༥ ༦ ༧ ༨ ༩ ༪ ༫ ༬ ༭ ༮ ༯ ༰ ༱ ༲ ༳ ༴ ༵ ༶ ༷ ༸ ༹ ༺ ༻ ༼ ༽ ༾ ༿ ཀ ཁ ག གྷ ང ཅ ཆ ཇ ཉ ཊ ཋ ཌ ཌྷ ཎ ཏ ཐ ད དྷ ན པ ཕ བ བྷ མ ཙ ཚ ཛ ཛྷ ཝ ཞ ཟ འ ཡ ར ལ ཤ ཥ ས ཧ ཨ ཀྵ ཪ ཱ ི ཱི ུ ཱུ ྲྀ ཷ ླྀ ཹ ེ ཻ ོ ཽ ཾ ཿ ྀ ཱྀ ྂ ྃ ྄ ྅ ྆ ...
59+Myanmar
60+က ခ ဂ ဃ င စ ဆ ဇ ဈ ဉ ည ဋ ဌ ဍ ဎ ဏ တ ထ ဒ ဓ န ပ ဖ ဗ ဘ မ ယ ရ လ ဝ သ ဟ ဠ အ ဣ ဤ ဥ ဦ ဧ ဩ ဪ ာ ိ ီ ု ူ ေ ဲ ံ ့ း ္ ၀ ၁ ၂ ၃ ၄ ၅ ၆ ၇ ၈ ၉ ၊ ။ ၌ ၍ ၎ ၏ ၐ ၑ ၒ ၓ ၔ ၕ ၖ ၗ ၘ ၙ
61+Georgian
62+Ⴀ Ⴁ Ⴂ Ⴃ Ⴄ Ⴅ Ⴆ Ⴇ Ⴈ Ⴉ Ⴊ Ⴋ Ⴌ Ⴍ Ⴎ Ⴏ Ⴐ Ⴑ Ⴒ Ⴓ Ⴔ Ⴕ Ⴖ Ⴗ Ⴘ Ⴙ Ⴚ Ⴛ Ⴜ Ⴝ Ⴞ Ⴟ Ⴠ Ⴡ Ⴢ Ⴣ Ⴤ Ⴥ ა ბ გ დ ე ვ ზ თ ი კ ლ მ ნ ო პ ჟ რ ს ტ უ ფ ქ ღ ყ შ ჩ ც ძ წ ჭ ხ ჯ ჰ ჱ ჲ ჳ ჴ ჵ ჶ ჷ ჸ ჻
63+Hangul Jamo
64+ᄀ ᄁ ᄂ ᄃ ᄄ ᄅ ᄆ ᄇ ᄈ ᄉ ᄊ ᄋ ᄌ ᄍ ᄎ ᄏ ᄐ ᄑ ᄒ ᄓ ᄔ ᄕ ᄖ ᄗ ᄘ ᄙ ᄚ ᄛ ᄜ ᄝ ᄞ ᄟ ᄠ ᄡ ᄢ ᄣ ᄤ ᄥ ᄦ ᄧ ᄨ ᄩ ᄪ ᄫ ᄬ ᄭ ᄮ ᄯ ᄰ ᄱ ᄲ ᄳ ᄴ ᄵ ᄶ ᄷ ᄸ ᄹ ᄺ ᄻ ᄼ ᄽ ᄾ ᄿ ᅀ ᅁ ᅂ ᅃ ᅄ ᅅ ᅆ ᅇ ᅈ ᅉ ᅊ ᅋ ᅌ ᅍ ᅎ ᅏ ᅐ ᅑ ᅒ ᅓ ᅔ ᅕ ᅖ ᅗ ᅘ ᅙ ᅟ ᅠ ᅡ ᅢ ᅣ ᅤ ᅥ ᅦ ᅧ ᅨ ᅩ ᅪ ᅫ ᅬ ᅭ ᅮ ᅯ ᅰ ᅱ ᅲ ᅳ ᅴ ᅵ ᅶ ᅷ ᅸ ᅹ ᅺ ᅻ ᅼ ᅽ ᅾ ᅿ ᆀ ᆁ ᆂ ᆃ ᆄ ...
65+Ethiopic
66+ሀ ሁ ሂ ሃ ሄ ህ ሆ ለ ሉ ሊ ላ ሌ ል ሎ ሏ ሐ ሑ ሒ ሓ ሔ ሕ ሖ ሗ መ ሙ ሚ ማ ሜ ም ሞ ሟ ሠ ሡ ሢ ሣ ሤ ሥ ሦ ሧ ረ ሩ ሪ ራ ሬ ር ሮ ሯ ሰ ሱ ሲ ሳ ሴ ስ ሶ ሷ ሸ ሹ ሺ ሻ ሼ ሽ ሾ ሿ ቀ ቁ ቂ ቃ ቄ ቅ ቆ ቈ ቊ ቋ ቌ ቍ ቐ ቑ ቒ ቓ ቔ ቕ ቖ ቘ ቚ ቛ ቜ ቝ በ ቡ ቢ ባ ቤ ብ ቦ ቧ ቨ ቩ ቪ ቫ ቬ ቭ ቮ ቯ ተ ቱ ቲ ታ ቴ ት ቶ ቷ ቸ ቹ ቺ ቻ ቼ ች ቾ ቿ ኀ ኁ ኂ ኃ ኄ ኅ ኆ ኈ ኊ ...
67+Cherokee
68+Ꭰ Ꭱ Ꭲ Ꭳ Ꭴ Ꭵ Ꭶ Ꭷ Ꭸ Ꭹ Ꭺ Ꭻ Ꭼ Ꭽ Ꭾ Ꭿ Ꮀ Ꮁ Ꮂ Ꮃ Ꮄ Ꮅ Ꮆ Ꮇ Ꮈ Ꮉ Ꮊ Ꮋ Ꮌ Ꮍ Ꮎ Ꮏ Ꮐ Ꮑ Ꮒ Ꮓ Ꮔ Ꮕ Ꮖ Ꮗ Ꮘ Ꮙ Ꮚ Ꮛ Ꮜ Ꮝ Ꮞ Ꮟ Ꮠ Ꮡ Ꮢ Ꮣ Ꮤ Ꮥ Ꮦ Ꮧ Ꮨ Ꮩ Ꮪ Ꮫ Ꮬ Ꮭ Ꮮ Ꮯ Ꮰ Ꮱ Ꮲ Ꮳ Ꮴ Ꮵ Ꮶ Ꮷ Ꮸ Ꮹ Ꮺ Ꮻ Ꮼ Ꮽ Ꮾ Ꮿ Ᏸ Ᏹ Ᏺ Ᏻ Ᏼ
69+Unified Canadian Aboriginal Syllabics
70+ᐁ ᐂ ᐃ ᐄ ᐅ ᐆ ᐇ ᐈ ᐉ ᐊ ᐋ ᐌ ᐍ ᐎ ᐏ ᐐ ᐑ ᐒ ᐓ ᐔ ᐕ ᐖ ᐗ ᐘ ᐙ ᐚ ᐛ ᐜ ᐝ ᐞ ᐟ ᐠ ᐡ ᐢ ᐣ ᐤ ᐥ ᐦ ᐧ ᐨ ᐩ ᐪ ᐫ ᐬ ᐭ ᐮ ᐯ ᐰ ᐱ ᐲ ᐳ ᐴ ᐵ ᐶ ᐷ ᐸ ᐹ ᐺ ᐻ ᐼ ᐽ ᐾ ᐿ ᑀ ᑁ ᑂ ᑃ ᑄ ᑅ ᑆ ᑇ ᑈ ᑉ ᑊ ᑋ ᑌ ᑍ ᑎ ᑏ ᑐ ᑑ ᑒ ᑓ ᑔ ᑕ ᑖ ᑗ ᑘ ᑙ ᑚ ᑛ ᑜ ᑝ ᑞ ᑟ ᑠ ᑡ ᑢ ᑣ ᑤ ᑥ ᑦ ᑧ ᑨ ᑩ ᑪ ᑫ ᑬ ᑭ ᑮ ᑯ ᑰ ᑱ ᑲ ᑳ ᑴ ᑵ ᑶ ᑷ ᑸ ᑹ ᑺ ᑻ ᑼ ᑽ ᑾ ᑿ ᒀ ...
71+Ogham
72+  ᚁ ᚂ ᚃ ᚄ ᚅ ᚆ ᚇ ᚈ ᚉ ᚊ ᚋ ᚌ ᚍ ᚎ ᚏ ᚐ ᚑ ᚒ ᚓ ᚔ ᚕ ᚖ ᚗ ᚘ ᚙ ᚚ ᚛ ᚜
73+Runic
74+ᚠ ᚡ ᚢ ᚣ ᚤ ᚥ ᚦ ᚧ ᚨ ᚩ ᚪ ᚫ ᚬ ᚭ ᚮ ᚯ ᚰ ᚱ ᚲ ᚳ ᚴ ᚵ ᚶ ᚷ ᚸ ᚹ ᚺ ᚻ ᚼ ᚽ ᚾ ᚿ ᛀ ᛁ ᛂ ᛃ ᛄ ᛅ ᛆ ᛇ ᛈ ᛉ ᛊ ᛋ ᛌ ᛍ ᛎ ᛏ ᛐ ᛑ ᛒ ᛓ ᛔ ᛕ ᛖ ᛗ ᛘ ᛙ ᛚ ᛛ ᛜ ᛝ ᛞ ᛟ ᛠ ᛡ ᛢ ᛣ ᛤ ᛥ ᛦ ᛧ ᛨ ᛩ ᛪ ᛫ ᛬ ᛭ ᛮ ᛯ ᛰ
75+Tagalog
76+ᜀ ᜁ ᜂ ᜃ ᜄ ᜅ ᜆ ᜇ ᜈ ᜉ ᜊ ᜋ ᜌ ᜎ ᜏ ᜐ ᜑ ᜒ ᜓ ᜔
77+Hanunoo
78+ᜠ ᜡ ᜢ ᜣ ᜤ ᜥ ᜦ ᜧ ᜨ ᜩ ᜪ ᜫ ᜬ ᜭ ᜮ ᜯ ᜰ ᜱ ᜲ ᜳ ᜴ ᜵ ᜶
79+Buhid
80+ᝀ ᝁ ᝂ ᝃ ᝄ ᝅ ᝆ ᝇ ᝈ ᝉ ᝊ ᝋ ᝌ ᝍ ᝎ ᝏ ᝐ ᝑ ᝒ ᝓ
81+Tagbanwa
82+ᝠ ᝡ ᝢ ᝣ ᝤ ᝥ ᝦ ᝧ ᝨ ᝩ ᝪ ᝫ ᝬ ᝮ ᝯ ᝰ ᝲ ᝳ
83+Khmer
84+ក ខ គ ឃ ង ច ឆ ជ ឈ ញ ដ ឋ ឌ ឍ ណ ត ថ ទ ធ ន ប ផ ព ភ ម យ រ ល វ ឝ ឞ ស ហ ឡ អ ឣ ឤ ឥ ឦ ឧ ឨ ឩ ឪ ឫ ឬ ឭ ឮ ឯ ឰ ឱ ឲ ឳ ឴ ឵ ា ិ ី ឹ ឺ ុ ូ ួ ើ ឿ ៀ េ ែ ៃ ោ ៅ ំ ះ ៈ ៉ ៊ ់ ៌ ៍ ៎ ៏ ័ ៑ ្ ៓ ។ ៕ ៖ ៗ ៘ ៙ ៚ ៛ ៜ ០ ១ ២ ៣ ៤ ៥ ៦ ៧ ៨ ៩
85+Mongolian
86+᠀ ᠁ ᠂ ᠃ ᠄ ᠅ ᠆ ᠇ ᠈ ᠉ ᠊ ᠋ ᠌ ᠍ ᠎ ᠐ ᠑ ᠒ ᠓ ᠔ ᠕ ᠖ ᠗ ᠘ ᠙ ᠠ ᠡ ᠢ ᠣ ᠤ ᠥ ᠦ ᠧ ᠨ ᠩ ᠪ ᠫ ᠬ ᠭ ᠮ ᠯ ᠰ ᠱ ᠲ ᠳ ᠴ ᠵ ᠶ ᠷ ᠸ ᠹ ᠺ ᠻ ᠼ ᠽ ᠾ ᠿ ᡀ ᡁ ᡂ ᡃ ᡄ ᡅ ᡆ ᡇ ᡈ ᡉ ᡊ ᡋ ᡌ ᡍ ᡎ ᡏ ᡐ ᡑ ᡒ ᡓ ᡔ ᡕ ᡖ ᡗ ᡘ ᡙ ᡚ ᡛ ᡜ ᡝ ᡞ ᡟ ᡠ ᡡ ᡢ ᡣ ᡤ ᡥ ᡦ ᡧ ᡨ ᡩ ᡪ ᡫ ᡬ ᡭ ᡮ ᡯ ᡰ ᡱ ᡲ ᡳ ᡴ ᡵ ᡶ ᡷ ᢀ ᢁ ᢂ ᢃ ᢄ ᢅ ᢆ ᢇ ᢈ ᢉ ᢊ ᢋ ᢌ ᢍ ᢎ ...
87+Latin Extended Additional
88+Ḁ ḁ Ḃ ḃ Ḅ ḅ Ḇ ḇ Ḉ ḉ Ḋ ḋ Ḍ ḍ Ḏ ḏ Ḑ ḑ Ḓ ḓ Ḕ ḕ Ḗ ḗ Ḙ ḙ Ḛ ḛ Ḝ ḝ Ḟ ḟ Ḡ ḡ Ḣ ḣ Ḥ ḥ Ḧ ḧ Ḩ ḩ Ḫ ḫ Ḭ ḭ Ḯ ḯ Ḱ ḱ Ḳ ḳ Ḵ ḵ Ḷ ḷ Ḹ ḹ Ḻ ḻ Ḽ ḽ Ḿ ḿ Ṁ ṁ Ṃ ṃ Ṅ ṅ Ṇ ṇ Ṉ ṉ Ṋ ṋ Ṍ ṍ Ṏ ṏ Ṑ ṑ Ṓ ṓ Ṕ ṕ Ṗ ṗ Ṙ ṙ Ṛ ṛ Ṝ ṝ Ṟ ṟ Ṡ ṡ Ṣ ṣ Ṥ ṥ Ṧ ṧ Ṩ ṩ Ṫ ṫ Ṭ ṭ Ṯ ṯ Ṱ ṱ Ṳ ṳ Ṵ ṵ Ṷ ṷ Ṹ ṹ Ṻ ṻ Ṽ ṽ Ṿ ṿ ...
89+Greek Extended
90+ἀ ἁ ἂ ἃ ἄ ἅ ἆ ἇ Ἀ Ἁ Ἂ Ἃ Ἄ Ἅ Ἆ Ἇ ἐ ἑ ἒ ἓ ἔ ἕ Ἐ Ἑ Ἒ Ἓ Ἔ Ἕ ἠ ἡ ἢ ἣ ἤ ἥ ἦ ἧ Ἠ Ἡ Ἢ Ἣ Ἤ Ἥ Ἦ Ἧ ἰ ἱ ἲ ἳ ἴ ἵ ἶ ἷ Ἰ Ἱ Ἲ Ἳ Ἴ Ἵ Ἶ Ἷ ὀ ὁ ὂ ὃ ὄ ὅ Ὀ Ὁ Ὂ Ὃ Ὄ Ὅ ὐ ὑ ὒ ὓ ὔ ὕ ὖ ὗ Ὑ Ὓ Ὕ Ὗ ὠ ὡ ὢ ὣ ὤ ὥ ὦ ὧ Ὠ Ὡ Ὢ Ὣ Ὤ Ὥ Ὦ Ὧ ὰ ά ὲ έ ὴ ή ὶ ί ὸ ό ὺ ύ ὼ ώ ᾀ ᾁ ᾂ ᾃ ᾄ ᾅ ᾆ ᾇ ᾈ ᾉ ᾊ ᾋ ᾌ ᾍ ...
91+General Punctuation
92+                      ​ ‌ ‍ <U+200E> <U+200F> ‐ ‑ ‒ – — ― ‖ ‗ ‘ ’ ‚ ‛ “ ” „ ‟ † ‡ • ‣ ․ ‥ … ‧ 
 
 <U+202A> <U+202B> <U+202C> <U+202D> <U+202E>   ‰ ‱ ′ ″ ‴ ‵ ‶ ‷ ‸ ‹ › ※ ‼ ‽ ‾ ‿ ⁀ ⁁ ⁂ ⁃ ⁄ ⁅ ⁆ ⁇ ⁈ ⁉ ⁊ ⁋ ⁌ ⁍ ⁎ ⁏ ⁐ ⁑ ⁒ ⁗   ⁠ ⁡ ⁢ ⁣      
93+Superscripts and Subscripts
94+⁰ ⁱ ⁴ ⁵ ⁶ ⁷ ⁸ ⁹ ⁺ ⁻ ⁼ ⁽ ⁾ ⁿ ₀ ₁ ₂ ₃ ₄ ₅ ₆ ₇ ₈ ₉ ₊ ₋ ₌ ₍ ₎
95+Currency Symbols
96+₠ ₡ ₢ ₣ ₤ ₥ ₦ ₧ ₨ ₩ ₪ ₫ € ₭ ₮ ₯ ₰ ₱
97+Combining Diacritical Marks for Symbols
98+⃐ ⃑ ⃒ ⃓ ⃔ ⃕ ⃖ ⃗ ⃘ ⃙ ⃚ ⃛ ⃜ ⃝ ⃞ ⃟ ⃠ ⃡ ⃢ ⃣ ⃤ ⃥ ⃦ ⃧ ⃨ ⃩ ⃪
99+Letterlike Symbols
100+℀ ℁ ℂ ℃ ℄ ℅ ℆ ℇ ℈ ℉ ℊ ℋ ℌ ℍ ℎ ℏ ℐ ℑ ℒ ℓ ℔ ℕ № ℗ ℘ ℙ ℚ ℛ ℜ ℝ ℞ ℟ ℠ ℡ ™ ℣ ℤ ℥ Ω ℧ ℨ ℩ K Å ℬ ℭ ℮ ℯ ℰ ℱ Ⅎ ℳ ℴ ℵ ℶ ℷ ℸ ℹ ℺ ℽ ℾ ℿ ⅀ ⅁ ⅂ ⅃ ⅄ ⅅ ⅆ ⅇ ⅈ ⅉ ⅊ ⅋
101+Number Forms
102+⅓ ⅔ ⅕ ⅖ ⅗ ⅘ ⅙ ⅚ ⅛ ⅜ ⅝ ⅞ ⅟ Ⅰ Ⅱ Ⅲ Ⅳ Ⅴ Ⅵ Ⅶ Ⅷ Ⅸ Ⅹ Ⅺ Ⅻ Ⅼ Ⅽ Ⅾ Ⅿ ⅰ ⅱ ⅲ ⅳ ⅴ ⅵ ⅶ ⅷ ⅸ ⅹ ⅺ ⅻ ⅼ ⅽ ⅾ ⅿ ↀ ↁ ↂ Ↄ
103+Arrows
104+← ↑ → ↓ ↔ ↕ ↖ ↗ ↘ ↙ ↚ ↛ ↜ ↝ ↞ ↟ ↠ ↡ ↢ ↣ ↤ ↥ ↦ ↧ ↨ ↩ ↪ ↫ ↬ ↭ ↮ ↯ ↰ ↱ ↲ ↳ ↴ ↵ ↶ ↷ ↸ ↹ ↺ ↻ ↼ ↽ ↾ ↿ ⇀ ⇁ ⇂ ⇃ ⇄ ⇅ ⇆ ⇇ ⇈ ⇉ ⇊ ⇋ ⇌ ⇍ ⇎ ⇏ ⇐ ⇑ ⇒ ⇓ ⇔ ⇕ ⇖ ⇗ ⇘ ⇙ ⇚ ⇛ ⇜ ⇝ ⇞ ⇟ ⇠ ⇡ ⇢ ⇣ ⇤ ⇥ ⇦ ⇧ ⇨ ⇩ ⇪ ⇫ ⇬ ⇭ ⇮ ⇯ ⇰ ⇱ ⇲ ⇳ ⇴ ⇵ ⇶ ⇷ ⇸ ⇹ ⇺ ⇻ ⇼ ⇽ ⇾ ⇿
105+Mathematical Operators
106+∀ ∁ ∂ ∃ ∄ ∅ ∆ ∇ ∈ ∉ ∊ ∋ ∌ ∍ ∎ ∏ ∐ ∑ − ∓ ∔ ∕ ∖ ∗ ∘ ∙ √ ∛ ∜ ∝ ∞ ∟ ∠ ∡ ∢ ∣ ∤ ∥ ∦ ∧ ∨ ∩ ∪ ∫ ∬ ∭ ∮ ∯ ∰ ∱ ∲ ∳ ∴ ∵ ∶ ∷ ∸ ∹ ∺ ∻ ∼ ∽ ∾ ∿ ≀ ≁ ≂ ≃ ≄ ≅ ≆ ≇ ≈ ≉ ≊ ≋ ≌ ≍ ≎ ≏ ≐ ≑ ≒ ≓ ≔ ≕ ≖ ≗ ≘ ≙ ≚ ≛ ≜ ≝ ≞ ≟ ≠ ≡ ≢ ≣ ≤ ≥ ≦ ≧ ≨ ≩ ≪ ≫ ≬ ≭ ≮ ≯ ≰ ≱ ≲ ≳ ≴ ≵ ≶ ≷ ≸ ≹ ≺ ≻ ≼ ≽ ≾ ≿ ...
107+Miscellaneous Technical
108+⌀ ⌁ ⌂ ⌃ ⌄ ⌅ ⌆ ⌇ ⌈ ⌉ ⌊ ⌋ ⌌ ⌍ ⌎ ⌏ ⌐ ⌑ ⌒ ⌓ ⌔ ⌕ ⌖ ⌗ ⌘ ⌙ ⌚ ⌛ ⌜ ⌝ ⌞ ⌟ ⌠ ⌡ ⌢ ⌣ ⌤ ⌥ ⌦ ⌧ ⌨ 〈 〉 ⌫ ⌬ ⌭ ⌮ ⌯ ⌰ ⌱ ⌲ ⌳ ⌴ ⌵ ⌶ ⌷ ⌸ ⌹ ⌺ ⌻ ⌼ ⌽ ⌾ ⌿ ⍀ ⍁ ⍂ ⍃ ⍄ ⍅ ⍆ ⍇ ⍈ ⍉ ⍊ ⍋ ⍌ ⍍ ⍎ ⍏ ⍐ ⍑ ⍒ ⍓ ⍔ ⍕ ⍖ ⍗ ⍘ ⍙ ⍚ ⍛ ⍜ ⍝ ⍞ ⍟ ⍠ ⍡ ⍢ ⍣ ⍤ ⍥ ⍦ ⍧ ⍨ ⍩ ⍪ ⍫ ⍬ ⍭ ⍮ ⍯ ⍰ ⍱ ⍲ ⍳ ⍴ ⍵ ⍶ ⍷ ⍸ ⍹ ⍺ ⍻ ⍼ ⍽ ⍾ ⍿ ...
109+Control Pictures
110+␀ ␁ ␂ ␃ ␄ ␅ ␆ ␇ ␈ ␉ ␊ ␋ ␌ ␍ ␎ ␏ ␐ ␑ ␒ ␓ ␔ ␕ ␖ ␗ ␘ ␙ ␚ ␛ ␜ ␝ ␞ ␟ ␠ ␡ ␢ ␣ ␤ ␥ ␦
111+Optical Character Recognition
112+⑀ ⑁ ⑂ ⑃ ⑄ ⑅ ⑆ ⑇ ⑈ ⑉ ⑊
113+Enclosed Alphanumerics
114+① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩ ⑪ ⑫ ⑬ ⑭ ⑮ ⑯ ⑰ ⑱ ⑲ ⑳ ⑴ ⑵ ⑶ ⑷ ⑸ ⑹ ⑺ ⑻ ⑼ ⑽ ⑾ ⑿ ⒀ ⒁ ⒂ ⒃ ⒄ ⒅ ⒆ ⒇ ⒈ ⒉ ⒊ ⒋ ⒌ ⒍ ⒎ ⒏ ⒐ ⒑ ⒒ ⒓ ⒔ ⒕ ⒖ ⒗ ⒘ ⒙ ⒚ ⒛ ⒜ ⒝ ⒞ ⒟ ⒠ ⒡ ⒢ ⒣ ⒤ ⒥ ⒦ ⒧ ⒨ ⒩ ⒪ ⒫ ⒬ ⒭ ⒮ ⒯ ⒰ ⒱ ⒲ ⒳ ⒴ ⒵ Ⓐ Ⓑ Ⓒ Ⓓ Ⓔ Ⓕ Ⓖ Ⓗ Ⓘ Ⓙ Ⓚ Ⓛ Ⓜ Ⓝ Ⓞ Ⓟ Ⓠ Ⓡ Ⓢ Ⓣ Ⓤ Ⓥ Ⓦ Ⓧ Ⓨ Ⓩ ⓐ ⓑ ⓒ ⓓ ⓔ ⓕ ⓖ ⓗ ⓘ ⓙ ⓚ ⓛ ⓜ ⓝ ⓞ ⓟ ...
115+Box Drawing
116+─ ━ │ ┃ ┄ ┅ ┆ ┇ ┈ ┉ ┊ ┋ ┌ ┍ ┎ ┏ ┐ ┑ ┒ ┓ └ ┕ ┖ ┗ ┘ ┙ ┚ ┛ ├ ┝ ┞ ┟ ┠ ┡ ┢ ┣ ┤ ┥ ┦ ┧ ┨ ┩ ┪ ┫ ┬ ┭ ┮ ┯ ┰ ┱ ┲ ┳ ┴ ┵ ┶ ┷ ┸ ┹ ┺ ┻ ┼ ┽ ┾ ┿ ╀ ╁ ╂ ╃ ╄ ╅ ╆ ╇ ╈ ╉ ╊ ╋ ╌ ╍ ╎ ╏ ═ ║ ╒ ╓ ╔ ╕ ╖ ╗ ╘ ╙ ╚ ╛ ╜ ╝ ╞ ╟ ╠ ╡ ╢ ╣ ╤ ╥ ╦ ╧ ╨ ╩ ╪ ╫ ╬ ╭ ╮ ╯ ╰ ╱ ╲ ╳ ╴ ╵ ╶ ╷ ╸ ╹ ╺ ╻ ╼ ╽ ╾ ╿
117+Block Elements
118+▀ ▁ ▂ ▃ ▄ ▅ ▆ ▇ █ ▉ ▊ ▋ ▌ ▍ ▎ ▏ ▐ ░ ▒ ▓ ▔ ▕ ▖ ▗ ▘ ▙ ▚ ▛ ▜ ▝ ▞ ▟
119+Geometric Shapes
120+■ □ ▢ ▣ ▤ ▥ ▦ ▧ ▨ ▩ ▪ ▫ ▬ ▭ ▮ ▯ ▰ ▱ ▲ △ ▴ ▵ ▶ ▷ ▸ ▹ ► ▻ ▼ ▽ ▾ ▿ ◀ ◁ ◂ ◃ ◄ ◅ ◆ ◇ ◈ ◉ ◊ ○ ◌ ◍ ◎ ● ◐ ◑ ◒ ◓ ◔ ◕ ◖ ◗ ◘ ◙ ◚ ◛ ◜ ◝ ◞ ◟ ◠ ◡ ◢ ◣ ◤ ◥ ◦ ◧ ◨ ◩ ◪ ◫ ◬ ◭ ◮ ◯ ◰ ◱ ◲ ◳ ◴ ◵ ◶ ◷ ◸ ◹ ◺ ◻ ◼ ◽ ◾ ◿
121+Miscellaneous Symbols
122+☀ ☁ ☂ ☃ ☄ ★ ☆ ☇ ☈ ☉ ☊ ☋ ☌ ☍ ☎ ☏ ☐ ☑ ☒ ☓ ☖ ☗ ☙ ☚ ☛ ☜ ☝ ☞ ☟ ☠ ☡ ☢ ☣ ☤ ☥ ☦ ☧ ☨ ☩ ☪ ☫ ☬ ☭ ☮ ☯ ☰ ☱ ☲ ☳ ☴ ☵ ☶ ☷ ☸ ☹ ☺ ☻ ☼ ☽ ☾ ☿ ♀ ♁ ♂ ♃ ♄ ♅ ♆ ♇ ♈ ♉ ♊ ♋ ♌ ♍ ♎ ♏ ♐ ♑ ♒ ♓ ♔ ♕ ♖ ♗ ♘ ♙ ♚ ♛ ♜ ♝ ♞ ♟ ♠ ♡ ♢ ♣ ♤ ♥ ♦ ♧ ♨ ♩ ♪ ♫ ♬ ♭ ♮ ♯ ♰ ♱ ♲ ♳ ♴ ♵ ♶ ♷ ♸ ♹ ♺ ♻ ♼ ♽ ⚀ ⚁ ⚂ ⚃ ⚄ ...
123+Dingbats
124+✁ ✂ ✃ ✄ ✆ ✇ ✈ ✉ ✌ ✍ ✎ ✏ ✐ ✑ ✒ ✓ ✔ ✕ ✖ ✗ ✘ ✙ ✚ ✛ ✜ ✝ ✞ ✟ ✠ ✡ ✢ ✣ ✤ ✥ ✦ ✧ ✩ ✪ ✫ ✬ ✭ ✮ ✯ ✰ ✱ ✲ ✳ ✴ ✵ ✶ ✷ ✸ ✹ ✺ ✻ ✼ ✽ ✾ ✿ ❀ ❁ ❂ ❃ ❄ ❅ ❆ ❇ ❈ ❉ ❊ ❋ ❍ ❏ ❐ ❑ ❒ ❖ ❘ ❙ ❚ ❛ ❜ ❝ ❞ ❡ ❢ ❣ ❤ ❥ ❦ ❧ ❨ ❩ ❪ ❫ ❬ ❭ ❮ ❯ ❰ ❱ ❲ ❳ ❴ ❵ ❶ ❷ ❸ ❹ ❺ ❻ ❼ ❽ ❾ ❿ ➀ ➁ ➂ ➃ ➄ ➅ ➆ ➇ ➈ ➉ ➊ ➋ ➌ ...
125+Miscellaneous Mathematical Symbols-A
126+⟐ ⟑ ⟒ ⟓ ⟔ ⟕ ⟖ ⟗ ⟘ ⟙ ⟚ ⟛ ⟜ ⟝ ⟞ ⟟ ⟠ ⟡ ⟢ ⟣ ⟤ ⟥ ⟦ ⟧ ⟨ ⟩ ⟪ ⟫
127+Supplemental Arrows-A
128+⟰ ⟱ ⟲ ⟳ ⟴ ⟵ ⟶ ⟷ ⟸ ⟹ ⟺ ⟻ ⟼ ⟽ ⟾ ⟿
129+Braille Patterns
130+⠀ ⠁ ⠂ ⠃ ⠄ ⠅ ⠆ ⠇ ⠈ ⠉ ⠊ ⠋ ⠌ ⠍ ⠎ ⠏ ⠐ ⠑ ⠒ ⠓ ⠔ ⠕ ⠖ ⠗ ⠘ ⠙ ⠚ ⠛ ⠜ ⠝ ⠞ ⠟ ⠠ ⠡ ⠢ ⠣ ⠤ ⠥ ⠦ ⠧ ⠨ ⠩ ⠪ ⠫ ⠬ ⠭ ⠮ ⠯ ⠰ ⠱ ⠲ ⠳ ⠴ ⠵ ⠶ ⠷ ⠸ ⠹ ⠺ ⠻ ⠼ ⠽ ⠾ ⠿ ⡀ ⡁ ⡂ ⡃ ⡄ ⡅ ⡆ ⡇ ⡈ ⡉ ⡊ ⡋ ⡌ ⡍ ⡎ ⡏ ⡐ ⡑ ⡒ ⡓ ⡔ ⡕ ⡖ ⡗ ⡘ ⡙ ⡚ ⡛ ⡜ ⡝ ⡞ ⡟ ⡠ ⡡ ⡢ ⡣ ⡤ ⡥ ⡦ ⡧ ⡨ ⡩ ⡪ ⡫ ⡬ ⡭ ⡮ ⡯ ⡰ ⡱ ⡲ ⡳ ⡴ ⡵ ⡶ ⡷ ⡸ ⡹ ⡺ ⡻ ⡼ ⡽ ⡾ ⡿ ...
131+Supplemental Arrows-B
132+⤀ ⤁ ⤂ ⤃ ⤄ ⤅ ⤆ ⤇ ⤈ ⤉ ⤊ ⤋ ⤌ ⤍ ⤎ ⤏ ⤐ ⤑ ⤒ ⤓ ⤔ ⤕ ⤖ ⤗ ⤘ ⤙ ⤚ ⤛ ⤜ ⤝ ⤞ ⤟ ⤠ ⤡ ⤢ ⤣ ⤤ ⤥ ⤦ ⤧ ⤨ ⤩ ⤪ ⤫ ⤬ ⤭ ⤮ ⤯ ⤰ ⤱ ⤲ ⤳ ⤴ ⤵ ⤶ ⤷ ⤸ ⤹ ⤺ ⤻ ⤼ ⤽ ⤾ ⤿ ⥀ ⥁ ⥂ ⥃ ⥄ ⥅ ⥆ ⥇ ⥈ ⥉ ⥊ ⥋ ⥌ ⥍ ⥎ ⥏ ⥐ ⥑ ⥒ ⥓ ⥔ ⥕ ⥖ ⥗ ⥘ ⥙ ⥚ ⥛ ⥜ ⥝ ⥞ ⥟ ⥠ ⥡ ⥢ ⥣ ⥤ ⥥ ⥦ ⥧ ⥨ ⥩ ⥪ ⥫ ⥬ ⥭ ⥮ ⥯ ⥰ ⥱ ⥲ ⥳ ⥴ ⥵ ⥶ ⥷ ⥸ ⥹ ⥺ ⥻ ⥼ ⥽ ⥾ ⥿
133+Miscellaneous Mathematical Symbols-B
134+⦀ ⦁ ⦂ ⦃ ⦄ ⦅ ⦆ ⦇ ⦈ ⦉ ⦊ ⦋ ⦌ ⦍ ⦎ ⦏ ⦐ ⦑ ⦒ ⦓ ⦔ ⦕ ⦖ ⦗ ⦘ ⦙ ⦚ ⦛ ⦜ ⦝ ⦞ ⦟ ⦠ ⦡ ⦢ ⦣ ⦤ ⦥ ⦦ ⦧ ⦨ ⦩ ⦪ ⦫ ⦬ ⦭ ⦮ ⦯ ⦰ ⦱ ⦲ ⦳ ⦴ ⦵ ⦶ ⦷ ⦸ ⦹ ⦺ ⦻ ⦼ ⦽ ⦾ ⦿ ⧀ ⧁ ⧂ ⧃ ⧄ ⧅ ⧆ ⧇ ⧈ ⧉ ⧊ ⧋ ⧌ ⧍ ⧎ ⧏ ⧐ ⧑ ⧒ ⧓ ⧔ ⧕ ⧖ ⧗ ⧘ ⧙ ⧚ ⧛ ⧜ ⧝ ⧞ ⧟ ⧠ ⧡ ⧢ ⧣ ⧤ ⧥ ⧦ ⧧ ⧨ ⧩ ⧪ ⧫ ⧬ ⧭ ⧮ ⧯ ⧰ ⧱ ⧲ ⧳ ⧴ ⧵ ⧶ ⧷ ⧸ ⧹ ⧺ ⧻ ⧼ ⧽ ⧾ ⧿
135+Supplemental Mathematical Operators
136+⨀ ⨁ ⨂ ⨃ ⨄ ⨅ ⨆ ⨇ ⨈ ⨉ ⨊ ⨋ ⨌ ⨍ ⨎ ⨏ ⨐ ⨑ ⨒ ⨓ ⨔ ⨕ ⨖ ⨗ ⨘ ⨙ ⨚ ⨛ ⨜ ⨝ ⨞ ⨟ ⨠ ⨡ ⨢ ⨣ ⨤ ⨥ ⨦ ⨧ ⨨ ⨩ ⨪ ⨫ ⨬ ⨭ ⨮ ⨯ ⨰ ⨱ ⨲ ⨳ ⨴ ⨵ ⨶ ⨷ ⨸ ⨹ ⨺ ⨻ ⨼ ⨽ ⨾ ⨿ ⩀ ⩁ ⩂ ⩃ ⩄ ⩅ ⩆ ⩇ ⩈ ⩉ ⩊ ⩋ ⩌ ⩍ ⩎ ⩏ ⩐ ⩑ ⩒ ⩓ ⩔ ⩕ ⩖ ⩗ ⩘ ⩙ ⩚ ⩛ ⩜ ⩝ ⩞ ⩟ ⩠ ⩡ ⩢ ⩣ ⩤ ⩥ ⩦ ⩧ ⩨ ⩩ ⩪ ⩫ ⩬ ⩭ ⩮ ⩯ ⩰ ⩱ ⩲ ⩳ ⩴ ⩵ ⩶ ⩷ ⩸ ⩹ ⩺ ⩻ ⩼ ⩽ ⩾ ⩿ ...
137+CJK Radicals Supplement
138+⺀ ⺁ ⺂ ⺃ ⺄ ⺅ ⺆ ⺇ ⺈ ⺉ ⺊ ⺋ ⺌ ⺍ ⺎ ⺏ ⺐ ⺑ ⺒ ⺓ ⺔ ⺕ ⺖ ⺗ ⺘ ⺙ ⺛ ⺜ ⺝ ⺞ ⺟ ⺠ ⺡ ⺢ ⺣ ⺤ ⺥ ⺦ ⺧ ⺨ ⺩ ⺪ ⺫ ⺬ ⺭ ⺮ ⺯ ⺰ ⺱ ⺲ ⺳ ⺴ ⺵ ⺶ ⺷ ⺸ ⺹ ⺺ ⺻ ⺼ ⺽ ⺾ ⺿ ⻀ ⻁ ⻂ ⻃ ⻄ ⻅ ⻆ ⻇ ⻈ ⻉ ⻊ ⻋ ⻌ ⻍ ⻎ ⻏ ⻐ ⻑ ⻒ ⻓ ⻔ ⻕ ⻖ ⻗ ⻘ ⻙ ⻚ ⻛ ⻜ ⻝ ⻞ ⻟ ⻠ ⻡ ⻢ ⻣ ⻤ ⻥ ⻦ ⻧ ⻨ ⻩ ⻪ ⻫ ⻬ ⻭ ⻮ ⻯ ⻰ ⻱ ⻲ ⻳
139+Kangxi Radicals
140+⼀ ⼁ ⼂ ⼃ ⼄ ⼅ ⼆ ⼇ ⼈ ⼉ ⼊ ⼋ ⼌ ⼍ ⼎ ⼏ ⼐ ⼑ ⼒ ⼓ ⼔ ⼕ ⼖ ⼗ ⼘ ⼙ ⼚ ⼛ ⼜ ⼝ ⼞ ⼟ ⼠ ⼡ ⼢ ⼣ ⼤ ⼥ ⼦ ⼧ ⼨ ⼩ ⼪ ⼫ ⼬ ⼭ ⼮ ⼯ ⼰ ⼱ ⼲ ⼳ ⼴ ⼵ ⼶ ⼷ ⼸ ⼹ ⼺ ⼻ ⼼ ⼽ ⼾ ⼿ ⽀ ⽁ ⽂ ⽃ ⽄ ⽅ ⽆ ⽇ ⽈ ⽉ ⽊ ⽋ ⽌ ⽍ ⽎ ⽏ ⽐ ⽑ ⽒ ⽓ ⽔ ⽕ ⽖ ⽗ ⽘ ⽙ ⽚ ⽛ ⽜ ⽝ ⽞ ⽟ ⽠ ⽡ ⽢ ⽣ ⽤ ⽥ ⽦ ⽧ ⽨ ⽩ ⽪ ⽫ ⽬ ⽭ ⽮ ⽯ ⽰ ⽱ ⽲ ⽳ ⽴ ⽵ ⽶ ⽷ ⽸ ⽹ ⽺ ⽻ ⽼ ⽽ ⽾ ⽿ ...
141+Ideographic Description Characters
142+⿰ ⿱ ⿲ ⿳ ⿴ ⿵ ⿶ ⿷ ⿸ ⿹ ⿺ ⿻
143+CJK Symbols and Punctuation
144+  、 。 〃 〄 々 〆 〇 〈 〉 《 》 「 」 『 』 【 】 〒 〓 〔 〕 〖 〗 〘 〙 〚 〛 〜 〝 〞 〟 〠 〡 〢 〣 〤 〥 〦 〧 〨 〩 〪 〫 〬 〭 〮 〯 〰 〱 〲 〳 〴 〵 〶 〷 〸 〹 〺 〻 〼 〽 〾 〿
145+Hiragana
146+ぁ あ ぃ い ぅ う ぇ え ぉ お か が き ぎ く ぐ け げ こ ご さ ざ し じ す ず せ ぜ そ ぞ た だ ち ぢ っ つ づ て で と ど な に ぬ ね の は ば ぱ ひ び ぴ ふ ぶ ぷ へ べ ぺ ほ ぼ ぽ ま み む め も ゃ や ゅ ゆ ょ よ ら り る れ ろ ゎ わ ゐ ゑ を ん ゔ ゕ ゖ ゙ ゚ ゛ ゜ ゝ ゞ ゟ
147+Katakana
148+゠ ァ ア ィ イ ゥ ウ ェ エ ォ オ カ ガ キ ギ ク グ ケ ゲ コ ゴ サ ザ シ ジ ス ズ セ ゼ ソ ゾ タ ダ チ ヂ ッ ツ ヅ テ デ ト ド ナ ニ ヌ ネ ノ ハ バ パ ヒ ビ ピ フ ブ プ ヘ ベ ペ ホ ボ ポ マ ミ ム メ モ ャ ヤ ュ ユ ョ ヨ ラ リ ル レ ロ ヮ ワ ヰ ヱ ヲ ン ヴ ヵ ヶ ヷ ヸ ヹ ヺ ・ ー ヽ ヾ ヿ
149+Bopomofo
150+ㄅ ㄆ ㄇ ㄈ ㄉ ㄊ ㄋ ㄌ ㄍ ㄎ ㄏ ㄐ ㄑ ㄒ ㄓ ㄔ ㄕ ㄖ ㄗ ㄘ ㄙ ㄚ ㄛ ㄜ ㄝ ㄞ ㄟ ㄠ ㄡ ㄢ ㄣ ㄤ ㄥ ㄦ ㄧ ㄨ ㄩ ㄪ ㄫ ㄬ
151+Hangul Compatibility Jamo
152+ㄱ ㄲ ㄳ ㄴ ㄵ ㄶ ㄷ ㄸ ㄹ ㄺ ㄻ ㄼ ㄽ ㄾ ㄿ ㅀ ㅁ ㅂ ㅃ ㅄ ㅅ ㅆ ㅇ ㅈ ㅉ ㅊ ㅋ ㅌ ㅍ ㅎ ㅏ ㅐ ㅑ ㅒ ㅓ ㅔ ㅕ ㅖ ㅗ ㅘ ㅙ ㅚ ㅛ ㅜ ㅝ ㅞ ㅟ ㅠ ㅡ ㅢ ㅣ ㅤ ㅥ ㅦ ㅧ ㅨ ㅩ ㅪ ㅫ ㅬ ㅭ ㅮ ㅯ ㅰ ㅱ ㅲ ㅳ ㅴ ㅵ ㅶ ㅷ ㅸ ㅹ ㅺ ㅻ ㅼ ㅽ ㅾ ㅿ ㆀ ㆁ ㆂ ㆃ ㆄ ㆅ ㆆ ㆇ ㆈ ㆉ ㆊ ㆋ ㆌ ㆍ ㆎ
153+Kanbun
154+㆐ ㆑ ㆒ ㆓ ㆔ ㆕ ㆖ ㆗ ㆘ ㆙ ㆚ ㆛ ㆜ ㆝ ㆞ ㆟
155+Bopomofo Extended
156+ㆠ ㆡ ㆢ ㆣ ㆤ ㆥ ㆦ ㆧ ㆨ ㆩ ㆪ ㆫ ㆬ ㆭ ㆮ ㆯ ㆰ ㆱ ㆲ ㆳ ㆴ ㆵ ㆶ ㆷ
157+Katakana Phonetic Extensions
158+ㇰ ㇱ ㇲ ㇳ ㇴ ㇵ ㇶ ㇷ ㇸ ㇹ ㇺ ㇻ ㇼ ㇽ ㇾ ㇿ
159+Enclosed CJK Letters and Months
160+㈀ ㈁ ㈂ ㈃ ㈄ ㈅ ㈆ ㈇ ㈈ ㈉ ㈊ ㈋ ㈌ ㈍ ㈎ ㈏ ㈐ ㈑ ㈒ ㈓ ㈔ ㈕ ㈖ ㈗ ㈘ ㈙ ㈚ ㈛ ㈜ ㈠ ㈡ ㈢ ㈣ ㈤ ㈥ ㈦ ㈧ ㈨ ㈩ ㈪ ㈫ ㈬ ㈭ ㈮ ㈯ ㈰ ㈱ ㈲ ㈳ ㈴ ㈵ ㈶ ㈷ ㈸ ㈹ ㈺ ㈻ ㈼ ㈽ ㈾ ㈿ ㉀ ㉁ ㉂ ㉃ ㉑ ㉒ ㉓ ㉔ ㉕ ㉖ ㉗ ㉘ ㉙ ㉚ ㉛ ㉜ ㉝ ㉞ ㉟ ㉠ ㉡ ㉢ ㉣ ㉤ ㉥ ㉦ ㉧ ㉨ ㉩ ㉪ ㉫ ㉬ ㉭ ㉮ ㉯ ㉰ ㉱ ㉲ ㉳ ㉴ ㉵ ㉶ ㉷ ㉸ ㉹ ㉺ ㉻ ㉿ ㊀ ㊁ ㊂ ㊃ ㊄ ㊅ ㊆ ㊇ ㊈ ㊉ ㊊ ㊋ ㊌ ㊍ ㊎ ㊏ ㊐ ㊑ ㊒ ...
161+CJK Compatibility
162+㌀ ㌁ ㌂ ㌃ ㌄ ㌅ ㌆ ㌇ ㌈ ㌉ ㌊ ㌋ ㌌ ㌍ ㌎ ㌏ ㌐ ㌑ ㌒ ㌓ ㌔ ㌕ ㌖ ㌗ ㌘ ㌙ ㌚ ㌛ ㌜ ㌝ ㌞ ㌟ ㌠ ㌡ ㌢ ㌣ ㌤ ㌥ ㌦ ㌧ ㌨ ㌩ ㌪ ㌫ ㌬ ㌭ ㌮ ㌯ ㌰ ㌱ ㌲ ㌳ ㌴ ㌵ ㌶ ㌷ ㌸ ㌹ ㌺ ㌻ ㌼ ㌽ ㌾ ㌿ ㍀ ㍁ ㍂ ㍃ ㍄ ㍅ ㍆ ㍇ ㍈ ㍉ ㍊ ㍋ ㍌ ㍍ ㍎ ㍏ ㍐ ㍑ ㍒ ㍓ ㍔ ㍕ ㍖ ㍗ ㍘ ㍙ ㍚ ㍛ ㍜ ㍝ ㍞ ㍟ ㍠ ㍡ ㍢ ㍣ ㍤ ㍥ ㍦ ㍧ ㍨ ㍩ ㍪ ㍫ ㍬ ㍭ ㍮ ㍯ ㍰ ㍱ ㍲ ㍳ ㍴ ㍵ ㍶ ㍻ ㍼ ㍽ ㍾ ㍿ ㎀ ㎁ ㎂ ㎃ ...
163+CJK Unified Ideographs Extension A
164+㐀 㐁 㐂 㐃 㐄 㐅 㐆 㐇 㐈 㐉 㐊 㐋 㐌 㐍 㐎 㐏 㐐 㐑 㐒 㐓 㐔 㐕 㐖 㐗 㐘 㐙 㐚 㐛 㐜 㐝 㐞 㐟 㐠 㐡 㐢 㐣 㐤 㐥 㐦 㐧 㐨 㐩 㐪 㐫 㐬 㐭 㐮 㐯 㐰 㐱 㐲 㐳 㐴 㐵 㐶 㐷 㐸 㐹 㐺 㐻 㐼 㐽 㐾 㐿 㑀 㑁 㑂 㑃 㑄 㑅 㑆 㑇 㑈 㑉 㑊 㑋 㑌 㑍 㑎 㑏 㑐 㑑 㑒 㑓 㑔 㑕 㑖 㑗 㑘 㑙 㑚 㑛 㑜 㑝 㑞 㑟 㑠 㑡 㑢 㑣 㑤 㑥 㑦 㑧 㑨 㑩 㑪 㑫 㑬 㑭 㑮 㑯 㑰 㑱 㑲 㑳 㑴 㑵 㑶 㑷 㑸 㑹 㑺 㑻 㑼 㑽 㑾 㑿 ...
165+CJK Unified Ideographs
166+一 丁 丂 七 丄 丅 丆 万 丈 三 上 下 丌 不 与 丏 丐 丑 丒 专 且 丕 世 丗 丘 丙 业 丛 东 丝 丞 丟 丠 両 丢 丣 两 严 並 丧 丨 丩 个 丫 丬 中 丮 丯 丰 丱 串 丳 临 丵 丶 丷 丸 丹 为 主 丼 丽 举 丿 乀 乁 乂 乃 乄 久 乆 乇 么 义 乊 之 乌 乍 乎 乏 乐 乑 乒 乓 乔 乕 乖 乗 乘 乙 乚 乛 乜 九 乞 也 习 乡 乢 乣 乤 乥 书 乧 乨 乩 乪 乫 乬 乭 乮 乯 买 乱 乲 乳 乴 乵 乶 乷 乸 乹 乺 乻 乼 乽 乾 乿 ...
167+Yi Syllables
168+ꀀ ꀁ ꀂ ꀃ ꀄ ꀅ ꀆ ꀇ ꀈ ꀉ ꀊ ꀋ ꀌ ꀍ ꀎ ꀏ ꀐ ꀑ ꀒ ꀓ ꀔ ꀕ ꀖ ꀗ ꀘ ꀙ ꀚ ꀛ ꀜ ꀝ ꀞ ꀟ ꀠ ꀡ ꀢ ꀣ ꀤ ꀥ ꀦ ꀧ ꀨ ꀩ ꀪ ꀫ ꀬ ꀭ ꀮ ꀯ ꀰ ꀱ ꀲ ꀳ ꀴ ꀵ ꀶ ꀷ ꀸ ꀹ ꀺ ꀻ ꀼ ꀽ ꀾ ꀿ ꁀ ꁁ ꁂ ꁃ ꁄ ꁅ ꁆ ꁇ ꁈ ꁉ ꁊ ꁋ ꁌ ꁍ ꁎ ꁏ ꁐ ꁑ ꁒ ꁓ ꁔ ꁕ ꁖ ꁗ ꁘ ꁙ ꁚ ꁛ ꁜ ꁝ ꁞ ꁟ ꁠ ꁡ ꁢ ꁣ ꁤ ꁥ ꁦ ꁧ ꁨ ꁩ ꁪ ꁫ ꁬ ꁭ ꁮ ꁯ ꁰ ꁱ ꁲ ꁳ ꁴ ꁵ ꁶ ꁷ ꁸ ꁹ ꁺ ꁻ ꁼ ꁽ ꁾ ꁿ ...
169+Yi Radicals
170+꒐ ꒑ ꒒ ꒓ ꒔ ꒕ ꒖ ꒗ ꒘ ꒙ ꒚ ꒛ ꒜ ꒝ ꒞ ꒟ ꒠ ꒡ ꒢ ꒣ ꒤ ꒥ ꒦ ꒧ ꒨ ꒩ ꒪ ꒫ ꒬ ꒭ ꒮ ꒯ ꒰ ꒱ ꒲ ꒳ ꒴ ꒵ ꒶ ꒷ ꒸ ꒹ ꒺ ꒻ ꒼ ꒽ ꒾ ꒿ ꓀ ꓁ ꓂ ꓃ ꓄ ꓅ ꓆
171+Hangul Syllables
172+가 각 갂 갃 간 갅 갆 갇 갈 갉 갊 갋 갌 갍 갎 갏 감 갑 값 갓 갔 강 갖 갗 갘 같 갚 갛 개 객 갞 갟 갠 갡 갢 갣 갤 갥 갦 갧 갨 갩 갪 갫 갬 갭 갮 갯 갰 갱 갲 갳 갴 갵 갶 갷 갸 갹 갺 갻 갼 갽 갾 갿 걀 걁 걂 걃 걄 걅 걆 걇 걈 걉 걊 걋 걌 걍 걎 걏 걐 걑 걒 걓 걔 걕 걖 걗 걘 걙 걚 걛 걜 걝 걞 걟 걠 걡 걢 걣 걤 걥 걦 걧 걨 걩 걪 걫 걬 걭 걮 걯 거 걱 걲 걳 건 걵 걶 걷 걸 걹 걺 걻 걼 걽 걾 걿 ...
173+Private Use Area
174+                                                                                                                                ...
175+CJK Compatibility Ideographs
176+豈 更 車 賈 滑 串 句 龜 龜 契 金 喇 奈 懶 癩 羅 蘿 螺 裸 邏 樂 洛 烙 珞 落 酪 駱 亂 卵 欄 爛 蘭 鸞 嵐 濫 藍 襤 拉 臘 蠟 廊 朗 浪 狼 郎 來 冷 勞 擄 櫓 爐 盧 老 蘆 虜 路 露 魯 鷺 碌 祿 綠 菉 錄 鹿 論 壟 弄 籠 聾 牢 磊 賂 雷 壘 屢 樓 淚 漏 累 縷 陋 勒 肋 凜 凌 稜 綾 菱 陵 讀 拏 樂 諾 丹 寧 怒 率 異 北 磻 便 復 不 泌 數 索 參 塞 省 葉 說 殺 辰 沈 拾 若 掠 略 亮 兩 凉 梁 糧 良 諒 量 勵 ...
177+Alphabetic Presentation Forms
178+ff fi fl ffi ffl ſt st ﬓ ﬔ ﬕ ﬖ ﬗ יִ ﬞ ײַ ﬠ ﬡ ﬢ ﬣ ﬤ ﬥ ﬦ ﬧ ﬨ ﬩ שׁ שׂ שּׁ שּׂ אַ אָ אּ בּ גּ דּ הּ וּ זּ טּ יּ ךּ כּ לּ מּ נּ סּ ףּ פּ צּ קּ רּ שּ תּ וֹ בֿ כֿ פֿ ﭏ
179+Arabic Presentation Forms-A
180+ﭐ ﭑ ﭒ ﭓ ﭔ ﭕ ﭖ ﭗ ﭘ ﭙ ﭚ ﭛ ﭜ ﭝ ﭞ ﭟ ﭠ ﭡ ﭢ ﭣ ﭤ ﭥ ﭦ ﭧ ﭨ ﭩ ﭪ ﭫ ﭬ ﭭ ﭮ ﭯ ﭰ ﭱ ﭲ ﭳ ﭴ ﭵ ﭶ ﭷ ﭸ ﭹ ﭺ ﭻ ﭼ ﭽ ﭾ ﭿ ﮀ ﮁ ﮂ ﮃ ﮄ ﮅ ﮆ ﮇ ﮈ ﮉ ﮊ ﮋ ﮌ ﮍ ﮎ ﮏ ﮐ ﮑ ﮒ ﮓ ﮔ ﮕ ﮖ ﮗ ﮘ ﮙ ﮚ ﮛ ﮜ ﮝ ﮞ ﮟ ﮠ ﮡ ﮢ ﮣ ﮤ ﮥ ﮦ ﮧ ﮨ ﮩ ﮪ ﮫ ﮬ ﮭ ﮮ ﮯ ﮰ ﮱ ﯓ ﯔ ﯕ ﯖ ﯗ ﯘ ﯙ ﯚ ﯛ ﯜ ﯝ ﯞ ﯟ ﯠ ﯡ ﯢ ﯣ ﯤ ﯥ ﯦ ﯧ ﯨ ﯩ ﯪ ﯫ ﯬ ﯭ ﯮ ﯯ ﯰ ...
181+Variation Selectors
182+︀ ︁ ︂ ︃ ︄ ︅ ︆ ︇ ︈ ︉ ︊ ︋ ︌ ︍ ︎ ️
183+Combining Half Marks
184+︠ ︡ ︢ ︣
185+CJK Compatibility Forms
186+︰ ︱ ︲ ︳ ︴ ︵ ︶ ︷ ︸ ︹ ︺ ︻ ︼ ︽ ︾ ︿ ﹀ ﹁ ﹂ ﹃ ﹄ ﹅ ﹆ ﹉ ﹊ ﹋ ﹌ ﹍ ﹎ ﹏
187+Small Form Variants
188+﹐ ﹑ ﹒ ﹔ ﹕ ﹖ ﹗ ﹘ ﹙ ﹚ ﹛ ﹜ ﹝ ﹞ ﹟ ﹠ ﹡ ﹢ ﹣ ﹤ ﹥ ﹦ ﹨ ﹩ ﹪ ﹫
189+Arabic Presentation Forms-B
190+ﹰ ﹱ ﹲ ﹳ ﹴ ﹶ ﹷ ﹸ ﹹ ﹺ ﹻ ﹼ ﹽ ﹾ ﹿ ﺀ ﺁ ﺂ ﺃ ﺄ ﺅ ﺆ ﺇ ﺈ ﺉ ﺊ ﺋ ﺌ ﺍ ﺎ ﺏ ﺐ ﺑ ﺒ ﺓ ﺔ ﺕ ﺖ ﺗ ﺘ ﺙ ﺚ ﺛ ﺜ ﺝ ﺞ ﺟ ﺠ ﺡ ﺢ ﺣ ﺤ ﺥ ﺦ ﺧ ﺨ ﺩ ﺪ ﺫ ﺬ ﺭ ﺮ ﺯ ﺰ ﺱ ﺲ ﺳ ﺴ ﺵ ﺶ ﺷ ﺸ ﺹ ﺺ ﺻ ﺼ ﺽ ﺾ ﺿ ﻀ ﻁ ﻂ ﻃ ﻄ ﻅ ﻆ ﻇ ﻈ ﻉ ﻊ ﻋ ﻌ ﻍ ﻎ ﻏ ﻐ ﻑ ﻒ ﻓ ﻔ ﻕ ﻖ ﻗ ﻘ ﻙ ﻚ ﻛ ﻜ ﻝ ﻞ ﻟ ﻠ ﻡ ﻢ ﻣ ﻤ ﻥ ﻦ ﻧ ﻨ ﻩ ﻪ ﻫ ﻬ ﻭ ﻮ ﻯ ﻰ ...
191+Halfwidth and Fullwidth Forms
192+! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ ⦅ ⦆ 。 「 」 、 ・ ヲ ァ ィ ゥ ェ ォ ャ ュ ョ ッ ー ア イ ウ エ オ カ キ ク ケ コ サ シ ス セ ソ タ ...
193+Specials
194+    �
195+Old Italic
196+𐌀 𐌁 𐌂 𐌃 𐌄 𐌅 𐌆 𐌇 𐌈 𐌉 𐌊 𐌋 𐌌 𐌍 𐌎 𐌏 𐌐 𐌑 𐌒 𐌓 𐌔 𐌕 𐌖 𐌗 𐌘 𐌙 𐌚 𐌛 𐌜 𐌝 𐌞 𐌠 𐌡 𐌢 𐌣
197+Gothic
198+𐌰 𐌱 𐌲 𐌳 𐌴 𐌵 𐌶 𐌷 𐌸 𐌹 𐌺 𐌻 𐌼 𐌽 𐌾 𐌿 𐍀 𐍁 𐍂 𐍃 𐍄 𐍅 𐍆 𐍇 𐍈 𐍉 𐍊
199+Deseret
200+𐐀 𐐁 𐐂 𐐃 𐐄 𐐅 𐐆 𐐇 𐐈 𐐉 𐐊 𐐋 𐐌 𐐍 𐐎 𐐏 𐐐 𐐑 𐐒 𐐓 𐐔 𐐕 𐐖 𐐗 𐐘 𐐙 𐐚 𐐛 𐐜 𐐝 𐐞 𐐟 𐐠 𐐡 𐐢 𐐣 𐐤 𐐥 𐐨 𐐩 𐐪 𐐫 𐐬 𐐭 𐐮 𐐯 𐐰 𐐱 𐐲 𐐳 𐐴 𐐵 𐐶 𐐷 𐐸 𐐹 𐐺 𐐻 𐐼 𐐽 𐐾 𐐿 𐑀 𐑁 𐑂 𐑃 𐑄 𐑅 𐑆 𐑇 𐑈 𐑉 𐑊 𐑋 𐑌 𐑍
201+Byzantine Musical Symbols
202+𝀀 𝀁 𝀂 𝀃 𝀄 𝀅 𝀆 𝀇 𝀈 𝀉 𝀊 𝀋 𝀌 𝀍 𝀎 𝀏 𝀐 𝀑 𝀒 𝀓 𝀔 𝀕 𝀖 𝀗 𝀘 𝀙 𝀚 𝀛 𝀜 𝀝 𝀞 𝀟 𝀠 𝀡 𝀢 𝀣 𝀤 𝀥 𝀦 𝀧 𝀨 𝀩 𝀪 𝀫 𝀬 𝀭 𝀮 𝀯 𝀰 𝀱 𝀲 𝀳 𝀴 𝀵 𝀶 𝀷 𝀸 𝀹 𝀺 𝀻 𝀼 𝀽 𝀾 𝀿 𝁀 𝁁 𝁂 𝁃 𝁄 𝁅 𝁆 𝁇 𝁈 𝁉 𝁊 𝁋 𝁌 𝁍 𝁎 𝁏 𝁐 𝁑 𝁒 𝁓 𝁔 𝁕 𝁖 𝁗 𝁘 𝁙 𝁚 𝁛 𝁜 𝁝 𝁞 𝁟 𝁠 𝁡 𝁢 𝁣 𝁤 𝁥 𝁦 𝁧 𝁨 𝁩 𝁪 𝁫 𝁬 𝁭 𝁮 𝁯 𝁰 𝁱 𝁲 𝁳 𝁴 𝁵 𝁶 𝁷 𝁸 𝁹 𝁺 𝁻 𝁼 𝁽 𝁾 𝁿 ...
203+Musical Symbols
204+𝄀 𝄁 𝄂 𝄃 𝄄 𝄅 𝄆 𝄇 𝄈 𝄉 𝄊 𝄋 𝄌 𝄍 𝄎 𝄏 𝄐 𝄑 𝄒 𝄓 𝄔 𝄕 𝄖 𝄗 𝄘 𝄙 𝄚 𝄛 𝄜 𝄝 𝄞 𝄟 𝄠 𝄡 𝄢 𝄣 𝄤 𝄥 𝄦 𝄪 𝄫 𝄬 𝄭 𝄮 𝄯 𝄰 𝄱 𝄲 𝄳 𝄴 𝄵 𝄶 𝄷 𝄸 𝄹 𝄺 𝄻 𝄼 𝄽 𝄾 𝄿 𝅀 𝅁 𝅂 𝅃 𝅄 𝅅 𝅆 𝅇 𝅈 𝅉 𝅊 𝅋 𝅌 𝅍 𝅎 𝅏 𝅐 𝅑 𝅒 𝅓 𝅔 𝅕 𝅖 𝅗 𝅘 𝅙 𝅚 𝅛 𝅜 𝅝 𝅗𝅥 𝅘𝅥 𝅘𝅥𝅮 𝅘𝅥𝅯 𝅘𝅥𝅰 𝅘𝅥𝅱 𝅘𝅥𝅲 𝅥 𝅦 𝅧 𝅨 𝅩 𝅪 𝅫 𝅬 𝅭 𝅮 𝅯 𝅰 𝅱 𝅲 𝅳 𝅴 𝅵 𝅶 𝅷 𝅸 𝅹 𝅺 𝅻 𝅼 𝅽 𝅾 𝅿 𝆀 𝆁 𝆂 ...
205+Mathematical Alphanumeric Symbols
206+𝐀 𝐁 𝐂 𝐃 𝐄 𝐅 𝐆 𝐇 𝐈 𝐉 𝐊 𝐋 𝐌 𝐍 𝐎 𝐏 𝐐 𝐑 𝐒 𝐓 𝐔 𝐕 𝐖 𝐗 𝐘 𝐙 𝐚 𝐛 𝐜 𝐝 𝐞 𝐟 𝐠 𝐡 𝐢 𝐣 𝐤 𝐥 𝐦 𝐧 𝐨 𝐩 𝐪 𝐫 𝐬 𝐭 𝐮 𝐯 𝐰 𝐱 𝐲 𝐳 𝐴 𝐵 𝐶 𝐷 𝐸 𝐹 𝐺 𝐻 𝐼 𝐽 𝐾 𝐿 𝑀 𝑁 𝑂 𝑃 𝑄 𝑅 𝑆 𝑇 𝑈 𝑉 𝑊 𝑋 𝑌 𝑍 𝑎 𝑏 𝑐 𝑑 𝑒 𝑓 𝑔 𝑖 𝑗 𝑘 𝑙 𝑚 𝑛 𝑜 𝑝 𝑞 𝑟 𝑠 𝑡 𝑢 𝑣 𝑤 𝑥 𝑦 𝑧 𝑨 𝑩 𝑪 𝑫 𝑬 𝑭 𝑮 𝑯 𝑰 𝑱 𝑲 𝑳 𝑴 𝑵 𝑶 𝑷 𝑸 𝑹 𝑺 𝑻 𝑼 𝑽 𝑾 𝑿 𝒀 ...
207+CJK Unified Ideographs Extension B
208+𠀀 𠀁 𠀂 𠀃 𠀄 𠀅 𠀆 𠀇 𠀈 𠀉 𠀊 𠀋 𠀌 𠀍 𠀎 𠀏 𠀐 𠀑 𠀒 𠀓 𠀔 𠀕 𠀖 𠀗 𠀘 𠀙 𠀚 𠀛 𠀜 𠀝 𠀞 𠀟 𠀠 𠀡 𠀢 𠀣 𠀤 𠀥 𠀦 𠀧 𠀨 𠀩 𠀪 𠀫 𠀬 𠀭 𠀮 𠀯 𠀰 𠀱 𠀲 𠀳 𠀴 𠀵 𠀶 𠀷 𠀸 𠀹 𠀺 𠀻 𠀼 𠀽 𠀾 𠀿 𠁀 𠁁 𠁂 𠁃 𠁄 𠁅 𠁆 𠁇 𠁈 𠁉 𠁊 𠁋 𠁌 𠁍 𠁎 𠁏 𠁐 𠁑 𠁒 𠁓 𠁔 𠁕 𠁖 𠁗 𠁘 𠁙 𠁚 𠁛 𠁜 𠁝 𠁞 𠁟 𠁠 𠁡 𠁢 𠁣 𠁤 𠁥 𠁦 𠁧 𠁨 𠁩 𠁪 𠁫 𠁬 𠁭 𠁮 𠁯 𠁰 𠁱 𠁲 𠁳 𠁴 𠁵 𠁶 𠁷 𠁸 𠁹 𠁺 𠁻 𠁼 𠁽 𠁾 𠁿 ...
209+CJK Compatibility Ideographs Supplement
210+丽 丸 乁 𠄢 你 侮 侻 倂 偺 備 僧 像 㒞 𠘺 免 兔 兤 具 𠔜 㒹 內 再 𠕋 冗 冤 仌 冬 况 𩇟 凵 刃 㓟 刻 剆 割 剷 㔕 勇 勉 勤 勺 包 匆 北 卉 卑 博 即 卽 卿 卿 卿 𠨬 灰 及 叟 𠭣 叫 叱 吆 咞 吸 呈 周 咢 哶 唐 啓 啣 善 善 喙 喫 喳 嗂 圖 嘆 圗 噑 噴 切 壮 城 埴 堍 型 堲 報 墬 𡓤 売 壷 夆 多 夢 奢 𡚨 𡛪 姬 娛 娧 姘 婦 㛮 㛼 嬈 嬾 嬾 𡧈 寃 寘 寧 寳 𡬘 寿 将 当 尢 㞁 屠 屮 峀 岍 𡷤 嵃 𡷦 嵮 嵫 ...
211+Tags
212+󠀁 󠀠 󠀡 󠀢 󠀣 󠀤 󠀥 󠀦 󠀧 󠀨 󠀩 󠀪 󠀫 󠀬 󠀭 󠀮 󠀯 󠀰 󠀱 󠀲 󠀳 󠀴 󠀵 󠀶 󠀷 󠀸 󠀹 󠀺 󠀻 󠀼 󠀽 󠀾 󠀿 󠁀 󠁁 󠁂 󠁃 󠁄 󠁅 󠁆 󠁇 󠁈 󠁉 󠁊 󠁋 󠁌 󠁍 󠁎 󠁏 󠁐 󠁑 󠁒 󠁓 󠁔 󠁕 󠁖 󠁗 󠁘 󠁙 󠁚 󠁛 󠁜 󠁝 󠁞 󠁟 󠁠 󠁡 󠁢 󠁣 󠁤 󠁥 󠁦 󠁧 󠁨 󠁩 󠁪 󠁫 󠁬 󠁭 󠁮 󠁯 󠁰 󠁱 󠁲 󠁳 󠁴 󠁵 󠁶 󠁷 󠁸 󠁹 󠁺 󠁻 󠁼 󠁽 󠁾 󠁿
213+Supplementary Private Use Area-A
214+󰀀 󰀁 󰀂 󰀃 󰀄 󰀅 󰀆 󰀇 󰀈 󰀉 󰀊 󰀋 󰀌 󰀍 󰀎 󰀏 󰀐 󰀑 󰀒 󰀓 󰀔 󰀕 󰀖 󰀗 󰀘 󰀙 󰀚 󰀛 󰀜 󰀝 󰀞 󰀟 󰀠 󰀡 󰀢 󰀣 󰀤 󰀥 󰀦 󰀧 󰀨 󰀩 󰀪 󰀫 󰀬 󰀭 󰀮 󰀯 󰀰 󰀱 󰀲 󰀳 󰀴 󰀵 󰀶 󰀷 󰀸 󰀹 󰀺 󰀻 󰀼 󰀽 󰀾 󰀿 󰁀 󰁁 󰁂 󰁃 󰁄 󰁅 󰁆 󰁇 󰁈 󰁉 󰁊 󰁋 󰁌 󰁍 󰁎 󰁏 󰁐 󰁑 󰁒 󰁓 󰁔 󰁕 󰁖 󰁗 󰁘 󰁙 󰁚 󰁛 󰁜 󰁝 󰁞 󰁟 󰁠 󰁡 󰁢 󰁣 󰁤 󰁥 󰁦 󰁧 󰁨 󰁩 󰁪 󰁫 󰁬 󰁭 󰁮 󰁯 󰁰 󰁱 󰁲 󰁳 󰁴 󰁵 󰁶 󰁷 󰁸 󰁹 󰁺 󰁻 󰁼 󰁽 󰁾 󰁿 ...
215+Supplementary Private Use Area-B
216+􀀀 􀀁 􀀂 􀀃 􀀄 􀀅 􀀆 􀀇 􀀈 􀀉 􀀊 􀀋 􀀌 􀀍 􀀎 􀀏 􀀐 􀀑 􀀒 􀀓 􀀔 􀀕 􀀖 􀀗 􀀘 􀀙 􀀚 􀀛 􀀜 􀀝 􀀞 􀀟 􀀠 􀀡 􀀢 􀀣 􀀤 􀀥 􀀦 􀀧 􀀨 􀀩 􀀪 􀀫 􀀬 􀀭 􀀮 􀀯 􀀰 􀀱 􀀲 􀀳 􀀴 􀀵 􀀶 􀀷 􀀸 􀀹 􀀺 􀀻 􀀼 􀀽 􀀾 􀀿 􀁀 􀁁 􀁂 􀁃 􀁄 􀁅 􀁆 􀁇 􀁈 􀁉 􀁊 􀁋 􀁌 􀁍 􀁎 􀁏 􀁐 􀁑 􀁒 􀁓 􀁔 􀁕 􀁖 􀁗 􀁘 􀁙 􀁚 􀁛 􀁜 􀁝 􀁞 􀁟 􀁠 􀁡 􀁢 􀁣 􀁤 􀁥 􀁦 􀁧 􀁨 􀁩 􀁪 􀁫 􀁬 􀁭 􀁮 􀁯 􀁰 􀁱 􀁲 􀁳 􀁴 􀁵 􀁶 􀁷 􀁸 􀁹 􀁺 􀁻 􀁼 􀁽 􀁾 􀁿 ...
benchmark/Streamly/Benchmark/Unicode/data/Deutsch.txtnew file+153
@@ -0,0 +1,153 @@
1+Der FC Bayern München (offiziell: Fußball-Club Bayern, München eingetragener Verein)[1] ist ein Sportverein aus München. Die seit 2002eine eigene Aktiengesellschaft ausgegliederte Profifußballabteilung ist deutscher Rekordmeister, Rekordsieger im DFB-Pokal, Ligapokal sowie Supercup und belegtder Ewigen Tabelle der Bundesliga den ersten Platz. Damit ist Bayern München im Profifußball der erfolgreichste deutsche Fußballverein.
2+Auf europäischer Ebene gehört der FC Bayern mit sechs Europapokalsiegen, davon vierder Champions League bzw. dem Europapokal der Landesmeister, zu den fünf erfolgreichsten Vereinen. Neben Juventus Turin und Ajax Amsterdam ist er einer der Vereine, die sowohl den Europapokal der Landesmeister, bzw. Champions League, den UEFA-Pokal, als auch den Europapokal der Pokalsieger gewinnen konnten. Zweimal gewann der FC Bayern München zudem den Weltpokal.
3+Auch wirtschaftlich gehört der Verein zu den weltweit erfolgreichsten: Nach der Saison 2009/10 belegten die Bayern Rang vierder Rangliste der umsatzstärksten Klubs und im April 2011 den gleichen Rangder Liste der wertvollsten Vereine des Forbes Magazine.[2] Mit 171.345 Vereinsmitgliedern (Stand: 18. November 2011) ist der FC Bayern einer der mitgliederstärksten Sportvereine weltweit. Innerhalb der letzten zwölf Monate stieg die Zahl um über 11.000 Mitglieder. Der Verein hat 2952 offizielle Fanclubs (Vorjahr: 2764) mit insgesamt 204.235 registrierten Mitgliedern. Dies ist ein Anstieg von über 12.000 Mitgliedern.[3][4]
4+Seit 1965 spielt der FC Bayern ununterbrochender Bundesliga, lediglich die ersten zwei Jahre nach Einführung der Bundesliga war die Mannschaft zweitklassig. Die zweite Mannschaft des FC Bayern spielt zurzeitder viertklassigen Regionalliga Süd. Sie gewannder Saison 2003/04 den Meistertitelder damals noch drittklassigen Regionalliga Süd.
5+Zum FC Bayern gehören zudem weitere Abteilungen, die auch einige Erfolge aufweisen können. So wurden die derzeitder Frauen-Bundesliga spielenden Fußballfrauen 1976 Deutscher Meister. Weitere Erfolge feierten die Basketballer mit zwei Meisterschaften und einem Pokalsieg, die Schachabteilung mit neun Deutschen Meisterschaften und einem Europapokalsieg sowie die Turner mit vier Deutschen Meisterschaften.
6+
7+Am 27. Februar 1900 fand im Gasthaus „Bäckerhöfl“ eine Sitzung der Fußballabteilung des MTV München statt. Es war kurz zuvor zu einem Streit über die weitere Entwicklung der Fußballabteilung gekommen, da eine Generalversammlung des MTV dem Beitritt des Vereins zum süddeutschen Fußballverband eine Absage erteilt hatte. Um 21:30 Uhr verließen elf Männer, Nägele, Schmid, Karl, Wamsler, Ringler, Focke, Francke, Friedrich, Zöpfel, Pollack und John das Lokal und fanden sich im Restaurant „Gisela“Schwabing ein, um noch am selben Abend den FC Bayern München zu gründen.[5] Den Vorsitz führte Franz John, der auch der erste Vorsitzendeder Geschichte der Bayern werden sollte. Als Vereinsfarben wählte man Blau-Weiß, der Mitgliedsbeitrag wurde auf eine Mark festgesetzt.
8+Als erster Trainingsplatz diente der stadteigene, heute noch existierende Schyrenplatz. Der erste Gegner war im März 1900 der 1. Münchner FC 1896, der FC Bayern gewann das Spiel mit 5:2. Schnell stießen weitere Spieler zum Verein, so unter anderem drei Spieler der Fußballabteilung des TV München 1860. Im Frühjahr 1900 überließen die Geschäftsleute Wamsler dem FC Bayern ein Grundstück an der Clemensstraße als Spielstätte. Das erste Spiel einer langen und traditionsreichen Derbygeschichte zwischen dem FC Bayern und den „Sechzigern“ fand im Jahr 1902 statt. Der FC Bayern gewann das Spiel mit 3:0. Um den Spielbetrieb auszuweiten, beschloss der Verein 1906 den Übertritt zum Münchner Sport-Club, behielt aber eine gewisse Eigenständigkeit bei, was sichder Bezeichnung „F.A. Bayern im Münchner SC“ (F.A. = Fußballabteilung) ausdrückte. Infolge der Fusion trat Bayern nunweißen Hemden und roten Hosen an, diese Farben lösten damit das Blau-Weiß aus der Gründungszeit ab, die Bezeichnung Die Roten war geboren. Auf lokaler Ebene entwickelten sich die „Bayern“ zur unangefochtenen Nummer Eins im Fußball, im Wettbewerb auf süddeutscher Ebene waren sie hingegen weniger erfolgreich. Zu sehr dominierten zu dieser Zeit noch die Mannschaften, die bereitsden 1890er Jahren entlang des Oberrheins zwischen Freiburg und Frankfurt entstanden waren und sich weiterentwickelt hatten, das Fußballgeschehen.
9+1907 mussten die Bayern die Sportanlage an der Karl-Theodor-Straße aufgeben und zum Sportplatz an der Leopoldstraße umziehen. Eingeweiht wurde damit auch die erste Tribüne auf einem FußballplatzMünchen. Im Eröffnungsspiel gab es ein 8:1 gegen Wacker München. Bereits 1908 hatte der FC Bayern mehr als 300 Mitglieder, acht Mannschaften und mehr als 100 Jugendspieler. Dies hatte eine Satzungsänderung zur Folge, wodurch Verwaltungsarbeit und der Sportbereich getrennt wurden. Die Spieler hatten dadurch mehr Zeit sich auf den Sport zu konzentrieren. 1910 konnten sie das erste Mal an der Endrunde zur Süddeutschen Meisterschaft teilnehmen. Am Ende belegte der FCB den 2. Platz hinter dem Karlsruher FV. Im selben Jahr stellten die Bayern mit Max Gablonsky ihren ersten Nationalspieler.
10+Während des Ersten Weltkrieges kam der Sport zeitweise zum Erliegen und im Verein und dessen Umfeld gab es ein ständiges Auf und Ab. Erst von der Spielzeit 1919/20 an warSüddeutschland wieder ein regelmäßiger Ligabetrieb gewährleistet. Im Oktober 1919 traten die Bayern aus dem Münchner SC aus und fusionierten mit dem Turnverein Jahn zum TuSpV Bayern. William Townley wurde erneut als Trainer verpflichtet, womit man die Tradition der englischen Trainer im Verein fortsetzte. Bereitsden Vorkriegsjahren hatten die Bayern mit Coach Taylor, Hoer und Charles Griffith drei Engländer als Trainer, von denen letzterer der erste hauptberufliche Bayerntrainer war.
11+Im Frühjahr 1924 trennte man sich im Zuge der reinlichen Scheidung wieder vom TuSpV Bayern und trat fortan nur noch als eigenständiger Verein unter dem Namen „FC Bayern München“ auf. Mit dem Schotten Jim McPherson setzten die Bayern erneut auf einen britischen Trainer. 1926 spielten die Bayern um die Süddeutsche Meisterschaft. Die härtesten Konkurrenten kamen damals mit dem 1. FC Nürnberg und der SpVgg. Fürth, die damals als beste Mannschaft Deutschlands galt, aus Bayern. Das Rückspiel gegen Fürth im Grünwalder Stadion wurde live im Radio übertragen und nach einem dramatischen Spiel gewann der FCB mit 4:3. Die Bayern waren zum ersten Male Süddeutscher Meister, scheiterten dann aber schon im Achtelfinale um die deutsche MeisterschaftLeipzig gegen den SV Fortuna Leipzig 02 mit 0:2. Bereits 1928 gelang mit dem ungarischen Trainer Leo Weisz der Gewinn der zweiten Süddeutschen Meisterschaft. Erneut qualifizierte man sich damit zur Endrunde um die Deutsche Meisterschaft und über Siege gegen den FC Wacker Halle und die SpVgg Sülz 07 erreichte der FC Bayern das Halbfinale und feierte damit den bis dahin größten Erfolg der Vereinsgeschichte. Im Duisburger Wedaustadion unterlagen die Bayern dem Hamburger SV jedoch deutlich mit 2:8.
12+Nach drei gescheiterten Anläufen zum Gewinn der Deutschen Meisterschaftden Jahren 1926, 1928 und 1929 hatte man 1932 mehr Erfolg. Der Trainerwechsel von Kálmán Konrád zu Richard Dombi 1930 erwies sich somit im Nachhinein als gute Entscheidung. Das Finale um die Süddeutsche Meisterschaft verlor der FC Bayern gegen die Eintracht aus Frankfurt und ging als Süddeutscher Vizemeisterdie Endrunde um die Deutsche Meisterschaft. Der Reihe nach traf man auf Minerva 1893 Berlin und den Polizei SV Chemnitz, ehe man im Halbfinale dem Erzrivalen aus Franken, dem 1. FC Nürnberg, gegenüberstand. Das Spiel fandMannheim statt und die Bayern besiegten den bis dahin fünfmaligen Deutschen Meister mit 2:0. Die Tore erzielten Oskar Rohr und Hans Welker. Im Finale am 12. Juni 1932, dasNürnberg ausgetragen wurde, traf man erneut auf die Frankfurter Eintracht, gegen die man schon im Finale um die Süddeutsche Meisterschaft unterlegen war. Tausende Bayern-Fans machten sich auf den Weg, darunter auch etwa 400 Arbeitslose mit dem Fahrrad. Im Nachhinein übernahm der Verein die Kosten für diese Fans für Übernachtung und Eintrittskarten. Am Tage des Endspiels herrschten 30 Grad im Schatten und 55.000 Zuschauer sahen das Spiel im Stadion.der 35. Minute nahm der Frankfurter Hennes Straub auf der Torlinie die Hand zu Hilfe und es gab Elfmeter für den FC Bayern. „Ossi“ Rohr verwandelte sicher zum 1:0.der zweiten Hälfte drängten die Frankfurter auf den Ausgleich, dochder 75. Minute erzielte Franz Krumm das entscheidende 2:0 für Bayern. Nach dem Abpfiff hielt der FC Bayern München zum ersten Malder Vereinsgeschichte die Victoriader Hand. Zum ersten Mal wurde ein Verein aus München Deutscher Meister und die Mannschaft wurde begeistertder Landeshauptstadt empfangen. Die Siegesfeier fand im Münchener Löwenbräukeller statt, die Spieler wurden auf Pferdekutschen zur Feier gebracht.einer der Festreden hieß es, „was man schon im Vorjahr bei 1860 bestimmt gedacht, hat heuer FC Bayern fertig gebracht“.
13+
14+1933 konnte der Titel nicht verteidigt werden, nachdem der Verein beide Spiele gegen den TSV 1860 München um die Süddeutsche Meisterschaft verloren hatte. Nach der NS-Übernahme der Regierungsgewalt unter der Führung Adolf Hitlers musste Präsident Kurt Landauer auf Grund seiner jüdischen Abstammung auf politischen Druck hin im selben Jahr zurücktreten. Trainer Dombi, ebenfalls jüdischer Abstammung, wechselte kurz daraufdie Schweiz. Der FC Bayern war, im Gegensatz zum Stadtrivalen 1860 München, bei den neuen Machthabern wegen Landauer und Dombi als „Judenclub“ verpönt. Erst Anfang 1943 konnte mit Josef Sauter ein NSDAP-Mitglied als Präsident im Verein eingesetzt werden, die Unterstützung einzelner Spieler für Landauer bei einem Gastspielder Schweiz hatte weitere Repressalien zur Folge.[6]
15+Zudem verließ auch Oskar Rohr den Verein, um Profispieler bei den Grasshoppers Zürich zu werden. Neuer Trainer wurde Hans Tauchert, der aber nicht an die alten Erfolge anknüpfen konnte und bereits 1934 durch Ludwig Hofmann ersetzt wurde. Hofmann verstarb aber bereits kurze Zeit später an einer Halserkrankung und Richard Michalke übernahm das Amt des Trainers. Damit war die Talfahrt allerdings noch nicht beendet und so stand man im Jahre 1939 kurz vor dem ersten Abstiegder Geschichte des Vereins, konnte die Klasse jedoch gerade noch halten. Im Verlauf des Krieges wurden die Gauligen weiter regionalisiert, um die Wege für die Vereine für Auswärtsspiele möglichst kurz zu halten. Waren die Bayern anfangsder Gauliga Bayern, spielten sie anschließendder Gauliga Südbayern, die durch die Aufteilung der Gauliga Bayern entstand. Kurz vor Ende des Krieges spielte mander Gauliga München-Oberbayern. Im Jahre 1944 konnten Die Roten wieder eine Süddeutsche Meisterschaft gewinnen und qualifizierten sich so erneut für die Endrunde um die Deutsche Meisterschaft. Bereits im Achtelfinale verlor man jedoch nach Verlängerung gegen den VfR Mannheim. Am 13. Juli desselben Jahres wurden die Geschäftsstelle und ein Teil des Archivs bei Bombenangriffen zerstört. Im darauffolgenden Jahr qualifizierte man sich unter Spielertrainer Conny Heidkamp erneut für die Endrunde um die Deutsche Meisterschaft. Die Endrunde wurde im Jahr des Endes des Zweiten Weltkriegs jedoch nicht ausgetragen. Da das Stadion an der Grünwalder Straße bei Bombenangriffen 1943 zerstört und erst im August 1945 wieder freigegeben wurde, trug der FC Bayern seine Spielediesen Jahren im Dantestadion (1943–1944), auf dem Platz an der Schlierseestraße (1944–1945) und auf dem Sportplatz der Hypobank an der Grünwalder Straße (1945) aus.
16+
17+Nach Ende des Zweiten Weltkriegs wurden alle deutschen Sportvereine durch den Alliierten Kontrollrat aufgelöst und mussten zur Neugründung eine Lizenz beantragen. Spieler des FC Bayern fanden alsbald wieder zusammen, bestritten am 24. Juni 1945 gegen den FC Wacker München das erste Spiel nach Kriegsende und stiegen im November desselben Jahresden Spielbetrieb der Oberliga Süd ein. Der Neuanfang nach dem Krieg war schwierig, fast jährlich wechselten die Trainer und der sportliche Erfolg hielt sich zunächstGrenzen. Im Juni 1947 kehrte Kurt Landauer aus dem Exil zurück, wurde wenige Wochen später erneut zum 1. Vorsitzenden des Vereins gewählt. Seine vierte und letzte Amtszeit endete 1951.
18+Die Mitgliederzahlen des Vereines entwickelten sichden Nachkriegsjahren positiv. Bald zählte der FC Bayern erneut mehr als 1000 Mitglieder, auch die Jugendabteilungen erlebten regen Zulauf. 1949 erreichte man nochmals die Qualifikationsspiele zur Deutschen Meisterschaft über einen 3. Tabellenplatzder Oberliga.der Qualifikation traf man auf den FC St. Pauli, verlor aber im Wiederholungsspiel, das bereits am nächsten Tag ausgetragen wurde, mit 0:2. Danach begann eine längere sportliche Talfahrt des Vereins, die sogar im Abstieg gipfelte. 1954/55 stiegen die Bayern zum ersten und einzigen Maleihrer Geschichte aus der damaligen obersten Liga ab. Im Folgejahr gelang allerdings der sofortige Wiederaufstieg.
19+
20+Einer der wenigen sportlichen Höhepunkte der 40er und 50er Jahre war der Gewinn des DFB-Pokals. Im Jahr des Wiederaufstiegs wollten die Bayern ursprünglich gar nicht am DFB-Pokal teilnehmen. Man wollte schlicht Reisekosten sparen. Doch der neue Trainer Willibald Hahn forderte unbedingt eine Teilnahme und konnte sich am Ende gegen die Vereinsführung durchsetzen. Nachdem im Halbfinale der 1. FC Saarbrücken mit 3:1 bezwungen wurde, wartete im Finale die Fortuna aus Düsseldorf. Das Finale fand am 29. Dezember 1957 im Augsburger Rosenaustadion vor 42.000 Zuschauern statt, darunter rund 12.000 Bayernfans. Am Tage des Spiels gab es starke Schneefälle und der Boden war mit Schnee bedeckt. Dies schien den Bayern, die als Außenseiterdas Spiel gingen, sehr entgegenzukommen. Von Anfang an dominierte der FC Bayern das Geschehen und die Fortuna hatte es nur ihrem Torwart Albert Görtz zu verdanken, dass das Spiel lange Zeit 0:0 stand.der 78. Minute gelang es dem überragenden Rudi Jobst nach dreimaligem Anlauf den Ball im Netz unterzubringen. Nachdem man die restliche Spielzeit unbeschadet überstand, war mit dem Abpfiff der erste DFB-Pokalsiegder Geschichte des FC Bayern erreicht.
21+Spieldaten des Endspiels um den DFB-Pokal 1957
22+Nach dem überraschenden Pokalerfolg und dem ersten großen Titel seit 1932 trat wieder die Tristesse der Oberliga ein. Man erreichte nur Platz sieben und es gab neuerlich finanzielle Probleme. Letzteres konnte durch Roland Endler gelöst werden. Der Geschäftsmann aus Neuss, ein großer Fan der Bayern, wurde neuer Präsident und die Finanznöte hatten ein Ende.
23+Mit dem neuen Trainer Adolf Patek ging es 1958/59 zunächst wieder aufwärts. Mit Platz vier zum Ende der Saison erzielte man das beste Resultat seit zehn Jahren.der darauffolgenden Saison wurden dem FC Bayern wegen einer sogenannten „Überbezahlung“ der Spielerder Saison 57/58 vier Punkte abgezogen. Als ursprüngliches Strafmaß waren acht Punkte Abzug vorgesehen, doch ein Einspruch der Bayern brachte eine Strafmilderung. Der Punktabzug führte dennoch dazu, dass der Verein die Endrunde um die Deutsche Meisterschaft verpasste und am Ende nur auf Platz fünf landete. Einziger Höhepunktder Spielzeit 1960/61 war der Sieg im Derby gegen den TSV 1860 München. Nach einem zwischenzeitlichem 2:2 wurden die Löwen am Ende mit 6:2 aus dem Stadion gefegt. Nach einem nur enttäuschenden 8. Platz im Folgejahr musste Trainer Patek seinen Hut nehmen. Für ihn kam Helmut Schneider.
24+In der Saison 1962/63 trat der Verein zum ersten Maleinem renommierten internationalen Wettbewerb auf: Im Viertelfinale des Messestädte-Pokals schied man gegen Dinamo Zagreb aus. National ging es für die Bayern darum, sich für die kommende neue Bundesliga zu qualifizieren. Deshalb musste mehr als nur der 8. Platz der Vorsaison herauskommen. Zudem begann am 28. April 1962 eine neue Ära beim FC Bayern. Zunächst nur kommissarisch für ein Jahr übernahm Wilhelm Neudecker das Präsidentenamt des Vereins. Es sollten weit mehr als nur das eine werden. Der neue Präsident ließ nur die Neuverpflichtung eines gestandenen Spielers zu. Dieser war Herbert Erhardt. Ansonsten durfte Trainer Schneider nur junge Talente an die Isar holen. Einer von ihnen war ein gewisser Sepp Maier. Am 30. Dezember 1962 musste Stammtorhüter Kosar im Angriff aushelfen und Sepp Maier gab sein Debüt für den FC Bayern als gerade mal 18-Jähriger. Bayern beendete die Saison auf dem 3. Tabellenplatz hinter dem 1. FC Nürnberg und dem TSV 1860 München. Damit verpasste man nicht nur die Endrunde um die Deutsche Meisterschaft, man erhielt am 11. Mai 1963 auch die Absage vom DFB für die neue Bundesliga. Die fadenscheinige Begründung lautete: „Das Gremium war der Auffassung, dass […] es nicht ratsam erscheint, zwei Vereinen am gleichen Ort eine Lizenz für die Bundesliga zu erteilen.“ Somit musste der FC Bayern 1963/64der neu geschaffenen Regionalliga antreten. Helmut Schneiders Vertrag war eigentlich schon verlängert, dennoch musste er daraufhin den Verein verlassen.
25+Für ihn kam Zlatko Čajkovski. Das erklärte Saisonziel war das Erreichen der Aufstiegsrunde zur Bundesliga. Dieses Ziel konnte mit einem zweiten Platz am Ende der Saison auch erreicht werden. Am 6. Juni 1964 besiegte man im ersten Spiel der Aufstiegsrunde den FC St. Pauli mit 4:0. Es war das erste Pflichtspiel des damals erst 18 Jahre alten Franz Beckenbauer.[7][8]seinem ersten Spiel für die Bayern gelang ihm auch gleich sein erstes Tor. Beckenbauer hatte sich gegen einen Wechsel zum TSV 1860 München und für den FC Bayern entschieden, nachdem ereinem Spiel seines SC München von 1906 gegen den TSV 1860 von einem Gegenspieler geohrfeigt worden war. Dem FC Bayern fehlte am Ende nur ein Punkt zum Aufstieg und es hieß einen neuen Anlauf zu nehmen. Hatten bereitsden beiden Jahren zuvor Maier und Beckenbauer verpflichtet werden können, fehlte jetzt nur noch ein Baustein als Grundlage für die bald folgenden großen Jahre des FC Bayern München. Im Frühjahr 1964 hatte sich der Präsident des TSV 1860 MünchenNördlingen angesagt, um der Familie Müller einen Besuch abzustatten, um deren Sohn zum TSV zu lotsen. Da auch die Bayern Interesse an dem kleinen bulligen Stürmer hatten und davon Wind bekamen, erschienen sie eine Stunde früherNördlingen. Der TSV bot dem jungen Mann nur einen Amateurvertrag über ein Jahr, der FC Bayern einen Profivertrag. Der spätere „Bomber der Nation“, Gerd Müller, wechselte daher im Sommer zum FC Bayern. Čajkovski war gar nicht begeistert von der Verpflichtung des jungen, gedrungenen Stürmers und sagte: „Was soll isch mit dieses Junge, diese Figur, unmöglich.“ Später nannte er ihn liebevoll „kleines dickes Müller“.[9]
26+Gleichseinem ersten Spiel am 18. Oktober 1964 traf Müller zum 3:0 gegen den Freiburger FC. Zum Ende der Saison 1964/65 stand man mit einem Rekordtorverhältnis von 146:32 als Meister der Regionalliga Süd fest. Gerd Müller erzielte dabei26 Spielen 33 Tore und trugseiner ersten Saison maßgeblich zur Meisterschaft bei.der Aufstiegsrunde machte man gegen Tennis Borussia Berlin alles klar. Der Verein gewann mit 8:0Berlin und stieg damitdie Bundesliga auf.
27+Vor der ersten Bundesligasaison der Bayern schimpfte Čajkovski, dass er keine fertigen Spieler habe und zufrieden wäre, wenn man die Klasse halten würde. Doch die Mannschaft sollte ihn Lügen strafen. Die Bayern starteten gleich voll durch. Auch wenn man am ersten Spieltag im Derby gegen den TSV 1860 mit 0:1 als Verlierer vom Platz ging, so standen die Bayern am vierten Spieltag das erste Mal an der Tabellenspitze der Bundesliga. Zwar konnte diese nicht gehalten werden, aber das prestigeträchtige Rückspiel gegen den Lokalrivalen TSV 1860 konnte mit 3:0 gewonnen werden, und am Ende belegte man einen mehr als beachtlichen dritten Tabellenplatz. Es war das einzige Malder Geschichte der Bundesliga, dass beide Teams aus München am Ende einer Saison unter den ersten Drei standen. Platz dreider Liga war den Bayern allerdings längst nicht genug. Es gelang ihnen zum zweiten Malder Vereinsgeschichte den DFB-Pokal zu holen. Nach einem klasse Spiel gegen den Meidericher SV behielten die Bayern mit 4:2 die Oberhand und brachten den Pokal nach Hause. Sepp Maier sagte nach dem Spiel: „Hoaß war’s, gschwitzt hamma, und gwunna a no. Grad sche war’s!“ 1966 kamen damit sowohl der Meister der Bundesliga als auch der Pokalsieger aus München.
28+
29+In der nächsten Saison, 1966/67, blieb das Team nahezu unverändert. Einzig Franz „Bulle“ Roth kam aus Kaufbeuren hinzu, Georg Schwarzenbeck verstärkte das Team aus dem eigenen Nachwuchs. Nach dem Auftritt im inoffiziellen Messestädte-Pokal spielte der FC Bayern erstmalseinem von der UEFA veranstalteten internationalen Wettbewerb, dem Europapokal der Pokalsieger. Diese Saison des Pokalsiegerwettbewerbs wurde zum ersten großen Triumphzug der Bayern auf europäischer Bühne. Über Tatran Prešov, die Shamrock Rovers, Rapid Wien und Standard Lüttich erreichte der FC Bayern völlig überraschend das Finale, das fast zu einem Heimspiel mutierte, da esNürnberg stattfand. An gleicher Stelle hatten die Bayern schon 35 Jahre zuvor den ersten wichtigen Titel für den Verein gewinnen können.
30+Vor 71.000 Zuschauern erzielte Bulle Rothder Verlängerung (108. Minute) das 1:0 für die Münchner. Gegner im Finale waren die Glasgow Rangers, die zuvor im Achtelfinale den Titelverteidiger Borussia Dortmund aus dem Wettbewerb geworfen hatten. Roth, der Schütze zum einzigen Tor im Finale, hatte zwei Jahre zuvor nochder C-Klasse beim TSV Bertoldshofen gespielt und erzielte jetzt das entscheidende Tor zum ersten internationalen Titel des FC Bayern München. Nach Borussia Dortmund im Jahr zuvor gewann damit erneut ein deutscher Verein den Pokal der Pokalsieger.
31+Die reguläre Bundesliga-Saison schloss der FC Bayern zwar nur auf Platz sechs ab, jedoch konnte man den DFB-Pokal erfolgreich verteidigen. Auch dieses Finale fand nicht weit von München entfernt statt.Stuttgart sahen 68.000 Zuschauer den erneuten Pokaltriumph der Bayern. Mit 4:0, durch Tore von Müller (2), Ohlhauser und Brenninger (je 1), hatte der Hamburger SV mit Uwe Seeler keine Chance.
32+
33+Dies war der dritte Pokalerfolg innerhalb von zwölf Monaten. Franz Beckenbauer wurde das erste Malseiner noch jungen Karriere zum „Fußballer des Jahres“ gewählt. Die darauf folgende Saison 1967/68 war nicht das Jahr der Bayern. Im Halbfinale des Europapokals der Pokalsieger 1967/68 scheiterte man am späteren Sieger AC Mailand, im DFB-Pokal warf der damalige Regionalligist VfL Bochum den Titelverteidiger im Halbfinale aus dem Wettbewerb. Die Bundesliga schloss man nur als Fünfter ab. Viel wichtiger aber war wohl, dass man erstmalsder Geschichte der Bundesliga am Erzrivalen TSV 1860 vorbeizog und zwar sowohlder Tabelle als auchder Gunst der ZuschauerMünchen. War vorher der TSV der größere von beiden Münchner Vereinen, so hat der FC Bayern München ihn jetzt überholt. Und daran änderte sich bis heute nichts.
34+Tschik Čajkovski verließ 1968 nach fünf erfolgreichen Jahren den Verein Richtung Hannover 96. Für ihn kam Branko Zebec. Mit ihm kamen auch Gustl Starek und Peter Pumm. Beide sollten sichZukunft als tragende Säulen seines Konzepts, das auf eine starke Defensive setzte, erweisen. Sein Rezept ging auf und die Bayern gewannen zum ersten Malder Vereinsgeschichte das Double aus Meisterschaft und Pokal. Gleichzeitig gelang zum ersten Mal seit 1937 wieder einem Verein das Double (damals dem FC Schalke 04). Eben jenen FC Schalke bezwang man im Pokalendspiel mit 2:1. Vor dem Spiel nahm Gerd Müller die Ehrung für den „Fußballer des Jahres“ entgegen und Branko Zebec holteseinem ersten Jahr als Trainer gleich Meisterschaft und Pokal.
35+
36+Am 13. März 1970 löste Udo Lattek den bisherigen Trainer Zebec ab. Mit der Amtsübernahme Latteks begann für den FC Bayern eine neue, noch erfolgreichere Ära. Unter Lattek brachte der FC Bayern die Saison 1969/70 als Zweiter zu Ende. Gerd Müller wurde zum dritten Male Torschützenkönig der Bundesliga mit der Rekordtorzahl von 38 Toreneiner Saison. Zudem wurde er Torschützenkönig bei der Fußball-WM 1970Mexiko.diesem Sommer beendete der langjährige Kapitän Werner Olk seine aktive Karriere. Meister wurde Borussia Mönchengladbach vor den Bayern. Die Rivalität zwischen diesen beiden Vereinen sollte kennzeichnend für die 70er Jahre werden. Beide holtendieser Zeit insgesamt acht Mal die deutsche Meisterschaft. Auchder Folgesaison blieb den Münchnern erneut nur der zweite Platz hinter der Fohlen-Elf aus Gladbach. Belächelte man anfangs die Verpflichtung Latteks, so wurden die Kritiker doch schon früh eines Besseren belehrt. Udo Lattek war bis dahin ohne große Trainererfahrung, dochseiner ersten vollen Saison als Cheftrainer gewann sein Team den DFB-Pokal und wurde erneut Vizemeister. Vor dem Pokalfinale bekam Gerd Müller wiederum eine Auszeichnung als Torschützenkönig, diesmal jedoch sogar als bester Torschütze Europas. Im Finale gegen den 1. FC Köln lagen die Bayern schon nach 13 Minuten mit 0:1 zurück ehe Beckenbauerder 53. Minute ausgleichen konnte. Dem für Franz Roth eingewechselten Edgar Schneider gelang dannder 118. Minute das Siegtor. Die Bayern hatten damit bereits zum fünften Mal das Pokalfinale erreicht und den DFB-Pokal gewonnen. Noch kein Einziges der Finals ging verloren. Es sollte aber der vorerst letzte Pokaltriumph der Bayern für eine ganze Dekade sein. Nach Olkder Vorsaison verließen nun mit Ohlhauser und Starek zwei weitere Leistungsträger den Verein.
37+Spieldaten des Endspiels um den DFB-Pokal 1971
38+Vor Beginn der neuen Spielzeit verpflichtete der Verein zwei neue Spieler, die später noch die Zukunft des FC Bayern maßgebend bestimmen sollten: Uli Hoeneß und Paul Breitner. Beide waren damals gerade 18 Jahre alt. Die Saison 1971/72 wurde für den Verein zum Jahr der Rekorde. Vom ersten Spieltag an blieb man 14 SpieleFolge ohne Niederlage. Am Ende wurde man mit 55 Punkten und 101 erzielten Toren Meister. 40 Tore davon erzielte allein Gerd Müller. Zudem wurde Borussia Dortmund mit 11:1 vom Platz gefegt. Dies alles war noch nie dagewesender noch jungen Geschichte der Bundesliga. Einige der Rekorde haben bis heute Bestand. Am 28. Juni 1972 bestritt der FC Bayern München sein erstes Heimspiel im Olympiastadion. Es war gleichzeitig das letzte Spiel der Saison.einem „Endspiel“ um die Meisterschaft wurde der Tabellenzweite Schalke 04 mit 5:1 geschlagen. Bayern war somit erneut Meister. Die Münchner machten auchder nächsten Saison da weiter, wo sieder Vorsaison aufgehört hatten. Vom ersten bis zum letzten Spieltag hieß der Tabellenführer FC Bayern München und wurde mit elf Punkten Vorsprung Meister vor dem 1. FC Köln. Nun war der FCB bereit für höhere AufgabenEuropa. 1974 verteidigte man zum zweiten Mal hintereinander die Meisterschaft, Gerd Müller wurde zum dritten MalFolge Torschützenkönig der Bundesliga und der FC Bayern München bestieg nun zum ersten Mal „Europas Thron“.
39+In der ersten Runde des Europapokals der Landesmeister kamen die Bayern dabei erst durch ein Elfmeterschießen im Rückspiel beim schwedischen Meister Åtvidabergs FF eine Runde weiter. Danach kam es zum deutsch-deutschen Duell zwischen dem FC Bayern München und Dynamo Dresden. Zur Halbzeit führte Dynamo mit 3:2München, doch die Münchner konnten das Spiel noch drehen und mit 4:3 gewinnen. Somit hatte Dresden eine gute Ausgangssituation für das Rückspiel. Doch die Roten gingen bereits nach zwölf Minuten durch zwei Tore von Hoeneß mit 2:0Führung. Kurz nach der Halbzeitpause gelang den Sachsen allerdingsder 52. Minute der Ausgleich und vier Minuten später sogar der Führungstreffer zum 3:2. Gerd Müller glich jedochder 56. Minute zum 3:3-Endstand aus. Die nächsten beiden Runden überstand man relativ leicht gegen ZSKA Sofia und Újpest Budapest und stand im Finale Atlético Madrid gegenüber. Es war kein herausragendes Spiel und die Konsequenz war ein 0:0 nach 90 Minuten. Sechs Minuten vor Ende der Verlängerung gelang Luis Aragonés das 1:0 für Madrid durch einen Freistoß. Der Schiedsrichter hatte die Pfeife schon im Mund, als Georg „Katsche“ Schwarzenbeck den Ball von Beckenbauer zugespielt bekam. Er sah keine Anspielstation im Mittelfeld, Beckenbauer rief nur „Schieß einfach!“ und so hielt er aus 30 Metern einfach aufs Tor: 1:1der 119. Minute. Schwarzenbeck ging mit diesem Tordie Geschichte des Fußballs ein.
40+Das 1:1 bedeutete nach damaligen Regeln ein Wiederholungsspiel, das nur zwei Tage später an gleicher Stelle stattfinden sollte.diesem Spiel behielten die Münchner klar die Oberhand und schlugen Atlético mit 4:0. Zum ersten Mal gewann eine deutsche Mannschaft den Pokal der Landesmeister.
41+
42+1974 verließ Paul Breitner den FC BayernRichtung Real Madrid und es kamen zwei neue Spieler, Klaus Wunder vom MSV Duisburg und ein erst 18-jähriger Stürmer namens Karl-Heinz Rummenigge aus Lippstadt. Rummenigge und Breitner sollten Jahre später als Breitnigge für Furore sorgen. Zunächst aber schied man als beste Mannschaft Europas gegen den MSV Duisburg bereitsder dritten Hauptrunde des DFB-Pokals aus.der Liga erreichte man nur den zehnten Tabellenplatz. Da esder Liga nicht lief, kam es zur Winterpause zu einem Krisengespräch zwischen Lattek und Präsident Neudecker. Lattek schilderte das Gespräch später so: „Herr Neudecker, wir müssen etwas ändern.“ worauf Neudecker mit „Sie haben recht. Sie sind gefeuert.“ antwortete. Neuer Trainer wurde Dettmar Cramer.
43+Mit Cramer konnte zwar auch nicht die Bundesligasaison gerettet werden, aber passend zum 75- jährigen Vereinsjubiläum gewann der FC Bayern erneut den Pokal der Landesmeister. Über den 1. FC Magdeburg, Ararat Eriwan und den AS Saint-Étienne konnte erneut das Finale erreicht werden. Auf den 1. FC Magdeburg hätte man bereits ein paar Tage früher im Europäischen Supercup treffen können, da Magdeburg den Pokal der Pokalsieger 1974 im Mai gegen den AC Mailand gewonnen hatte. Für den Supercup konnte man sich jedoch auf keinen Termin einigen, so dass das Aufeinandertreffen im Pokal der Landesmeister zusätzlich zum Supercup-Ersatz geriet. Ebenso wie im Jahr zuvor gegen Dynamo Dresden tat man sich auch gegen die Magdeburger schwer, kam aber letzten Endes doch eine Runde weiter.Paris, wo das Finale stattfand, setzten sich die Münchner klar mit 2:0 gegen Leeds United durch.
44+Spieldaten des Endspiels um den Pokal der Landesmeister 1975
45+1975/76 lief es zunächst auch unter Cramer nicht besserder Bundesliga. Zur Winterpause belegte man nur Platz zehn. Die Spiele um den UEFA Super Cup gegen Dynamo Kiew verlor man ebenfalls. Doch nach der Winterpause lief es besser und der Verein belegte am Ende den dritten Tabellenplatz. Im DFB-Pokal kamen die Bayern bisHalbfinale, wo man am Hamburger SV scheiterte. Nach Jeunesse Esch, Malmö FF und Benfica Lissabon standen die Bayern im Halbfinale des Pokals der Landesmeister Real Madrid gegenüber. Das Rückspiel im Olympiastadion war restlos ausverkauft, wollte man doch auch Paul Breitner und Günter NetzerDiensten von Real sehen. Nach einem 1:1 im Hinspiel gewann man mit zwei Toren von Gerd Müller 2:0 und zog zum dritten MalFolge ins Finale ein. Dort trafen die Münchner auf den AS Saint-Étienne. Franz Roth zeichnete sich schon wie im Vorjahr als Torschütze im Finale aus, diesmal jedoch gleich als Goldtorschütze: Sein 1:0der 57. Minute war das Einzigeder gesamten Partie und zum dritten Mal war der FC Bayern Gewinner des Landesmeisterpokals. Dieses war zuvor nur den Königlichen aus Madrid (fünf MalFolge) und Ajax Amsterdam von 1971 bis 1973 gelungen.
46+Nach den Jahren der internationalen Triumphe befand sich die Mannschaft im Umbruch. Einer der letzten großen Höhepunkte war der Gewinn des Weltpokals. Als erste deutsche Mannschaft holte man den Pokal gegen Cruzeiro Belo Horizonte, während man den Supercup erneut verlor, diesmal gegen den RSC Anderlecht. Franz Beckenbauer wurde zum Fußballer Europas gewählt und verließ zum Ende der Saison den FC BayernRichtung Cosmos New York.der Liga wurde man nur Zwölfter und erlebte eine der bittersten Heimpleiten der Geschichte, als man mit 0:7 gegen den FC Schalke 04 verlor. 65 Gegentoreeiner Spielzeit bedeuten den absoluten Negativrekord für die Münchner.
47+Im Dezember 1977 machte der Verein ein Tauschgeschäft mit Eintracht Frankfurt. Cramer wechselte im Tausch für Trainer Gyula Lóránt an den Main. Bayern wurde nur Tabellenzwölfter, die schlechteste Platzierung der Bundesligageschichte des FC Bayern. Zum Ende der Saison kam Paul Breitner zurück. Für 1,75 Millionen Mark wechselte er von Eintracht Braunschweig zurück an die Isar. Gyula Lóránt wurde bereits im Dezember 1978 beurlaubt und sein bisheriger Co-Trainer Pál Csernai übernahm das Amt des Trainers. Als Nachfolger war Max Merkel im Gespräch, doch die Mannschaft sprach sich gegen ihn aus. Gerd Müller folgte Franz Beckenbauer 1979die USA, Uli Hoeneß wechselte nach Nürnberg und der langjährige Präsident Neudecker trat nach 17 Jahren Amtszeit ab; neuer Präsident wurde Hoffmann. Einziger Lichtblickden unruhigen Zeiten war das neugeschaffene Duo Rummenigge und Breitner, auch Breitnigge genannt. Alleine 26 der erzielten 69 Tore gingen auf das Konto der beiden. Im April 1979 kehrte Uli Hoeneß zum FC Bayern zurück und wurde, obwohl gerade erst 27 Jahre alt, Manager des Vereins.
48+
49+Im Juli 1979 erreichte den Verein die nächste Hiobsbotschaft. Sepp Maier verletzte sich nach einem Autounfall so schwer, dass die Katze von Anzing, wie er auch genannt wurde, seine Karriere frühzeitig beenden musste. Mit 35 Jahren hatte er 473 Bundesligaspiele bestritten, alle für den FC Bayern, davon 442 Spiele in Folge. Maiers Nachfolger wurde Walter Junghans. Auch der letzte Große der 70er-Ära musste seine Karriere frühzeitig beenden. Katsche Schwarzenbeck bestritt am 18. August 1979 sein letztes Bundesligaspiel gegen den FC Schalke 04. Er zog sich eine Achillessehnenverletzung zu, die ihn zwang, seine Karriere zu beenden. Schwarzenbeck bestritt 416 Bundesligaspiele für die Bayern, in denen er 16 Tore erzielte. Andere rückten dafür ins Rampenlicht beim FC Bayern. Klaus Augenthaler, inzwischen Stammspieler, Dieter Hoeneß, der vom VfB Stuttgart an die Isar kam und natürlich Karl-Heinz Rummenigge. Letzterer wurde 1979 zum Fußballer Europas gewählt.
50+Im DFB-Pokal schied man blamablerweise gegen die SpVgg Bayreuth schon in der dritten Hauptrunde aus. Als Vierter des Vorjahres in der Bundesliga startete man im UEFA-Pokal, erreichte dort das Halbfinale und unterlag dort abermals im deutsch-deutschen Duell der Eintracht aus Frankfurt trotz eines 2:0 im Hinspiel. Bereits im Jahr zuvor war man im Achtelfinale des UEFA-Pokals gegen Eintracht Frankfurt ausgeschieden. In der Rückrunde der Bundesliga lieferten sich die Bayern ein Kopf-an-Kopf-Rennen mit dem HSV. Erst am letzten Spieltag kam es zur Entscheidung über die Meisterschaft. Bayern München gewann zu Hause im Olympiastadion mit 2:1 durch Tore von Breitner und Rummenigge. Seit dem Gewinn des Weltpokals 1976 konnte nun der erste Titel für die Bayern und zugleich die erste Meisterschaft seit sechs Jahren gefeiert werden. Der Umbruch, eingeleitet 1977/78, war abgeschlossen und die Bayern fanden in die Erfolgsspur zurück.
51+1980/81 konnte der FC Bayern München erstmals wieder seinen Meistertitel verteidigen, wobei das Duo Breitnigge insgesamt 46 Tore erzielte. Im Pokal der Landesmeister gelangte man bis ins Halbfinale und eliminierte dabei u. a. Ajax Amsterdam. Auch im Halbfinale verlor man kein Spiel gegen den FC Liverpool, musste aber wegen der Auswärtstorregel nach dem 1:1 im Rückspiel in München die Segel streichen. Die Reds aus Liverpool holten im Finale ihren dritten Pokal der Landesmeister. In der dritten Hauptrunde des DFB-Pokals war erneut Endstation. Diesmal war es der 1. FC Kaiserslautern, der die Bayern früh stoppte.
52+Doch im folgenden Jahr holte der Verein elf Jahre nach dem letzten Sieg zum sechsten Mal den Pokal an die Isar. Das Finale im Frankfurter Waldstadion war eines der außergewöhnlichsten in der Geschichte dieses Wettbewerbs, denn Dieter Hoeneß spielte es trotz einer Kopfverletzung, die er sich im Spiel zuzog, mit Kopfverband zu Ende. Die Bayern lagen zur Halbzeit bereits mit 0:2 gegen den Erzrivalen aus Franken, dem 1. FC Nürnberg, zurück. Nach einem Kopfballduell mit Alois Reinhardt zog sich Hoeneß die schwere Kopfverletzung zu, die zunächst nur notdürftig verbunden wurde. In der Halbzeitpause redete sein Bruder Uli ihm zu, er solle die Zähne zusammenbeißen, denn man würde ihn brauchen. Daraufhin ließ Dieter Hoeneß die Wunde ohne Narkose nähen und erschien zur zweiten Halbzeit wieder auf dem Rasen. Der FC Bayern drehte das Spiel noch und Dieter Hoeneß gelang dabei sogar in der 89. Minute das entscheidende Tor zum 4:2 per Kopf. Auch im Europapokal war man wieder erfolgreicher und gelangte ins Finale des Pokals der Landesmeister, unterlag dort jedoch Aston Villa mit 0:1 trotz einer klaren Dominanz im Spielverlauf. In der Meisterschaft machten der HSV und der 1. FC Köln den Titel unter sich aus. Es blieb nur der 3. Platz für die Münchner, nachdem man am Bökelberg gegen Gladbach mit 0:3 unterlag.
53+Spieldaten des Endspiels um den DFB-Pokal 1982 und des Endspiels um den Europapokal der Landesmeister 1982
54+Im Juli 1983 kehrte Udo Lattek als Trainer nach München zurück. Pal Csernai wurde drei Spieltage vor Ablauf der Saison 1982/83 wegen Erfolglosigkeit entlassen. Der FC Bayern konnte diesmal keinen Titel holen und kam auch in kein Finale. So scheiterte man im Pokal der Pokalsieger an der Mannschaft von Alex Ferguson, dem FC Aberdeen, der später auch den Titel holte. In der Bundesliga belegte man nur Platz vier. Zum Saisonende beendete mit Paul Breitner erneut einer der Großen seine Karriere. Mit Jean-Marie Pfaff wurde jedoch auch schon ein neuer Publikumsliebling verpflichtet. Am 33. Spieltag gegen Schalke gab Michael Rummenigge, der Bruder von Karl-Heinz, seinen Einstand bei den Bayern. Unter Lattek folgten nun erneut sehr erfolgreiche Jahre. Die Mannschaft erreichte unter seiner Leitung dreimal hintereinander das Pokalfinale und musste sich nur 1985 Bayer Uerdingen geschlagen geben. Das Finale 1984 gegen Borussia Mönchengladbach musste im Elfmeterschießen entschieden werden. Ausgerechnet Lothar Matthäus, der zur folgenden Spielzeit an die Isar wechselte, verschoss den ersten Elfmeter für Gladbach.
55+Spieldaten des Endspiels um den DFB-Pokal 1984; Spieldaten des Endspiels um den DFB-Pokal 1985 und Spieldaten des Endspiels um den DFB-Pokal 1986
56+Erreichten die Bayern 1985 noch das Halbfinale des Europapokals der Pokalsieger, standen sie 1987 wieder im Finale des Pokals der Landesmeister. Dort traf man in Wien auf den FC Porto, der als Außenseiter in die Partie ging. Bis zur 78. Minute führten die Bayern mit 1:0 durch ein Tor von Ludwig Kögl, ehe Rabah Madjer durch ein sensationelles Hackentricktor der Ausgleich gelang. Nur zwei Minuten später folgte das 2:1 des FC Porto und der FC Bayern verpasste erneut die Chance auf den Gewinn des Europapokals der Landesmeister. Die Meisterschaft konnte man in den Jahren 1985 bis 1987 drei Mal in Folge gewinnen. Mit dem Gewinn der Meisterschaft 1986 löste man den 1. FC Nürnberg als Rekordmeister Deutschlands ab, wobei den Bayern in der Saison 1984/85 das seltene Kunststück gelang, vom ersten bis zum letzten Spieltag Tabellenführer der Bundesliga zu sein. Udo Lattek nahm zum Ende der Saison 1986/87 seinen Hut und verabschiedete sich zum letzten Male von den Bayern. In seinen zwei Amtszeiten als Trainer des FC Bayern München gewann er insgesamt sechs Meisterschaften, dreimal den DFB-Pokal und einmal den Landesmeisterpokal.
57+Spieldaten des Endspiels um den Europapokal der Landesmeister 1987
58+Auf Udo Lattek folgte Jupp Heynckes als Trainer bei den Bayern. In seiner ersten Saison als verantwortlicher Trainer sprang am Ende Platz zwei hinter Werder Bremen heraus. Es folgte erneut ein Umbruch in der Mannschaft, wobei fünf Nationalspieler den Verein verließen. Matthäus und Brehme gingen zu Inter Mailand und Jean-Marie Pfaff verließ den Verein in Richtung Lierse SK. Immerhin 156 Bundesligaspiele hatte Pfaff für die Bayern absolviert. Nachfolger von Pfaff wurde der damals 25-jährige Raimond Aumann. Neu verpflichtet wurden dafür u. a. Stefan Reuter, Olaf Thon und Roland Grahammer. So klappte es dann für Heynckes mit der Meisterschaft im zweiten Anlauf und Roland Wohlfarth wurde mit 17 Treffern Torschützenkönig der Bundesliga. Im DFB-Pokal war man dagegen nicht so erfolgreich und schied bereits in der dritten Runde gegen den Karlsruher SC aus. Im UEFA-Pokal erreichte man immerhin das Halbfinale. Dort scheiterten die Münchner am späteren Pokalsieger SSC Neapel mit dem damaligen Weltstar Diego Armando Maradona. In besserer Erinnerung aus jener Europapokalsaison 1988/89 dürfte jedoch das Achtelfinalrückspiel bei Inter Mailand sein. Nach einem 0:2 im Hinspiel schafften die Bayern das „Wunder von Mailand“ und gewannen das Rückspiel mit 3:1. Ebenfalls legendär war der Auftritt von Trainer Christoph Daum zusammen mit Bayern-Trainer Heynckes im ZDF-Sportstudio. Dabei kam es zum Eklat, als Daum meinte, dass eine Wetterkarte interessanter sei als ein Gespräch mit Heynckes und sich hinterher noch an seine Stirn tippte. Die Person Daum sollte den FC Bayern noch lange begleiten.
59+
60+Für die Saison 1989/90, die ähnlich verlief wie die vorherige Saison, kamen sieben neue Spieler hinzu. Der Meistertitel wurde erfolgreich verteidigt, im DFB-Pokal schied der FC Bayern im Achtelfinale beim VfB Stuttgart aus und im Europapokal der Landesmeister wurde das Halbfinale erreicht, wo man am AC Mailand scheiterte. Das „Tor des Jahrzehnts“ gelang Klaus Augenthaler als er im Pokalspiel bei Eintracht Frankfurt aus 48,90 Metern das entscheidende 1:0 erzielte. Mit Augenthaler, Kohler, Pflügler, Reuter, Thon und Aumann fuhren gleich sechs Bayernspieler zur WM 1990 und kamen als Weltmeister zurück.
61+Die 90er Jahre begannen für die Bayern wie die 80er Jahre endeten. Mit dem Halbfinale im Pokal der Landesmeister erreichte der Verein zum dritten Mal in Folge die Runde der letzten Vier in einem Europapokalwettbewerb. Dies gelang zuletzt fast zehn Jahre zuvor, von 1980 bis 1982. Nach dem SSC Neapel und dem AC Mailand in den Jahren zuvor war diesmal Roter Stern Belgrad Endstation. Dabei schied die Mannschaft knapp und unglücklich aus. Bis zur 90. Minute des Rückspiels führte man mit 2:1 und wäre somit in der Verlängerung gewesen. Doch einen Flatterball von Klaus Augenthaler auf das eigene Tor vermochte Raimond Aumann nicht festzuhalten und mit einem 2:2 zog Roter Stern ins Finale ein. Im DFB-Pokal setzte es ein peinliches 0:1 in der ersten Runde bei den Amateuren vom FV 09 Weinheim, in der Liga wurde man Vizemeister hinter dem 1. FC Kaiserslautern.
62+Zur neuen Saison wechselten Kohler und Reuter zu Juventus Turin. Allein für Kohler erhielten die Bayern rund 15 Millionen Mark an Ablöse,[10] doch die Ablöse konnte den Verlust von Kohler nicht wettmachen. Thomas Berthold wurde vom AS Rom verpflichtet, konnte ihn aber nicht ersetzen. Klaus Augenthaler hatte zudem seine Karriere beendet, in der er 404 Bundesligaspiele für den FC Bayern absolvierte und siebenmal Meister und dreimal Pokalsieger wurde.[11] Raimond Aumann und Brian Laudrup erlitten beide einen Kreuzbandriss. Die Mannschaft bestand nur noch aus einem Gerippe. Für Aumann und den ebenfalls ausgefallenen Ersatztorwart Sven Scheuer wurde kurzfristig Toni Schumacher verpflichtet, der in acht Bundesligaspielen vor der Winterpause 91/92 für die etatmäßige Nummer 1 das Bayerntor hütete.
63+Nach dem Zweitrundenaus im Pokal gegen den FC Homburg und einer 1:4-Heimniederlage gegen die Stuttgarter Kickers war der Druck der Öffentlichkeit so groß, dass der Verein Jupp Heynckes am 8. Oktober 1991 entließ. Laut Raimond Aumann hatten die Spieler Tränen in den Augen, als sich Heynckes von ihnen verabschiedete.[12] Uli Hoeneß, der mit Jupp Heynckes befreundet ist und die Entscheidung der Entlassung mitgetragen hatte, sagte Jahre später mehrmals, dass es seine größte Fehlentscheidung gewesen sei.[13]
64+Betrachtet man die vier Jahre unter Heynckes mit zwei Vizemeisterschaften, zwei Meisterschaften und dem dreimaligen Erreichen des Halbfinals im Europapokal, kann man sicher von einer erfolgreichen Trainerära sprechen. Der öffentliche Druck, der letzten Endes zur Entlassung Jupp Heynckes führte, deutete bereits damals auf die gestiegenen Ansprüche des Vereins, der Fans und der Medien in München hin. Eine Dekade später sollten Trainer trotz zweier Doubles entlassen werden.
65+Nachfolger von Heynckes wurde Søren Lerby, der von 1983 bis 1986 89 Spiele für den FC Bayern absolviert hatte. Doch auch Lerby vermochte das Ruder nicht herumzureißen und so setzte es im Europapokal sogar eine der deftigsten Niederlagen in der Vereinsgeschichte. In der 2. Runde des UEFA-Pokals wurden die Bayern von B 1903 Kopenhagen mit 6:2 deklassiert. Am Ende belegten die Bayern nur Platz zehn in der Bundesliga und qualifizierten sich das erste Mal seit 1979 nicht für einen internationalen Wettbewerb. Im März 1992 wurde Erich Ribbeck als neuer Trainer und Nachfolger von Lerby verpflichtet. Zudem investierte der Verein im Sommer insgesamt 23,5 Millionen Mark in neue Spieler, für damalige Verhältnisse eine unglaubliche Summe. Allerdings verließen Stefan Effenberg und Brian Laudrup den Verein für 17 Millionen gemeinsam zum AC Florenz. Lothar Matthäus kehrte im Gegenzug nach vier Jahren in Italien an die Isar zurück. Dazu kamen Spieler wie Thomas Helmer, Mehmet Scholl und Jorginho. 32 Spieltage blieb der FC Bayern auf Platz eins der Tabelle und wurde am Ende doch nur Zweiter hinter Werder Bremen.
66+1994 holten die Münchner endlich den 13. Meistertitel. Zuvor war in der Winterpause Trainer Ribbeck entlassen worden und der damalige Vizepräsident Franz Beckenbauer übernahm zum ersten Mal den Trainerposten bei seinen Bayern.
67+Zur neuen Spielzeit 1994/1995 wurde Giovanni Trapattoni als Trainer verpflichtet, der jedoch nur ein Jahr an der Isar blieb. Die Sprachprobleme waren zu groß. Als neuer Torhüter stieß Oliver Kahn zu den Bayern, der später zu einer Ikone in München werden sollte. Im Herbst 1994 löste Franz Beckenbauer den seit 1985 amtierenden Fritz Scherer als Präsidenten des Gesamtvereins ab. In der Meisterschaft wurde der FC Bayern nur Sechster, doch konnte unter dem „Mister“ Trapattoni immerhin das Halbfinale des zwischenzeitlich in UEFA Champions League umbenannten Landesmeisterpokals erreicht werden, wo man gegen den späteren Gewinner Ajax Amsterdam allerdings chancenlos war. Wie schon 1990 leistete man sich im DFB-Pokal einen blamablen Ausrutscher in Runde eins. Diesmal hieß der Gegner Vestenbergsgreuth, gegen den man in Nürnberg mit 0:1 unterlag. Durch den Pokalsieg von Borussia Mönchengladbach gelangte der FC Bayern trotz des sechsten Tabellenplatzes doch noch ins internationale Geschäft und konnte in der Folgesaison am UEFA-Pokal teilnehmen. Franz Beckenbauer bezeichnete darauf hin den Wettbewerb als „Cup der Verlierer“.
68+Mit Otto Rehhagel kam in der Folgesaison ein renommierter Trainer an die Isar, der zuvor 14 Jahre lang den SV Werder Bremen trainiert hatte. Doch trotz Platz zwei in der Liga und des Einzugs ins Endspiel des UEFA-Pokals musste Rehhagel am 27. April 1996 seinen Posten räumen. Franz Beckenbauer nahm erneut Platz auf der Bank, doch es blieb in der Bundesliga beim zweiten Platz hinter Borussia Dortmund. Er gewann jedoch die beiden UEFA-Pokal-Endspiele gegen Girondins Bordeaux. Beckenbauer hatte damit den Europapokal der Pokalsieger, den Pokal der Landesmeister, den Weltpokal, die Europa- und die Weltmeisterschaft als Spieler und die WM und den UEFA-Pokal als Trainer gewonnen. Einzig den europäischen Supercup gewann er nie. Jürgen Klinsmann, der vor der Saison von den Tottenham Hotspurs nach München gewechselt war, stellte in dieser UEFA-Pokal-Saison mit 15 Turniertreffern einen neuen Rekord auf.[14]
69+
70+Zur neuen Saison kehrte Giovanni Trapattoni an die Isar zurück und wurde mit dem FC Bayern Deutscher Meister der Saison 96/97. Es war sein erster Titel außerhalb Italiens. 1998 holte er mit den Bayern den DFB-Pokal gegen den MSV Duisburg. Der DFB-Pokalsieg 1998 war zugleich der erste Pokalsieg des Vereins seit nunmehr zwölf Jahren. Nach diesem Erfolg verließ der Italiener die Münchner zum zweiten Mal. Unvergessen blieb dabei seine bekannte Wutrede nach einem 0:1 gegen Schalke am 10. März 1998 in einer Pressekonferenz.
71+Spieldaten des DFB-Pokal Endspiels 1998
72+1998 kam der Meistermacher der Dortmunder Borussia, Ottmar Hitzfeld, als Trapattoni-Nachfolger nach München. Mit Hitzfeld kehrte auch Stefan Effenberg an die Isar zurück, der bereits von 1990 bis 1992 für den FC Bayern gespielt hatte. Er wurde in den nächsten Jahren zu Hitzfelds verlängertem Arm in der Mannschaft. Unter dem neuen Trainer wurde man auf Anhieb Meister. Dabei hatte man am Ende 15 Punkte Vorsprung auf den Vizemeister Bayer Leverkusen und das Triple schien möglich.
73+Die Meisterschaft bereits gesichert, stand man am 26. Mai 1999 im Champions-League-Finale in Barcelona der Mannschaft von Manchester United gegenüber, gegen die man in der Gruppenphase zweimal Unentschieden gespielt hatte. Bereits in der 6. Minute gingen die Bayern durch ein Tor von Mario Basler mit 1:0 in Führung. Der FC Bayern war auch im weiteren Verlauf des Spiels überlegen und hätte sowohl durch Mehmet Scholl als auch Carsten Jancker die Führung weiter ausbauen können. Beide trafen jedoch nur den Torpfosten beziehungsweise die Latte. In der 80. Minute ließ sich Lothar Matthäus, bis dahin einer der besten Spieler auf dem Platz, auf eigenen Wunsch auswechseln. Die Mannschaft hielt bis zur Nachspielzeit das 1:0, jedoch gelang es Manchester durch Tore von Sheringham und Solskjær das Spiel innerhalb von zwei Minuten noch in der Nachspielzeit zu drehen. Dieses Champions-League-Finale ging als eines der denkwürdigsten in die Geschichte ein und noch heute wird über die Auswechslung von Matthäus kontrovers diskutiert.
74+Zweieinhalb Wochen später war Matthäus erneut die tragische Figur, als es im DFB-Pokal-Endspiel gegen Werder Bremen nach Verlängerung 1:1 stand und das Elfmeterschießen entscheiden musste. Den letzten Elfmeter schoss Matthäus, doch Werder-Torwart Rost hielt und somit ging dieses Elfmeterschießen mit 4:5 verloren. Es war das erste Mal, dass der FC Bayern gleich zwei Endspiele in einer Saison verlor. Dies sollte sich in der Saison 2011/12 jedoch in zeitlich umgekehrter Reihenfolge wiederholen.
75+Spieldaten des DFB-Pokal-Endspiels 1999 und Spieldaten des Champions-League-Endspiels 1999
76+Wie fast jedes Jahr gab es auch zur Saison 1999/2000 Neuzugänge und Veränderungen beim FC Bayern. So kamen der damals 17-jährige Roque Santa Cruz, Patrik Andersson und Paulo Sérgio neu zum Verein, Thomas Helmer, Ali Daei und später Mario Basler verließen ihn. Die Saison verlief durchaus erfolgreich. Bayern wurde zum 16. Mal Meister, gewann zum 10. Mal den DFB-Pokal (in einer Neuauflage des letztjährigen Endspiels wurde Werder Bremen mit 3:0 besiegt) und erreichte das Halbfinale der Champions League, wo man gegen Real Madrid ausschied, gegen die man in der Gruppenphase noch zweimal gewinnen konnte. Zudem feierte der Verein im Frühjahr 2000 sein 100-jähriges Vereinsjubiläum. Zu diesem Anlass wurde ein Einladungsturnier mit Real Madrid, Manchester United und Galatasaray Istanbul ausgetragen, das der FC Bayern gewinnen konnte.
77+Die Entscheidung in der Meisterschaft fiel erst am letzten Spieltag. Seit dem 30. Spieltag der Saison hatte Bayer 04 Leverkusen die Tabelle der Bundesliga angeführt. Nach dem 33. Spieltag betrug der Vorsprung drei Punkte. Ein Unentschieden bei der SpVgg Unterhaching hätte der Elf um Trainer Christoph Daum für den ersten Titelgewinn selbst bei einem Sieg der Bayern gegen Werder Bremen gereicht. Doch es kam anders. Bayern erledigte seine Aufgabe zu Hause und gewann mit 3:1. Gleichzeitig gelang es nur wenige Kilometer entfernt den Leverkusenern nicht, den einen Punkt unter Dach und Fach zu bringen. Leverkusen verlor mit 0:2 beim Aufsteiger aus dem Vorort Münchens – Michael Ballack schoss dabei ein Eigentor zum 0:1 – und die Meisterschaft ging an den FC Bayern.
78+
79+In der Saison 2000/01 gelang es dem FC Bayern, den Titel in der Bundesliga zu verteidigen; im DFB-Pokal scheiterte man bereits in der zweiten Runde im Elfmeterschießen beim 1. FC Magdeburg. Dafür gelang es 25 Jahre nach dem letzten Sieg im Europapokal der Landesmeister und zwei Jahre nach dem dramatischen Endspiel in Barcelona, diesen Pokal zum vierten Mal zu gewinnen.
80+Als Initialzündung für diesen Erfolg gilt das vorletzte Spiel der zweiten Gruppenphase bei Olympique Lyon. Der FC Bayern hatte nach einer schwachen Leistung mit 0:3 verloren, was Präsident Franz Beckenbauer beim Mitternachtsbankett zu einer berühmt gewordenen Wutrede („Uwe-Seeler-Traditionsmannschaft“) veranlasste. Die Rede zeigte Wirkung, die folgenden fünf Champions-League-Spiele (gegen Arsenal London, Manchester United und Real Madrid) wurden allesamt gewonnen und so stand man schließlich im Finale der Champions League, das man im Mailänder San Siro mit 5:4 im Elfmeterschießen gegen den FC Valencia gewann. Der Held der Partie war wieder einmal Torhüter Oliver Kahn, der drei Elfmeter parierte. Kahn hatte zuvor im Laufe der Saison schon häufig geglänzt, besonders im Halbfinalhinspiel gegen Real Madrid im Santiago Bernabéu.
81+Einige Tage zuvor war es in der Bundesliga zum Duell um die Meisterschaft gekommen. Bis zum 33. Spieltag war der FC Schalke 04 Tabellenführer. Dann verloren die Knappen ihr Spiel beim VfB Stuttgart durch ein Tor in der 90. Minute mit 0:1. Nur wenige Sekunden später erzielte Alexander Zickler den 2:1-Siegtreffer für den FC Bayern gegen den 1. FC Kaiserslautern. Schalke musste am 34. Spieltag gegen Unterhaching unbedingt gewinnen und auf eine Niederlage der Münchner im Hamburg hoffen, um doch noch Meister zu werden. Der FC Schalke gewann sein Spiel mit 5:3. Zeitgleich blieb die Partie in Hamburg lange torlos, doch in der 90. Minute ging der HSV durch einen Kopfball von Sergej Barbarez mit 1:0 in Führung.
82+Nach Gelsenkirchen, wo Schalkes Spiel bereits abgepfiffen war, drang die Nachricht, dass das Spiel in Hamburg aus sei und Bayern verloren habe, jedoch wurden im Parkstadion plötzlich Live-Bilder aus Hamburg auf der Anzeigetafel gezeigt. Dort war zu sehen, wie es für die von Oliver Kahn nach vorne gepeitschten Bayern in der dritten Minute der Nachspielzeit einen indirekten Freistoß im HSV-Strafraum gab, da der Torwart des HSV, Mathias Schober, einen Rückpass mit den Händen aufgenommen hatte. Stefan Effenberg nahm sich des Freistoßes an, legte den Ball auf Patrik Andersson vor und dieser schoss den Ball durch die Mauer ins Tor zum 1:1-Endstand. Somit wurde Bayern in der wohl dramatischsten Entscheidung der Bundesligageschichte erneut Meister; Torschütze Andersson verließ Bayern nach Ende der Saison zum FC Barcelona.
83+Die Saison 2001/02 verlief zunächst weniger erfolgreich. Schon die ersten Entscheidungen konnte der FC Bayern nicht für sich entscheiden. Man verlor im Ligapokal und im europäischen Supercup in Monaco mit 2:3 gegen den FC Liverpool. Am 27. November 2001 wurde in Tokio mit einem 1:0 nach Verlängerung gegen die Boca Juniors zum zweiten Mal nach 1976 der Weltpokal gewonnen. Schütze des Siegtores war Samuel Kuffour. Dies sollte jedoch der einzige Titel der Saison bleiben. In der Bundesliga erreichte man hinter Borussia Dortmund und Bayer Leverkusen nur Platz drei, in der Champions League war im Viertelfinale gegen Real Madrid und im DFB-Pokal im Halbfinale bei Schalke 04 Schluss.
84+
85+Für Stefan Effenberg, der die Bayern am Ende der letzten Saison verlassen hatte, wurde Michael Ballack verpflichtet, der in der abgelaufenen Saison mit Leverkusen jeweils den zweiten Platz in der Bundesliga, im DFB-Pokal und in der Champions League erreichte. Zudem wechselte dessen Mannschaftskollege Zé Roberto zu den Bayern. Ein weiterer Neuzugang war Sebastian Deisler, der allerdings nach einer Verletzung gleich zu Beginn für lange Zeit ausfiel.
86+In der Champions-League-Saison 2002/03 konnten die Bayern aus sechs Spielen nur zwei Punkte durch die beiden Unentschieden gegen den RC Lens erringen. Gegen AC Mailand und Deportivo La Coruña setzte es je zwei Niederlagen. Besonders ein Spieler erwies sich dabei für Deportivo als sicherer Schütze und bezwang Oliver Kahn in zwei Spielen vier Mal: Roy Makaay. Im Sommer 2003 wechselte dieser dann für die damalige Rekordsumme von 18,7 Millionen Euro zum FC Bayern München.
87+Die Saison verlief national jedoch erfolgreich und in der Bundesliga erreichte Bayern am Ende einen Vorsprung von 16 Punkten auf den zweitplatzierten VfB Stuttgart. Zudem gelang erneut der Sieg im DFB-Pokal. Mit 3:1 besiegte man im Finale den 1. FC Kaiserslautern und erreichte so erneut das Double. In der Saison gab Bastian Schweinsteiger seinen Einstand bei den Profis des FC Bayern beim Champions-League-Heimspiel gegen den RC Lens.
88+Im Frühjahr 2003 kam mit der Kirch-Affäre der wohl größte Skandal der Vereinsgeschichte ans Licht.
89+Spieldaten des Endspiels um den DFB-Pokal 2003
90+Saison 2003/04 [Bearbeiten]
91+Vor der Saison 2003/04 wechselte Martín Demichelis von River Plate Buenos Aires zum FC Bayern. In dieser Saison waren die Münchner gegen den blendend aufspielenden, späteren Meister Werder Bremen mit einem starken Ailton jedoch nicht in der Lage, den Titel zu verteidigen. So blieb am Ende als Zweiter immer noch die direkte Qualifikation zur Champions League im darauf folgenden Jahr. 2003/04 reichte es dort nur zum Achtelfinale, in dem man wie zwei Jahre zuvor gegen Real Madrid ausschied. Im DFB-Pokal war im Viertelfinale bei Alemannia Aachen Endstation. Zum Ende der Saison löste der FC Bayern den Vertrag mit Trainer Hitzfeld, der noch bis Mitte 2005 datiert war, vorzeitig auf.
92+Saison 2004/05 [Bearbeiten]
93+Für Hitzfeld kam in der Folgesaison Felix Magath vom VfB Stuttgart. Mit ihm kam der an die Schwaben ausgeliehene Philipp Lahm zurück an die Säbener Straße. Zudem gelang es den Bayern, Lúcio von Bayer Leverkusen für die neue Saison zu verpflichten.
94+Der neue Trainer hatte auf Anhieb Erfolg mit den Bayern. So gelang es 2004/05 erneut, das Double zu holen. In der Bundesliga zog man zum Ende der zweiten Saisonhälfte einsam seine Kreise und hatte zum Schluss 77 Punkte auf dem Konto und 14 Punkte Vorsprung auf den Tabellenzweiten, den FC Schalke 04, der die Bayern in der Bundesligasaison zweimal schlagen konnte. Dabei hatte Schalke nach dem 25. Spieltag und dem 1:0-Heimsieg noch einen Drei-Punkte-Vorsprung vor den Münchnern, konnte diesen jedoch nicht behaupten und verlor in der Folgezeit 17 Punkte in neun Spielen auf die Bayern. Beide Mannschaften standen sich auch im Finale des DFB-Pokals gegenüber, das die Münchner etwas glücklich aber verdient mit 2:1 für sich entscheiden konnten. In der Champions League mussten die Bayern im Viertelfinale gegen den FC Chelsea die Segel streichen. Zum Ende der Saison bestritt man das letzte Bundesligaspiel im Olympiastadion. Die Begegnung wurde 6:3 gegen den 1. FC Nürnberg gewonnen und so endete die Ära in diesem Stadion mit der deutschen Meisterschaft, wie sie schon 1971/72 begonnen hatte.
95+Spieldaten des Endspiels um den DFB-Pokal 2005
96+Saison 2005/06 [Bearbeiten]
97+Mit der neuen Saison zogen die Bayern in die neu gebaute Allianz Arena um. Und diese wurde so erfolgreich fortgesetzt, wie die Vorsaison endete. In seiner zweiten Saison beim FC Bayern schaffte Magath dabei ein Novum. Unter ihm gelang es dem FC Bayern, als erste deutsche Mannschaft im Fußball der Männer das Double zu verteidigen. Dabei setzte man sich in der Bundesliga am Ende vor Werder Bremen und dem HSV durch. Im Endspiel um den DFB-Pokal bezwang man Eintracht Frankfurt mit 1:0 durch ein Tor von Claudio Pizarro. In der Champions League war im Achtelfinale Schluss. Dabei war man nach einem 1:1 im Hinspiel gegen den AC Mailand im Rückspiel in Italien chancenlos und verlor mit 1:4. Ende der Saison lief der Vertrag von Michael Ballack aus. Bayern machte ihm ein Angebot über 36 Millionen Euro für einen neuen vier Jahre laufenden Vertrag, doch nach langer Überlegung lehnte der Nationalspieler ab und wechselte ablösefrei zum FC Chelsea. Nach der Saison beendete Bixente Lizarazu seine Karriere beim FC Bayern.
98+Spieldaten des Endspiels um den DFB-Pokal 2006
99+Saison 2006/07 [Bearbeiten]
100+Für die Saison 2006/07 wurde kein neuer Spielmacher geholt. Allerdings konnten Lukas Podolski und Mark van Bommel verpflichtet werden. Die dritte Saison beim FC Bayern verlief für Magath dann weniger erfolgreich. Wie drei Jahre zuvor scheiterte man dieses Mal schon im Pokal-Achtelfinale an Alemannia Aachen. Einer der Torschützen für Aachen war Jan Schlaudraff, der im folgenden Sommer zu den Bayern wechseln sollte. Zudem drohte man in der Bundesliga, nur auf Platz vier liegend, die Qualifikation zur Champions League zu verpassen. Deshalb reagierte man beim FC Bayern und holte einen alten Bekannten als Trainer zurück. Am 31. Januar 2007 wurde Felix Magath nach zwei Double-Gewinnen in Folge durch seinen Vorgänger Ottmar Hitzfeld ersetzt. Doch auch er konnte die Qualifikation zur Champions League nicht erreichen und man blieb auf dem vierten Platz, der schlechtesten Platzierung der Bayern der letzten zwölf Jahre. In der Champions League selbst war erneut gegen den AC Mailand Endstation, diesmal im Viertelfinale. Man hatte sich zwar mit einem 2:2 in Mailand eine gute Ausgangsposition für das Rückspiel im eigenen Stadion erarbeitet, verlor dann aber mit 0:2. Durch dieses Ausscheiden und Platz vier in der Liga war man für die nächste Saison erstmals seit der Saison 1996/97 nicht für die Champions League qualifiziert und musste mit dem UEFA-Pokal vorliebnehmen. Nach dieser Saison beendete Mehmet Scholl seine lange Karriere beim FC Bayern. Zuvor hatte Sebastian Deisler im Januar sein Karriereende bekanntgegeben.
101+Saison 2007/08 [Bearbeiten]
102+Um eine Saison wie die des Vorjahres nicht erneut zu erleben, investierten die Bayern in der Vorbereitung zur neuen Saison eine Rekordsumme von rund 70 Millionen Euro. Dabei wurden alleine 25 Millionen Euro für Franck Ribéry von Olympique Marseille und 12,5 Millionen Euro für Luca Toni vom AC Florenz ausgegeben. Als dann neben der schon bekannten Verpflichtung von Jan Schlaudraff mit Miroslav Klose auch noch ein dritter neuer Stürmer eingekauft wurde, erbat Roy Makaay seine Freigabe und wechselte zu Feyenoord Rotterdam. Zudem wechselte Hasan Salihamidžić zu Juventus Turin. Vereinseigengewächs Owen Hargreaves, der schon lange Ambitionen für die Premier League geäußert hatte, wechselte für eine Ablösesumme von 25 Millionen Euro zu Manchester United. Neben den oben genannten Spielern wechselte auch Hamit Altıntop von Schalke 04 zu den Bayern.
103+Die hohen Investitionen lohnten sich und Bayern gelang in dieser Saison der fünfte Double-Gewinn in einem Jahrzehnt und der siebte Double-Gewinn überhaupt. Dabei wurde den Zuschauern auch spielerisch ein erfrischender Fußball geboten, bei dem vor allem Ribéry seine ausgezeichnete Technik unter Beweis stellte. Die Saison selbst verlief recht einseitig. Mit einem Start-Ziel-Sieg erreichte der FC Bayern am Ende einen Vorsprung von zehn Punkten auf Werder Bremen. Im DFB-Pokalfinale wurde Borussia Dortmund mit 2:1 nach Verlängerung besiegt. Im UEFA-Pokal schaffte man es bis ins Halbfinale und musste sich dort nach einem 1:1 im Hinspiel in München dem späteren Gewinner Zenit Sankt Petersburg mit 0:4 in St. Petersburg geschlagen geben.
104+Neben der herben Halbfinalpleite blieb dabei besonders das Viertelfinalrückspiel in Getafe in Erinnerung. Nach einem 1:1 im Hinspiel in München musste man beim FC Getafe antreten. Nachdem es lange 1:0 für die Gastgeber stand, konnte Ribéry den Rückstand in der 89. Minute ausgleichen. Dadurch kam es zur Verlängerung. Dort stand es schnell 3:1 für Getafe. Erst in der 115. Minute kamen die Bayern durch Luca Toni zum Anschlusstreffer und in der letzten Minute der Verlängerung schaffte es wiederum Toni den Ausgleich zu erzielen. Somit war man aufgrund der mehr geschossenen Auswärtstore im Halbfinale.
105+In der Winterpause der Saison kündigte Ottmar Hitzfeld bereits an, seinen zum Saisonende auslaufenden Vertrag bei Bayern nicht zu verlängern. Um ihn zu ersetzen, wurde für die neue Saison der ehemalige Spieler Jürgen Klinsmann als neuer Trainer verpflichtet.
106+Mit dem Rekord von acht gewonnenen Meisterschaften und sechs gewonnenen DFB-Pokalen verließ Oliver Kahn den FC Bayern. Kahn gelang es in seiner letzten Saison, den Rekord von Oliver Reck (22 Gegentore in 34 Spielen aus der Saison 1987/88) mit 21 Gegentoren in 34 Spielen zu unterbieten. Nach der Saison wurde er zum Ehrenspielführer des FC Bayern München ernannt.
107+Spieldaten des Endspiels um den DFB-Pokal 2008
108+Saison 2008/09 [Bearbeiten]
109+Zu Beginn der Saison 2008/09 stand Michael Rensing als die neue Nummer 1 im Tor der Bayern, verlor seinen Platz jedoch im April 2009 an Hans Jörg Butt. Zudem wechselten Tim Borowski und der italienische Weltmeister Massimo Oddo zum Rekordmeister. Nach anfänglichen Schwierigkeiten in der Bundesliga gelang es, sich bis zur Winterpause an den Spitzenreiter, den Aufsteiger TSG 1899 Hoffenheim, heranzuarbeiten und punktgleich mit der TSG überwinterte man auf Platz zwei. Nachdem man die Leistungen in der zweiten Hälfte der Saison nicht stabilisieren konnte, musste Jürgen Klinsmann fünf Spieltage vor Schluss seinen Platz räumen und wurde durch Jupp Heynckes als Cheftrainer und dessen Co-Trainer Hermann Gerland ersetzt.[15] Unter dem neuen Trainer konnte sich die Mannschaft mit vier Siegen und einem Unentschieden hinter dem neuen Meister VfL Wolfsburg den zweiten Platz und somit die direkte Qualifikation für die Champions League der Folgesaison sichern. Im DFB-Pokal war man zuvor schon im Viertelfinale gegen Bayer Leverkusen ausgeschieden. In der Champions League konnte man sich im Achtelfinal-Hinspiel bei Sporting Lissabon mit 5:0 durchsetzen und zog nach einem 7:1 im Rückspiel in das Viertelfinale ein; das Gesamtergebnis von 12:1 gegen Sporting bedeutete Champions-League-Rekord. Im Viertelfinale erlebte man jedoch vier Tage nach einem 1:5 in der Bundesliga beim VfL Wolfsburg das von vielen Fans[16] und Medien befürchtete Hinspiel-Debakel beim FC Barcelona: Nach einer 4:0-Pausenführung im Camp Nou schalteten die zuvor schon kaum geforderten Katalanen noch etwas zurück, führten eine ersatzgeschwächte (ohne Lahm, Lucio, van Buyten und Klose) und katastrophal spielende Bayern-Mannschaft aber weiter vor, ohne ihre großen Chancen in weitere Tore umzumünzen. Nach einem 1:1 im von beiden Mannschaften, besonders aber von Barcelona, nicht mit letztem Einsatz geführtem Rückspiel war die Europapokalsaison für den FC Bayern beendet.
110+Kurz nach der Winterpause gab Willy Sagnol auf Grund andauernder Beschwerden im Knie sein Karriereende bekannt. Bis März 2009 hatte der von Los Angeles Galaxy ausgeliehene US-Amerikaner Landon Donovan ein etwas glückloses Gastspiel in München.
111+Den Verein verließen zum Saisonende Lukas Podolski zum 1. FC Köln, Zé Roberto zum HSV und Lúcio zu Inter Mailand. Der vom AC Mailand ausgeliehene Massimo Oddo wurde nicht übernommen.
112+Saison 2009/10 [Bearbeiten]
113+Am 1. Juli 2009 übernahm Louis van Gaal, der in der Vorsaison den AZ Alkmaar zur Niederländischen Fußballmeisterschaft führte, den Posten als Chef-Trainer des FC Bayern.
114+Zugänge zur Saison 2009/10 waren Anatolij Tymoschtschuk von Zenit St. Petersburg, Alexander Baumjohann von Borussia Mönchengladbach, Ivica Olić vom Hamburger SV, Edson Braafheid von Twente Enschede.[17], Danijel Pranjić vom SC Heerenveen[18] und Mario Gómez vom VfB Stuttgart. Letzterer ist mit einer Ablösesumme von 30 Millionen Euro der teuerste Transfer der Bundesligageschichte.[19] Zudem kehrte Andreas Görlitz, der an den Karlsruher SC ausgeliehen war, zum FC Bayern zurück. Daneben rückten aus der zweiten Mannschaft Thomas Müller und Holger Badstuber in den Profikader auf. Am 28. August 2009 wurde schließlich der holländische Nationalspieler Arjen Robben von Real Madrid verpflichtet.[20]
115+Am Beginn der Saison versuchte van Gaal nochmals, Michael Rensing als Stammtorwart zu installieren. Allerdings konnte dieser abermals nicht überzeugen, so dass er am fünften Spieltag seinen Stammplatz wieder an Hans Jörg Butt abtreten musste. Das erste Saison-Drittel verlief wenig erfolgreich für den FC Bayern. In der Bundesliga rutschte man zwischenzeitlich bis auf Rang 14 ab und auch das Weiterkommen in der Champions League war gefährdet. Im letzten Spiel der Champions-League-Gruppenphase besiegten die Bayern schließlich am 8. Dezember 2009 Juventus Turin auswärts mit 4:1, wodurch sie doch noch die Endrunde der Champions League erreichen konnten. Daneben gelang es dem FC Bayern in der Bundesliga, bis Mitte Februar 2010 neun Spiele hintereinander zu gewinnen und damit den Rückstand auf den Spitzenreiter Bayer Leverkusen, der zwischenzeitlich acht Punkte betragen hatte, auszugleichen. Am 24. Spieltag übernahmen die Bayern schließlich die Tabellenführung in der Bundesliga, die sie bis Saisonende nur noch einmal abgaben. Am letzten Spieltag wurde durch einen 3:1-Sieg bei Hertha BSC die 22. Deutsche Meisterschaft perfekt gemacht. Zudem gewann man das Finale des DFB-Pokals gegen Werder Bremen mit 4:0 und konnte somit den 15. Pokalsieg, gleichzeitig das achte Double, verbuchen.
116+Spieldaten des Endspiels um den DFB-Pokal 2010
117+Mit dem Einzug ins Finale der Champions League eröffnete sich die Chance für die Bayern, als erste deutsche Mannschaft das Triple aus Meisterschaft, nationalem sowie internationalem Pokal zu gewinnen. Allerdings verlor man am 22. Mai 2010 im Estadio Santiago Bernabéu in Madrid gegen Inter Mailand mit 0:2 und verpasste damit den historischen Triumph.
118+
119+Zu Beginn der Saison 2010/2011 konnte der Verein mit einem 2:0 gegen Schalke 04 den von der DFL wieder eingeführten Supercup gewinnen. In der Champions League erreichten die Münchner das Achtelfinale, wo sie gegen Inter Mailand nach einem 1:0-Auswärtssieg durch eine 2:3-Heimniederlage ausschieden. Im DFB-Pokal schieden sie im Halbfinale nach einer 0:1-Heimniederlage gegen Schalke aus.
120+Am 7. März 2011 wurde vom FC Bayern bekanntgegeben, dass der Vertrag mit Trainer Louis van Gaal am Saisonende zum 30. Juni 2011 vorzeitig und einvernehmlich aufgelöst werden wird. Grund hierfür war laut Pressemitteilung die unterschiedliche Auffassung über die strategische Ausrichtung des Klubs. Nachfolger wurde Jupp Heynckes, der einen Zweijahresvertrag erhielt.[21] Am 10. April 2011 gab der Verein aufgrund der weiteren sportlichen Talfahrt die sofortige Beurlaubung Louis van Gaals bekannt und ernannte den bisherigen Co-Trainer Andries Jonker zum Cheftrainer bis zum Saisonende.[22]
121+Nach 5 Spielen und 13 von 15 möglichen Punkten unter Jonker schloss die Mannschaft die Saison 2010/2011 als Dritter ab und sicherte sich damit die Teilnahme an der Qualifikation zur Champions League.
122+In der Bundesligasaison 2011/12 musste man sich erneut Borussia Dortmund geschlagen geben, schaffte mit dem zweiten Platz aber die direkte Champions-League-Qualifikation. Zudem wurde das Pokalfinale am 12. Mai 2012 in Berlin erreicht, in dem man mit 2:5 wieder Borussia Dortmund unterlegen war.
123+In der Champions League-Qualifikation besiegte man den FC Zürich mit 2:0 und 1:0 und erreichte somit die Gruppenphase. In den Duellen gegen den FC Villarreal, Manchester City und die SSC Neapel gelang es den Roten, bereits nach dem fünften Spieltag als Gruppensieger festzustehen.[23] Über den FC Basel, Olympique Marseille und Real Madrid zog man in das Finale der Champions League ein und verlor am 19. Mai 2012 gegen Chelsea London im eigenen Stadion nach Verlängerung (1:1) im Elfmeterschießen 3:4.
124+Mit dem jeweils zweiten Platz in Champions League, Meisterschaft und DFB-Pokal ging 2012 als ein Annus horribilis verpasster Chancen in die Vereinsgeschichte ein.
125+Die erste Mannschaft spielt seit 1965 in der Bundesliga. Der FC Bayern München ist der erfolgreichste deutsche Fußball-Club und deutscher Rekordmeister. Für 21 Meisterschaften seit Einführung der Bundesliga 1963 darf er vier Meistersterne auf dem Trikot tragen. Der FC Bayern ist der erste Verein, dem es gelang, das Double zu verteidigen. Der FC Bayern München ist neben Borussia Dortmund, Borussia Mönchengladbach und dem Hamburger SV der vierte Verein, der seinen Titel in der Fußball-Bundesliga verteidigen konnte. Mit 592 Spieltagen als Tabellenführer belegt der Verein den 1. Platz in der ewigen Liste der Tabellenführer. Neben Ajax Amsterdam und Juventus Turin gelang es dem FC Bayern, alle Europapokale sowie den Weltpokal zu gewinnen. Neben Bayern München gelang es bisher nur Real Madrid und Ajax Amsterdam, den Europapokal der Landesmeister dreimal in Folge zu gewinnen. Deswegen erlaubt es die UEFA unter anderem dem FC Bayern, ein Logo mit dem Champions-League-Pokal zu tragen, in dem zusätzlich die Anzahl aller gewonnenen Europapokale der Landesmeister (4) eingetragen ist. Unter den Vereinspokalen fehlt einzig der europäische Supercup, der bisher noch von keiner deutschen Mannschaft gewonnen wurde.
126+
127+Die zweite Mannschaft (bis 2005: FC Bayern München Amateure, seitdem offiziell: FC Bayern München II) ist ebenfalls eine Profimannschaft und spielt seit 2011 in der viertklassigen Regionalliga Süd. Von 1973 bis 2011 spielte die Mannschaft stets drittklassig. Betreut wird das Team derzeit von Andries Jonker als Trainer sowie Gerd Müller und Rainer Ulrich als Co-Trainern, Torwarttrainer ist Walter Junghans.
128+1983 und 1987 erreichten die Bayern-Amateure jeweils das Endspiel um die Deutsche Amateurmeisterschaft. Bei der Einführung der Regionalligen als dritthöchste Spielklasse 1994 war man direkt für die Regionalliga Süd qualifiziert und spielte in dieser Liga bis 2008, als durch einen achten Platz die Qualifikation für die neugegründete 3. Liga gelang, deren Premierensaison man 2008/09 als Fünfter beendete. In der Saison 2003/04 gewannen die Bayern-Amateure mit Spielern wie Zvjezdan Misimović, Piotr Trochowski und Paolo Guerrero die Meisterschaft in der Regionalliga Süd. Für den DFB-Pokal waren die Bayern-Amateure mehrmals qualifiziert, erreichten in der Saison 1993/94 das Achtelfinale sowie 1994/95 und 2004/05 sogar das Viertelfinale, wobei u. a. die Bundesligisten Werder Bremen, VfB Stuttgart, 1. FC Köln und Borussia Mönchengladbach besiegt wurden.
129+Immer wieder schafften Spieler der zweiten Mannschaft den Sprung in den Kader der Profimannschaft und wurden später Stammspieler, so u. a. Markus Babbel, Philipp Lahm, Owen Hargreaves, Bastian Schweinsteiger oder in jüngerer Zeit Holger Badstuber und Thomas Müller.
130+In den Anfangsjahren des Vereins wechselten die Spielstätten recht häufig. Das erste Spiel der Vereinsgeschichte fand auf dem städtischen Spielplatz an der Schyrenstraße statt. Der 1. Münchner FC wurde damals mit 5:2 bezwungen. 1901 bis 1907 spielte man dann in Schwabing an der Clemensstraße, um dann an die Leopoldstraße zu wechseln. Da immer mehr Zuschauer zu den Heimspielen des Vereins kamen, wechselte man ab 1920 erneut den Platz, ohne für eine längere Zeit eine feste Heimstätte zu haben. Für 47 Jahre fanden die „Roten“ dann ab 1925 im Grünwalder Stadion ihr festes Zuhause, wobei man bis zum Ende des Zweiten Weltkriegs Untermieter des TSV 1860 München war. Der TSV musste später aus finanziellen Gründen das Stadion an die Stadt München verkaufen. Bayerns Zuschauerrekord im Grünwalder Stadion beläuft sich auf mehr als 50.000 während der Saison 1961/62 gegen den 1. FC Nürnberg. Mit Beginn der Bundesliga waren dann nur noch 44.000 Zuschauer zugelassen.
131+
132+Nach Fertigstellung des Olympiastadions München für die Olympischen Sommerspiele 1972 zogen die Bayern dorthin um. Das erste Spiel der Bayern fand am letzten Spieltag der Saison 1971/72 statt. FC Schalke 04 hieß der Gegner und wurde vor 79.000 Zuschauern mit 5:1 geschlagen. Nach dem Spiel feierte der Verein seine erste von vielen Deutschen Meisterschaften im Olympiastadion. Durch eine Reduzierung der Stehplätze und kleinere Anpassungen im Stadion sank die offizielle Stadionkapazität schrittweise auf 69.200 Zuschauer bei nationalen Spielen und 59.000 bei internationalen Spielen. Aus Komfortgründen gab der Verein rund 6.000 Plätze, die keine gute Sicht auf das Spielfeld boten, nicht für den Verkauf frei und ließ zu Bundesliga-Spielen nur 63.000 Zuschauer ins Stadion. Ab 1995, ein Jahr nach dem Wiederaufstieg des TSV 1860 München in die Bundesliga trug auch der Stadtrivale seine Heimspiele im Olympiastadion aus, wobei die Löwen bei Spitzenspielen die zulässige Höchstgrenze von 69.200 Zuschauern nutzten.
133+Das Olympiastadion wurde mit der Zeit immer stärker als nicht mehr zeitgemäß für Fußballspiele auf Spitzenniveau kritisiert. Es gab keine VIP-Logen, das Stadion war nur zu einer Seite hin überdacht und in der weiten und offenen Anlage wollte keine rechte „Fußball-Stimmung“ aufkommen. Auch die vorhandene Tartanbahn und die dadurch bedingte große Entfernung zwischen Zuschauern und Spielgeschehen war Fans und Verantwortlichen ein Dorn im Auge. Zudem kam es bisweilen zu Terminkonflikten, wenn andere Veranstaltungen, wie z.B. Leichtathletikwettbewerbe oder Rockkonzerte im Stadion stattfinden sollten. Viele derartige Veranstaltungen wurden wegen der Beschwerden des FC Bayern als Hauptnutzer, (und mit ca. 5 Millionen DM jährlich größten Mietzahlers) an andere Orte verlegt. Prominentestes „Opfer“ war die alljährliche Rockveranstaltung Rock im Park, die schließlich von München nach Nürnberg verlegt wurde. Der Verein machte sich daher schon länger Gedanken über ein eigenes Stadion in München. Doch über Jahre hinweg fand man keinen geeigneten Platz und auch die Stadt als Eigentümerin der olympischen Spielstätte sträubte sich gegen derartige Pläne, da die Mietzahlungen des FC Bayern eine lukrative Einnahmequelle darstellten, die man nicht verlieren wollte. Als sich Deutschland für die Fußball-Weltmeisterschaft 2006 bewarb, kam das Thema Stadion erneut auf den Tisch, denn mit dem veralteten Olympiastadion wäre München als Spielort für das Turnier undenkbar gewesen. Da es hieß, dass es nirgendwo einen geeigneten Platz für einen Neubau in München geben würde, dachte man zunächst darüber nach, das Olympiastadion aufwendig zu renovieren und grundlegend umzubauen. Auch ein Abriss und Neubau unter dem denkmalgeschützten Zeltdach wurde durchgespielt. All diese Pläne scheiterten letzten Endes aber am Veto des Architekten Günter Behnisch. Um die örtliche Politik unter Zugzwang zu setzen, spekulierte der Verein daraufhin eine Zeitlang öffentlich darüber, das neue Stadion außerhalb der Stadtgrenzen, beispielsweise in Garching oder Poing zu errichten, womit der Stadt München etliches an Steuereinnahmen und Prestige verlorengegangen wäre.
134+
135+Wollte München also WM-Spielort werden, musste eine Lösung gefunden werden. Verschiedene Standorte wurden auf ihre Tauglichkeit hin geprüft und man einigte sich letzten Endes auf Fröttmaning am nördlichen Ende der Stadt als Standort für die neue Allianz Arena. Nach zähem Ringen wurde in der Kompromisslösung festgezurrt, dass der FC Bayern und 1860 München die neue Arena gemeinsam errichten und nutzen sollten, wobei jegliche Nutzung außerhalb von Fußball ausgeschlossen wurde, um dem Olympiastadion eine gewisse Grundauslastung bei Veranstaltungen zu sichern. Auch dieser Kompromiss wurde von der Öffentlichkeit kontrovers aufgenommen, sodass es sogar zu einer Volksabstimmung über den Stadionneubau kam, die mit etwa 2/3 der Stimmen zu Gunsten des Neubaus ausfiel. Die beiden Vereine trugen die Kosten für den Stadionbau, während die Stadt München und das Land Bayern für die Kosten der Infrastruktur aufkommen sollten. Zu Beginn waren die FC Bayern München AG und die TSV München von 1860 GmbH & Co. KGaA zu je 50 % an der Stadiongesellschaft, der die Arena gehört und sie betreibt, beteiligt. Beide Vereine müssen zur Nutzung der Arena entsprechende Mietentgelte entrichten, woraus die Stadion GmbH wiederum den Kredit, der den Bau finanzierte, bedient. Als die Löwen jedoch erneut in finanzielle Nöte gerieten, verkauften sie ihren 50-Prozent-Anteil an den Mitgesellschafter. Auch eine zunächst ausgehandelte Rückkaufoption wurde inzwischen an die Bayern verkauft. Somit steht das Stadion unter der alleinigen Kontrolle des FC Bayern München.
136+Baulich ist das Stadion in drei Ränge unterteilt. Dabei besteht die Haupttribüne mit den Ein- und Ausgängen größtenteils aus VIP-Plätzen und sogenannten Business-Seats. Die Fankurven des FC Bayern befinden sich jeweils hinter den Toren. Die Sitzschalen des Stadions sind in Grau, da wohl weder Rot noch Blau dem einen oder anderen der beiden Vereine zuzumuten gewesen wäre. Dies hat allerdings den Nachteil, dass das Stadion auf Grund des vielen Graus recht kühl wirkt. Während der Heimspiele des FCB leuchtet das Stadion außen in Rot. Mehrfarbige Beleuchtungen sind zwar möglich, wurden aber nachträglich polizeilich untersagt, da die Farbwechsel zu erhöhten Unfallzahlen auf der nahen Autobahn A9 geführt hatten.
137+Das Stadion fasste anfangs 66.000 Zuschauer. Durch eine Neuanordnung der Sitzreihen und den Umbau einiger überbreiter Business-Seats zu normalen Sitzplätzen wurde die Kapazität wenige Monate später auf 69.001 Zuschauer erhöht. Prinzipiell ist eine weitere Aufstockung bis auf über 80.000 Plätze ohne tiefgreifende Baumaßnahmen möglich, der Verein verzichtet aber darauf, vor allem aus Komfortgründen für die Zuschauer.
138+
139+Das Trainingsgelände des FC Bayern befindet sich in München-Giesing an der Säbener Straße 51. Es gilt als eines der modernsten Trainingsgelände in Europa. Vielfach wird behauptet, das Gelände befände sich im Stadtteil Harlaching, der jedoch wenige Meter weiter südlich beginnt.
140+Bereits seit 1949 nutzen die Bayern das Gelände an der Säbener Straße, der ehemaligen Bezirkssportanlage Harlaching. 1970 begann der Bau der neuen Geschäftsstelle und des Trainingsgeländes unter Präsident Neudecker. Am 17. Mai 1971 war die Anlage bezugsfertig. Zum ersten Mal in der Geschichte des Vereins waren Geschäftsstelle und Trainingsgelände vereint. Bereits 1979 wurde das Gelände erweitert, worauf Ende der 80er Jahre ein weiterer Ausbau folgte, um neue Gebäude für den Amateur- und Profibereich zu schaffen. Im Jahr 2000 gab es einen Brand im Profitrakt, wobei ein erheblicher Schaden an den Umkleidekabinen, in der medizinischen Abteilung und in der Sauna entstand. 2008 wurde ein neues Servicezentrum fertiggestellt mit einem neuen Fan-Shop auf einer 250 m² großen Fläche, zudem entstand eine Tiefgarage. Das neue Gebäude ist 95 Meter lang, 16 Meter breit und ca. 10 Meter hoch. Die Tiefgarage fasst 270 Stellplätze. Direkt neben dem neuen Gebäude entstand ein neuer Rasenplatz mit mehreren Sitzreihen auf einer Seite, auf dem in der Saison 2008/09 die Heimspiele der B-Jugend-Mannschaften ausgetragen wurden. Zudem wurde ein neuer Kunstrasenplatz mit zwei Kleinfeldern für die E- und F-Jugend angelegt. Des Weiteren wurde das alte Klubrestaurant in eine Kantine für die Vereinsangestellten umgewandelt. Waren früher alle Trainingseinheiten öffentlich, hat sich in jüngerer Zeit der allgemeine Trend durchgesetzt, meist nur noch einmal wöchentlich ein öffentliches Training stattfinden zu lassen. Insgesamt gibt es auf dem Gelände fünf Rasenplätze, zwei Kunstrasenplätze und einen Beachvolleyballplatz.
141+Nur durch einen Parkplatz und einen Fußweg vom Bayern-Gelände getrennt befindet sich das neue Sportgelände der Sportfreunde München. Durch die Erweiterungsmaßnahmen des FC Bayern musste das alte Gelände der Sportfreunde weichen und wurde um einige Meter nach Süden versetzt. Ein Stück weiter westlich, getrennt durch ein Wohnviertel, befindet sich an der Grünwalder Straße das Trainingsgelände des Erzrivalen TSV 1860 München.
142+Der FC Bayern München gliedert sich in die FC Bayern München AG und den FC Bayern München e. V. Auf einer außerordentlichen Mitgliederversammlung des Vereins am 14. Februar 2002 wurde die Ausgliederung der Fußballprofiabteilung in die FC Bayern München AG beschlossen. Vorstandsvorsitzender der AG ist Karl-Heinz Rummenigge, während Uli Hoeneß Präsident des FC Bayern München e. V. und Aufsichtsratsvorsitzender der AG ist. Zum e. V. gehören folgende Sportabteilungen: Fußball (Männer: Fußball-Bundesliga, Regionalliga Süd; Frauen: Fußball-Bundesliga der Frauen), Basketball (Männer: Basketball-Bundesliga), Handball, Schach (Männer: Bundesliga, Frauen: 2. Bundesliga), Sportkegeln, Tischtennis und Turnen.
143+
144+Die Beziehung zwischen dem FC Bayern München und dem Sportartikelhersteller Adidas kann als recht außergewöhnlich bezeichnet werden. Seit 1965 ist Adidas ununterbrochen Ausrüster des Vereins. Von 2002 bis 2010 hielt Adidas einen 10-Prozent-Anteil an der FC Bayern München AG, der für 77 Millionen Euro erworben wurde.[27] Zwischen März 2010 und Juni 2011 erwarb jedoch die Audi AG in drei Schritten Aktien im Wert von 90 Mio. Euro. Dies war verbunden mit einer Kapitalerhöhung von 2,5 Mio. auf 27,5 Mio. Euro.[28] Nach dieser Kapitalerhöhung halten der FC Bayern München e. V. 81,82 Prozent sowie Adidas und Audi je 9,09 Prozent der Aktien an der AG.
145+Mit Herbert Hainer stellt Adidas den stellvertretenden Aufsichtsratsvorsitzenden der AG.[29] Bis 2007 durfte auch kein Spieler des FC Bayern eine andere Schuhmarke tragen als Adidas, selbst wenn der Spieler einen Vertrag mit einem anderen Ausrüster als Adidas hatte. Erst mit dem Wechsel von Miroslav Klose zu Bayern München änderte sich dies.
146+
147+Kein anderer Verein Deutschlands hat so viele registrierte Anhänger wie der Rekordmeister. 2952 Fanklubs mit 204.235 Fanklub-Mitgliedern sind beim FC Bayern offiziell registriert (Stand: 18. November 2011).[32] In ganz Deutschland, aber auch weltweit gibt es organisierte Bayern-Fans. Zu den bekanntesten offiziellen Fanclubs gehören die „Red Munichs 89“, die „Red Sharks“ und die „Die 13 Höslwanger“. In den 1970er Jahren gab es mit der „Südkurve 73 und den „Red Angels zwei führende Gruppen beim FC Bayern. 1986 entstand in München die erste reine Hooligangruppe, die so genannte „Service Crew Munich (SCM). Mitte der 1990er Jahre entwickelte sich dann die Ultra-Bewegung. Als erste Gruppe sind hier die „Munichmaniacs 1996 zu erwähnen. Seit 2002 gibt es eine übergreifende Ultra-Gruppe, die Schickeria München. Diese ist aber kein offizieller Fanclub. Als Dachorganisation für Fans und Fanclubs gibt es den Club Nr. 12 mit aktuell über 1400 Mitgliedern.[33] Früher gab es ein Fanheim auf einem alten Bahngelände im Stadtteil Laim, das aber einem Wohngebiet weichen musste. Was die Zahl der nicht organisierten Fans und Anhänger weltweit anbelangt, gehört der FC Bayern München auch international zu den größten Vereinen. Fanbeauftragter ist mit Andreas Brück ein langjähriger Fan aus der Südkurve.
148+Jahrelang kämpften die Bayern-Fans und Fanclubs um ein neues, reines Fußballstadion, allein schon wegen der zu erwartenden besseren Stimmung. Tatsächlich zeigte sich jedoch nach dem Einzug in die Allianz Arena, dass die Stimmung im Stadion teilweise schlechter ist als im alten Olympiastadion mit Laufbahn und führte in der Vergangenheit zu sehr kontroversen Diskussionen zwischen Vereinsführung und aktiven Fans. Dies mag zum einen an dem so genannten Operettenpublikum liegen, zum anderen aber auch an der Aufteilung und Bauweise der Allianz Arena. So wurden die Fans aus der Südkurve des Olympiastadions im neuen Stadion auf Süd- und Nordkurve aufgeteilt. Im Unterrang der Südkurve befinden sich weniger Stehplätze als in der Südkurve des Olympiastadions, so gibt es zu Bundesligaspielen dort lediglich 6800 Stehplätze.
149+Zu den Heimspielen der zweiten Mannschaft im Stadion an der Grünwalder Straße finden sich auf der Gegengeraden meist zwischen 50 und 300 aktive Fans ein. Das Stadion wird von ihnen als „Hermann-Gerland-Kampfbahn“ bezeichnet, ein Zeichen der Anerkennung der Arbeit von Hermann Gerland als langjährigem Trainer der Mannschaft. Die seit 2005 vom DFB praktizierte Sprachregelung mit dem Namenszusatz „II“ statt „Amateure“ wird von den Fans nicht akzeptiert.
150+
151+Das aktuelle offizielle Vereinslied ist „Stern des Südens“, komponiert von Willy Astor und gesungen von Claus Lessmann, dem Leadsänger der Hardrockband Bonfire. Davor war jahrelang das Lied „Forever Number One“ die Hymne des Vereins. Das Lied „Stern des Südens“ befindet sich auf der CD „Heimspiel“ der FC Bayern Fans United und wurde auch als Single veröffentlicht. Die beiden offiziellen Lieder wurden jedoch von der Fanszene wenig akzeptiert, inoffizielle Hymne ist das Lied „Mir san die Bayern“.
152+Bekannt ist ebenfalls der alte Schlager von Franz Beckenbauer „Gute Freunde kann niemand trennen“. Angestimmt werden nahezu alle Lieder im Unterrang der Südkurve und hier sowohl von der Schickeria München[34] als auch von einem Trompeter und einer Reihe älterer Fans. Auch in der Nordkurve befinden sich aktive Fans, während sich die Zuschauer in den Sitzplatzbereichen meist passiv verhalten.
153+Überregional haben sich über die Jahre hinweg mehrere Rivalitäten herausgebildet. Meistens entstand so eine Rivalität mit einem Verein, mit dem die Bayern über einen gewissen Zeitraum hinweg um die Meisterschaft rangen. So waren dies Borussia Mönchengladbach in den 1970ern und Borussia Dortmund in den 1990er Jahren. Zudem gibt es noch die Rivalität zum 1. FC Kaiserslautern und die Nord-Süd-Gipfel gegen den Hamburger SV und Werder Bremen.
benchmark/Streamly/Benchmark/Unicode/data/Devanagari.txtnew file+699
@@ -0,0 +1,699 @@
1+मधुशाला
2+मृदु भावों के अंगूरों की आज बना लाया हाला,
3+प्रियतम, अपने ही हाथों से आज पिलाऊँगा प्याला,
4+पहले भोग लगा लूँ तेरा फिर प्रसाद जग पाएगा,
5+सबसे पहले तेरा स्वागत करती मेरी मधुशाला।।१।
6+
7+प्यास तुझे तो, विश्व तपाकर पूर्ण निकालूँगा हाला,
8+एक पाँव से साकी बनकर नाचूँगा लेकर प्याला,
9+जीवन की मधुता तो तेरे ऊपर कब का वार चुका,
10+आज निछावर कर दूँगा मैं तुझ पर जग की मधुशाला।।२।
11+
12+प्रियतम, तू मेरी हाला है, मैं तेरा प्यासा प्याला,
13+अपने को मुझमें भरकर तू बनता है पीनेवाला,
14+मैं तुझको छक छलका करता, मस्त मुझे पी तू होता,
15+एक दूसरे की हम दोनों आज परस्पर मधुशाला।।३।
16+
17+भावुकता अंगूर लता से खींच कल्पना की हाला,
18+कवि साकी बनकर आया है भरकर कविता का प्याला,
19+कभी न कण-भर खाली होगा लाख पिएँ, दो लाख पिएँ!
20+पाठकगण हैं पीनेवाले, पुस्तक मेरी मधुशाला।।४।
21+
22+मधुर भावनाओं की सुमधुर नित्य बनाता हूँ हाला,
23+भरता हूँ इस मधु से अपने अंतर का प्यासा प्याला,
24+उठा कल्पना के हाथों से स्वयं उसे पी जाता हूँ,
25+अपने ही में हूँ मैं साकी, पीनेवाला, मधुशाला।।५।
26+
27+मदिरालय जाने को घर से चलता है पीनेवला,
28+'किस पथ से जाऊँ?' असमंजस में है वह भोलाभाला,
29+अलग-अलग पथ बतलाते सब पर मैं यह बतलाता हूँ -
30+'राह पकड़ तू एक चला चल, पा जाएगा मधुशाला।'। ६।
31+
32+चलने ही चलने में कितना जीवन, हाय, बिता डाला!
33+'दूर अभी है', पर, कहता है हर पथ बतलानेवाला,
34+हिम्मत है न बढूँ आगे को साहस है न फिरुँ पीछे,
35+किंकर्तव्यविमूढ़ मुझे कर दूर खड़ी है मधुशाला।।७।
36+
37+मुख से तू अविरत कहता जा मधु, मदिरा, मादक हाला,
38+हाथों में अनुभव करता जा एक ललित कल्पित प्याला,
39+ध्यान किए जा मन में सुमधुर सुखकर, सुंदर साकी का,
40+और बढ़ा चल, पथिक, न तुझको दूर लगेगी मधुशाला।।८।
41+
42+मदिरा पीने की अभिलाषा ही बन जाए जब हाला,
43+अधरों की आतुरता में ही जब आभासित हो प्याला,
44+बने ध्यान ही करते-करते जब साकी साकार, सखे,
45+रहे न हाला, प्याला, साकी, तुझे मिलेगी मधुशाला।।९।
46+
47+सुन, कलकल़ , छलछल़ मधुघट से गिरती प्यालों में हाला,
48+सुन, रूनझुन रूनझुन चल वितरण करती मधु साकीबाला,
49+बस आ पहुंचे, दुर नहीं कुछ, चार कदम अब चलना है,
50+चहक रहे, सुन, पीनेवाले, महक रही, ले, मधुशाला।।१०।
51+
52+जलतरंग बजता, जब चुंबन करता प्याले को प्याला,
53+वीणा झंकृत होती, चलती जब रूनझुन साकीबाला,
54+डाँट डपट मधुविक्रेता की ध्वनित पखावज करती है,
55+मधुरव से मधु की मादकता और बढ़ाती मधुशाला।।११।
56+
57+मेंहदी रंजित मृदुल हथेली पर माणिक मधु का प्याला,
58+अंगूरी अवगुंठन डाले स्वर्ण वर्ण साकीबाला,
59+पाग बैंजनी, जामा नीला डाट डटे पीनेवाले,
60+इन्द्रधनुष से होड़ लगाती आज रंगीली मधुशाला।।१२।
61+
62+हाथों में आने से पहले नाज़ दिखाएगा प्याला,
63+अधरों पर आने से पहले अदा दिखाएगी हाला,
64+बहुतेरे इनकार करेगा साकी आने से पहले,
65+पथिक, न घबरा जाना, पहले मान करेगी मधुशाला।।१३।
66+
67+लाल सुरा की धार लपट सी कह न इसे देना ज्वाला,
68+फेनिल मदिरा है, मत इसको कह देना उर का छाला,
69+दर्द नशा है इस मदिरा का विगत स्मृतियाँ साकी हैं,
70+पीड़ा में आनंद जिसे हो, आए मेरी मधुशाला।।१४।
71+
72+जगती की शीतल हाला सी पथिक, नहीं मेरी हाला,
73+जगती के ठंडे प्याले सा पथिक, नहीं मेरा प्याला,
74+ज्वाल सुरा जलते प्याले में दग्ध हृदय की कविता है,
75+जलने से भयभीत न जो हो, आए मेरी मधुशाला।।१५।
76+
77+बहती हाला देखी, देखो लपट उठाती अब हाला,
78+देखो प्याला अब छूते ही होंठ जला देनेवाला,
79+'होंठ नहीं, सब देह दहे, पर पीने को दो बूंद मिले'
80+ऐसे मधु के दीवानों को आज बुलाती मधुशाला।।१६।
81+
82+धर्मग्रन्थ सब जला चुकी है, जिसके अंतर की ज्वाला,
83+मंदिर, मसजिद, गिरिजे, सब को तोड़ चुका जो मतवाला,
84+पंडित, मोमिन, पादिरयों के फंदों को जो काट चुका,
85+कर सकती है आज उसी का स्वागत मेरी मधुशाला।।१७।
86+
87+लालायित अधरों से जिसने, हाय, नहीं चूमी हाला,
88+हर्ष-विकंपित कर से जिसने, हा, न छुआ मधु का प्याला,
89+हाथ पकड़ लज्जित साकी को पास नहीं जिसने खींचा,
90+व्यर्थ सुखा डाली जीवन की उसने मधुमय मधुशाला।।१८।
91+
92+बने पुजारी प्रेमी साकी, गंगाजल पावन हाला,
93+रहे फेरता अविरत गति से मधु के प्यालों की माला'
94+'और लिये जा, और पीये जा', इसी मंत्र का जाप करे'
95+मैं शिव की प्रतिमा बन बैठूं, मंदिर हो यह मधुशाला।।१९।
96+
97+बजी न मंदिर में घड़ियाली, चढ़ी न प्रतिमा पर माला,
98+बैठा अपने भवन मुअज्ज़िन देकर मस्जिद में ताला,
99+लुटे ख़जाने नरपितयों के गिरीं गढ़ों की दीवारें,
100+रहें मुबारक पीनेवाले, खुली रहे यह मधुशाला।।२०।
101+
102+बड़े बड़े परिवार मिटें यों, एक न हो रोनेवाला,
103+हो जाएँ सुनसान महल वे, जहाँ थिरकतीं सुरबाला,
104+राज्य उलट जाएँ, भूपों की भाग्य सुलक्ष्मी सो जाए,
105+जमे रहेंगे पीनेवाले, जगा करेगी मधुशाला।।२१।
106+
107+सब मिट जाएँ, बना रहेगा सुन्दर साकी, यम काला,
108+सूखें सब रस, बने रहेंगे, किन्तु, हलाहल औ' हाला,
109+धूमधाम औ' चहल पहल के स्थान सभी सुनसान बनें,
110+जगा करेगा अविरत मरघट, जगा करेगी मधुशाला।।२२।
111+
112+भुरा सदा कहलायेगा जग में बाँका, मदचंचल प्याला,
113+छैल छबीला, रसिया साकी, अलबेला पीनेवाला,
114+पटे कहाँ से, मधु औ' जग की जोड़ी ठीक नहीं,
115+जग जर्जर प्रतिदन, प्रतिक्षण, पर नित्य नवेली मधुशाला।।२३।
116+
117+बिना पिये जो मधुशाला को बुरा कहे, वह मतवाला,
118+पी लेने पर तो उसके मुह पर पड़ जाएगा ताला,
119+दास द्रोहियों दोनों में है जीत सुरा की, प्याले की,
120+विश्वविजयिनी बनकर जग में आई मेरी मधुशाला।।२४।
121+
122+हरा भरा रहता मदिरालय, जग पर पड़ जाए पाला,
123+वहाँ मुहर्रम का तम छाए, यहाँ होलिका की ज्वाला,
124+स्वर्ग लोक से सीधी उतरी वसुधा पर, दुख क्या जाने,
125+पढ़े मर्सिया दुनिया सारी, ईद मनाती मधुशाला।।२५।
126+
127+एक बरस में, एक बार ही जगती होली की ज्वाला,
128+एक बार ही लगती बाज़ी, जलती दीपों की माला,
129+दुनियावालों, किन्तु, किसी दिन आ मदिरालय में देखो,
130+दिन को होली, रात दिवाली, रोज़ मनाती मधुशाला।।२६।
131+
132+नहीं जानता कौन, मनुज आया बनकर पीनेवाला,
133+कौन अपिरिचत उस साकी से, जिसने दूध पिला पाला,
134+जीवन पाकर मानव पीकर मस्त रहे, इस कारण ही,
135+जग में आकर सबसे पहले पाई उसने मधुशाला।।२७।
136+
137+बनी रहें अंगूर लताएँ जिनसे मिलती है हाला,
138+बनी रहे वह मिटटी जिससे बनता है मधु का प्याला,
139+बनी रहे वह मदिर पिपासा तृप्त न जो होना जाने,
140+बनें रहें ये पीने वाले, बनी रहे यह मधुशाला।।२८।
141+
142+सकुशल समझो मुझको, सकुशल रहती यदि साकीबाला,
143+मंगल और अमंगल समझे मस्ती में क्या मतवाला,
144+मित्रों, मेरी क्षेम न पूछो आकर, पर मधुशाला की,
145+कहा करो 'जय राम' न मिलकर, कहा करो 'जय मधुशाला'।।२९।
146+
147+सूर्य बने मधु का विक्रेता, सिंधु बने घट, जल, हाला,
148+बादल बन-बन आए साकी, भूमि बने मधु का प्याला,
149+झड़ी लगाकर बरसे मदिरा रिमझिम, रिमझिम, रिमझिम कर,
150+बेलि, विटप, तृण बन मैं पीऊँ, वर्षा ऋतु हो मधुशाला।।३०।
151+
152+तारक मणियों से सज्जित नभ बन जाए मधु का प्याला,
153+सीधा करके भर दी जाए उसमें सागरजल हाला,
154+मत्त समीरण साकी बनकर अधरों पर छलका जाए,
155+फैले हों जो सागर तट से विश्व बने यह मधुशाला।।३१।
156+
157+अधरों पर हो कोई भी रस जिहवा पर लगती हाला,
158+भाजन हो कोई हाथों में लगता रक्खा है प्याला,
159+हर सूरत साकी की सूरत में परिवर्तित हो जाती,
160+आँखों के आगे हो कुछ भी, आँखों में है मधुशाला।।३२।
161+
162+पौधे आज बने हैं साकी ले ले फूलों का प्याला,
163+भरी हुई है जिसके अंदर पिरमल-मधु-सुरिभत हाला,
164+माँग माँगकर भ्रमरों के दल रस की मदिरा पीते हैं,
165+झूम झपक मद-झंपित होते, उपवन क्या है मधुशाला!।३३।
166+
167+प्रति रसाल तरू साकी सा है, प्रति मंजरिका है प्याला,
168+छलक रही है जिसके बाहर मादक सौरभ की हाला,
169+छक जिसको मतवाली कोयल कूक रही डाली डाली
170+हर मधुऋतु में अमराई में जग उठती है मधुशाला।।३४।
171+
172+मंद झकोरों के प्यालों में मधुऋतु सौरभ की हाला
173+भर भरकर है अनिल पिलाता बनकर मधु-मद-मतवाला,
174+हरे हरे नव पल्लव, तरूगण, नूतन डालें, वल्लरियाँ,
175+छक छक, झुक झुक झूम रही हैं, मधुबन में है मधुशाला।।३५।
176+
177+साकी बन आती है प्रातः जब अरुणा ऊषा बाला,
178+तारक-मणि-मंडित चादर दे मोल धरा लेती हाला,
179+अगणित कर-किरणों से जिसको पी, खग पागल हो गाते,
180+प्रति प्रभात में पूर्ण प्रकृति में मुखिरत होती मधुशाला।।३६।
181+
182+उतर नशा जब उसका जाता, आती है संध्या बाला,
183+बड़ी पुरानी, बड़ी नशीली नित्य ढला जाती हाला,
184+जीवन के संताप शोक सब इसको पीकर मिट जाते
185+सुरा-सुप्त होते मद-लोभी जागृत रहती मधुशाला।।३७।
186+
187+अंधकार है मधुविक्रेता, सुन्दर साकी शशिबाला
188+किरण किरण में जो छलकाती जाम जुम्हाई का हाला,
189+पीकर जिसको चेतनता खो लेने लगते हैं झपकी
190+तारकदल से पीनेवाले, रात नहीं है, मधुशाला।।३८।
191+
192+किसी ओर मैं आँखें फेरूँ, दिखलाई देती हाला
193+किसी ओर मैं आँखें फेरूँ, दिखलाई देता प्याला,
194+किसी ओर मैं देखूं, मुझको दिखलाई देता साकी
195+किसी ओर देखूं, दिखलाई पड़ती मुझको मधुशाला।।३९।
196+
197+साकी बन मुरली आई साथ लिए कर में प्याला,
198+जिनमें वह छलकाती लाई अधर-सुधा-रस की हाला,
199+योगिराज कर संगत उसकी नटवर नागर कहलाए,
200+देखो कैसों-कैसों को है नाच नचाती मधुशाला।।४०।
201+
202+वादक बन मधु का विक्रेता लाया सुर-सुमधुर-हाला,
203+रागिनियाँ बन साकी आई भरकर तारों का प्याला,
204+विक्रेता के संकेतों पर दौड़ लयों, आलापों में,
205+पान कराती श्रोतागण को, झंकृत वीणा मधुशाला।।४१।
206+
207+चित्रकार बन साकी आता लेकर तूली का प्याला,
208+जिसमें भरकर पान कराता वह बहु रस-रंगी हाला,
209+मन के चित्र जिसे पी-पीकर रंग-बिरंगे हो जाते,
210+चित्रपटी पर नाच रही है एक मनोहर मधुशाला।।४२।
211+
212+घन श्यामल अंगूर लता से खिंच खिंच यह आती हाला,
213+अरूण-कमल-कोमल कलियों की प्याली, फूलों का प्याला,
214+लोल हिलोरें साकी बन बन माणिक मधु से भर जातीं,
215+हंस मत्त होते पी पीकर मानसरोवर मधुशाला।।४३।
216+
217+हिम श्रेणी अंगूर लता-सी फैली, हिम जल है हाला,
218+चंचल नदियाँ साकी बनकर, भरकर लहरों का प्याला,
219+कोमल कूर-करों में अपने छलकाती निशिदिन चलतीं,
220+पीकर खेत खड़े लहराते, भारत पावन मधुशाला।।४४।
221+
222+धीर सुतों के हृदय रक्त की आज बना रक्तिम हाला,
223+वीर सुतों के वर शीशों का हाथों में लेकर प्याला,
224+अति उदार दानी साकी है आज बनी भारतमाता,
225+स्वतंत्रता है तृषित कालिका बलिवेदी है मधुशाला।।४५।
226+
227+दुतकारा मस्जिद ने मुझको कहकर है पीनेवाला,
228+ठुकराया ठाकुरद्वारे ने देख हथेली पर प्याला,
229+कहाँ ठिकाना मिलता जग में भला अभागे काफिर को?
230+शरणस्थल बनकर न मुझे यदि अपना लेती मधुशाला।।४६।
231+
232+पथिक बना मैं घूम रहा हूँ, सभी जगह मिलती हाला,
233+सभी जगह मिल जाता साकी, सभी जगह मिलता प्याला,
234+मुझे ठहरने का, हे मित्रों, कष्ट नहीं कुछ भी होता,
235+मिले न मंदिर, मिले न मस्जिद, मिल जाती है मधुशाला।।४७।
236+
237+सजें न मस्जिद और नमाज़ी कहता है अल्लाताला,
238+सजधजकर, पर, साकी आता, बन ठनकर, पीनेवाला,
239+शेख, कहाँ तुलना हो सकती मस्जिद की मदिरालय से
240+चिर विधवा है मस्जिद तेरी, सदा सुहागिन मधुशाला।।४८।
241+
242+बजी नफ़ीरी और नमाज़ी भूल गया अल्लाताला,
243+गाज गिरी, पर ध्यान सुरा में मग्न रहा पीनेवाला,
244+शेख, बुरा मत मानो इसको, साफ़ कहूँ तो मस्जिद को
245+अभी युगों तक सिखलाएगी ध्यान लगाना मधुशाला!।४९।
246+
247+मुसलमान औ' हिन्दू है दो, एक, मगर, उनका प्याला,
248+एक, मगर, उनका मदिरालय, एक, मगर, उनकी हाला,
249+दोनों रहते एक न जब तक मस्जिद मन्दिर में जाते,
250+बैर बढ़ाते मस्जिद मन्दिर मेल कराती मधुशाला!।५०।
251+
252+कोई भी हो शेख नमाज़ी या पंडित जपता माला,
253+बैर भाव चाहे जितना हो मदिरा से रखनेवाला,
254+एक बार बस मधुशाला के आगे से होकर निकले,
255+देखूँ कैसे थाम न लेती दामन उसका मधुशाला!।५१।
256+
257+और रसों में स्वाद तभी तक, दूर जभी तक है हाला,
258+इतरा लें सब पात्र न जब तक, आगे आता है प्याला,
259+कर लें पूजा शेख, पुजारी तब तक मस्जिद मन्दिर में
260+घूँघट का पट खोल न जब तक झाँक रही है मधुशाला।।५२।
261+
262+आज करे परहेज़ जगत, पर, कल पीनी होगी हाला,
263+आज करे इन्कार जगत पर कल पीना होगा प्याला,
264+होने दो पैदा मद का महमूद जगत में कोई, फिर
265+जहाँ अभी हैं मन्दिर मस्जिद वहाँ बनेगी मधुशाला।।५३।
266+
267+यज्ञ अग्नि सी धधक रही है मधु की भटठी की ज्वाला,
268+ऋषि सा ध्यान लगा बैठा है हर मदिरा पीने वाला,
269+मुनि कन्याओं सी मधुघट ले फिरतीं साकीबालाएँ,
270+किसी तपोवन से क्या कम है मेरी पावन मधुशाला।।५४।
271+
272+सोम सुरा पुरखे पीते थे, हम कहते उसको हाला,
273+द्रोणकलश जिसको कहते थे, आज वही मधुघट आला,
274+वेदिवहित यह रस्म न छोड़ो वेदों के ठेकेदारों,
275+युग युग से है पुजती आई नई नहीं है मधुशाला।।५५।
276+
277+वही वारूणी जो थी सागर मथकर निकली अब हाला,
278+रंभा की संतान जगत में कहलाती 'साकीबाला',
279+देव अदेव जिसे ले आए, संत महंत मिटा देंगे!
280+किसमें कितना दम खम, इसको खूब समझती मधुशाला।।५६।
281+
282+कभी न सुन पड़ता, 'इसने, हा, छू दी मेरी हाला',
283+कभी न कोई कहता, 'उसने जूठा कर डाला प्याला',
284+सभी जाति के लोग यहाँ पर साथ बैठकर पीते हैं,
285+सौ सुधारकों का करती है काम अकेले मधुशाला।।५७।
286+
287+श्रम, संकट, संताप, सभी तुम भूला करते पी हाला,
288+सबक बड़ा तुम सीख चुके यदि सीखा रहना मतवाला,
289+व्यर्थ बने जाते हो हिरजन, तुम तो मधुजन ही अच्छे,
290+ठुकराते हैं मंदिरवाले, पलक बिछाती मधुशाला।।५८।
291+
292+एक तरह से सबका स्वागत करती है साकीबाला,
293+अज्ञ विज्ञ में है क्या अंतर हो जाने पर मतवाला,
294+रंक राव में भेद हुआ है कभी नहीं मदिरालय में,
295+साम्यवाद की प्रथम प्रचारक है यह मेरी मधुशाला।।५९।
296+
297+बार बार मैंने आगे बढ़ आज नहीं माँगी हाला,
298+समझ न लेना इससे मुझको साधारण पीने वाला,
299+हो तो लेने दो ऐ साकी दूर प्रथम संकोचों को,
300+मेरे ही स्वर से फिर सारी गूँज उठेगी मधुशाला।।६०।
301+
302+कल? कल पर विश्वास किया कब करता है पीनेवाला
303+हो सकते कल कर जड़ जिनसे फिर फिर आज उठा प्याला,
304+आज हाथ में था, वह खोया, कल का कौन भरोसा है,
305+कल की हो न मुझे मधुशाला काल कुटिल की मधुशाला।।६१।
306+
307+आज मिला अवसर, तब फिर क्यों मैं न छकूँ जी-भर हाला
308+आज मिला मौका, तब फिर क्यों ढाल न लूँ जी-भर प्याला,
309+छेड़छाड़ अपने साकी से आज न क्यों जी-भर कर लूँ,
310+एक बार ही तो मिलनी है जीवन की यह मधुशाला।।६२।
311+
312+आज सजीव बना लो, प्रेयसी, अपने अधरों का प्याला,
313+भर लो, भर लो, भर लो इसमें, यौवन मधुरस की हाला,
314+और लगा मेरे होठों से भूल हटाना तुम जाओ,
315+अथक बनू मैं पीनेवाला, खुले प्रणय की मधुशाला।।६३।
316+
317+सुमुखी तुम्हारा, सुन्दर मुख ही, मुझको कन्चन का प्याला
318+छलक रही है जिसमें माणिक रूप मधुर मादक हाला,
319+मैं ही साकी बनता, मैं ही पीने वाला बनता हूँ
320+जहाँ कहीं मिल बैठे हम तुम़ वहीं गयी हो मधुशाला।।६४।
321+
322+दो दिन ही मधु मुझे पिलाकर ऊब उठी साकीबाला,
323+भरकर अब खिसका देती है वह मेरे आगे प्याला,
324+नाज़, अदा, अंदाजों से अब, हाय पिलाना दूर हुआ,
325+अब तो कर देती है केवल फ़र्ज़ - अदाई मधुशाला।।६५।
326+
327+छोटे-से जीवन में कितना प्यार करुँ, पी लूँ हाला,
328+आने के ही साथ जगत में कहलाया 'जानेवाला',
329+स्वागत के ही साथ विदा की होती देखी तैयारी,
330+बंद लगी होने खुलते ही मेरी जीवन-मधुशाला।।६६।
331+
332+क्या पीना, निर्द्वन्द न जब तक ढाला प्यालों पर प्याला,
333+क्या जीना, निश्चिंत न जब तक साथ रहे साकीबाला,
334+खोने का भय, हाय, लगा है पाने के सुख के पीछे,
335+मिलने का आनंद न देती मिलकर के भी मधुशाला।।६७।
336+
337+मुझे पिलाने को लाए हो इतनी थोड़ी-सी हाला!
338+मुझे दिखाने को लाए हो एक यही छिछला प्याला!
339+इतनी पी जीने से अच्छा सागर की ले प्यास मरुँ,
340+सिंधु-तृषा दी किसने रचकर बिंदु-बराबर मधुशाला।।६८।
341+
342+क्या कहता है, रह न गई अब तेरे भाजन में हाला,
343+क्या कहता है, अब न चलेगी मादक प्यालों की माला,
344+थोड़ी पीकर प्यास बढ़ी तो शेष नहीं कुछ पीने को,
345+प्यास बुझाने को बुलवाकर प्यास बढ़ाती मधुशाला।।६९।
346+
347+लिखी भाग्य में जितनी बस उतनी ही पाएगा हाला,
348+लिखा भाग्य में जैसा बस वैसा ही पाएगा प्याला,
349+लाख पटक तू हाथ पाँव, पर इससे कब कुछ होने का,
350+लिखी भाग्य में जो तेरे बस वही मिलेगी मधुशाला।।७०।
351+
352+कर ले, कर ले कंजूसी तू मुझको देने में हाला,
353+दे ले, दे ले तू मुझको बस यह टूटा फूटा प्याला,
354+मैं तो सब्र इसी पर करता, तू पीछे पछताएगी,
355+जब न रहूँगा मैं, तब मेरी याद करेगी मधुशाला।।७१।
356+
357+ध्यान मान का, अपमानों का छोड़ दिया जब पी हाला,
358+गौरव भूला, आया कर में जब से मिट्टी का प्याला,
359+साकी की अंदाज़ भरी झिड़की में क्या अपमान धरा,
360+दुनिया भर की ठोकर खाकर पाई मैंने मधुशाला।।७२।
361+
362+क्षीण, क्षुद्र, क्षणभंगुर, दुर्बल मानव मिटटी का प्याला,
363+भरी हुई है जिसके अंदर कटु-मधु जीवन की हाला,
364+मृत्यु बनी है निर्दय साकी अपने शत-शत कर फैला,
365+काल प्रबल है पीनेवाला, संसृति है यह मधुशाला।।७३।
366+
367+प्याले सा गढ़ हमें किसी ने भर दी जीवन की हाला,
368+नशा न भाया, ढाला हमने ले लेकर मधु का प्याला,
369+जब जीवन का दर्द उभरता उसे दबाते प्याले से,
370+जगती के पहले साकी से जूझ रही है मधुशाला।।७४।
371+
372+अपने अंगूरों से तन में हमने भर ली है हाला,
373+क्या कहते हो, शेख, नरक में हमें तपाएगी ज्वाला,
374+तब तो मदिरा खूब खिंचेगी और पिएगा भी कोई,
375+हमें नमक की ज्वाला में भी दीख पड़ेगी मधुशाला।।७५।
376+
377+यम आएगा लेने जब, तब खूब चलूँगा पी हाला,
378+पीड़ा, संकट, कष्ट नरक के क्या समझेगा मतवाला,
379+क्रूर, कठोर, कुटिल, कुविचारी, अन्यायी यमराजों के
380+डंडों की जब मार पड़ेगी, आड़ करेगी मधुशाला।।७६।
381+
382+यदि इन अधरों से दो बातें प्रेम भरी करती हाला,
383+यदि इन खाली हाथों का जी पल भर बहलाता प्याला,
384+हानि बता, जग, तेरी क्या है, व्यर्थ मुझे बदनाम न कर,
385+मेरे टूटे दिल का है बस एक खिलौना मधुशाला।।७७।
386+
387+याद न आए दुखमय जीवन इससे पी लेता हाला,
388+जग चिंताओं से रहने को मुक्त, उठा लेता प्याला,
389+शौक, साध के और स्वाद के हेतु पिया जग करता है,
390+पर मै वह रोगी हूँ जिसकी एक दवा है मधुशाला।।७८।
391+
392+गिरती जाती है दिन प्रतिदन प्रणयनी प्राणों की हाला
393+भग्न हुआ जाता दिन प्रतिदन सुभगे मेरा तन प्याला,
394+रूठ रहा है मुझसे रूपसी, दिन दिन यौवन का साकी
395+सूख रही है दिन दिन सुन्दरी, मेरी जीवन मधुशाला।।७९।
396+
397+यम आयेगा साकी बनकर साथ लिए काली हाला,
398+पी न होश में फिर आएगा सुरा-विसुध यह मतवाला,
399+यह अंतिम बेहोशी, अंतिम साकी, अंतिम प्याला है,
400+पथिक, प्यार से पीना इसको फिर न मिलेगी मधुशाला।८०।
401+
402+ढलक रही है तन के घट से, संगिनी जब जीवन हाला
403+पत्र गरल का ले जब अंतिम साकी है आनेवाला,
404+हाथ स्पर्श भूले प्याले का, स्वाद सुरा जीव्हा भूले
405+कानो में तुम कहती रहना, मधु का प्याला मधुशाला।।८१।
406+
407+मेरे अधरों पर हो अंतिम वस्तु न तुलसीदल प्याला
408+मेरी जीव्हा पर हो अंतिम वस्तु न गंगाजल हाला,
409+मेरे शव के पीछे चलने वालों याद इसे रखना
410+राम नाम है सत्य न कहना, कहना सच्ची मधुशाला।।८२।
411+
412+मेरे शव पर वह रोये, हो जिसके आंसू में हाला
413+आह भरे वो, जो हो सुरिभत मदिरा पी कर मतवाला,
414+दे मुझको वो कान्धा जिनके पग मद डगमग होते हों
415+और जलूं उस ठौर जहां पर कभी रही हो मधुशाला।।८३।
416+
417+और चिता पर जाये उंढेला पात्र न घ्रित का, पर प्याला
418+कंठ बंधे अंगूर लता में मध्य न जल हो, पर हाला,
419+प्राण प्रिये यदि श्राध करो तुम मेरा तो ऐसे करना
420+पीने वालों को बुलवा कऱ खुलवा देना मधुशाला।।८४।
421+
422+नाम अगर कोई पूछे तो, कहना बस पीनेवाला
423+काम ढालना, और ढालना सबको मदिरा का प्याला,
424+जाति प्रिये, पूछे यदि कोई कह देना दीवानों की
425+धर्म बताना प्यालों की ले माला जपना मधुशाला।।८५।
426+
427+ज्ञात हुआ यम आने को है ले अपनी काली हाला,
428+पंडित अपनी पोथी भूला, साधू भूल गया माला,
429+और पुजारी भूला पूजा, ज्ञान सभी ज्ञानी भूला,
430+किन्तु न भूला मरकर के भी पीनेवाला मधुशाला।।८६।
431+
432+यम ले चलता है मुझको तो, चलने दे लेकर हाला,
433+चलने दे साकी को मेरे साथ लिए कर में प्याला,
434+स्वर्ग, नरक या जहाँ कहीं भी तेरा जी हो लेकर चल,
435+ठौर सभी हैं एक तरह के साथ रहे यदि मधुशाला।।८७।
436+
437+पाप अगर पीना, समदोषी तो तीनों - साकी बाला,
438+नित्य पिलानेवाला प्याला, पी जानेवाली हाला,
439+साथ इन्हें भी ले चल मेरे न्याय यही बतलाता है,
440+कैद जहाँ मैं हूँ, की जाए कैद वहीं पर मधुशाला।।८८।
441+
442+शांत सकी हो अब तक, साकी, पीकर किस उर की ज्वाला,
443+'और, और' की रटन लगाता जाता हर पीनेवाला,
444+कितनी इच्छाएँ हर जानेवाला छोड़ यहाँ जाता!
445+कितने अरमानों की बनकर कब्र खड़ी है मधुशाला।।८९।
446+
447+जो हाला मैं चाह रहा था, वह न मिली मुझको हाला,
448+जो प्याला मैं माँग रहा था, वह न मिला मुझको प्याला,
449+जिस साकी के पीछे मैं था दीवाना, न मिला साकी,
450+जिसके पीछे था मैं पागल, हा न मिली वह मधुशाला!।९०।
451+
452+देख रहा हूँ अपने आगे कब से माणिक-सी हाला,
453+देख रहा हूँ अपने आगे कब से कंचन का प्याला,
454+'बस अब पाया!'- कह-कह कब से दौड़ रहा इसके पीछे,
455+किंतु रही है दूर क्षितिज-सी मुझसे मेरी मधुशाला।।९१।
456+
457+कभी निराशा का तम घिरता, छिप जाता मधु का प्याला,
458+छिप जाती मदिरा की आभा, छिप जाती साकीबाला,
459+कभी उजाला आशा करके प्याला फिर चमका जाती,
460+आँख मिचौली खेल रही है मुझसे मेरी मधुशाला।।९२।
461+
462+'आ आगे' कहकर कर पीछे कर लेती साकीबाला,
463+होंठ लगाने को कहकर हर बार हटा लेती प्याला,
464+नहीं मुझे मालूम कहाँ तक यह मुझको ले जाएगी,
465+बढ़ा बढ़ाकर मुझको आगे, पीछे हटती मधुशाला।।९३।
466+
467+हाथों में आने-आने में, हाय, फिसल जाता प्याला,
468+अधरों पर आने-आने में हाय, ढुलक जाती हाला,
469+दुनियावालो, आकर मेरी किस्मत की ख़ूबी देखो,
470+रह-रह जाती है बस मुझको मिलते-मिलते मधुशाला।।९४।
471+
472+प्राप्य नही है तो, हो जाती लुप्त नहीं फिर क्यों हाला,
473+प्राप्य नही है तो, हो जाता लुप्त नहीं फिर क्यों प्याला,
474+दूर न इतनी हिम्मत हारुँ, पास न इतनी पा जाऊँ,
475+व्यर्थ मुझे दौड़ाती मरु में मृगजल बनकर मधुशाला।।९५।
476+
477+मिले न, पर, ललचा ललचा क्यों आकुल करती है हाला,
478+मिले न, पर, तरसा तरसाकर क्यों तड़पाता है प्याला,
479+हाय, नियति की विषम लेखनी मस्तक पर यह खोद गई
480+'दूर रहेगी मधु की धारा, पास रहेगी मधुशाला!'।९६।
481+
482+मदिरालय में कब से बैठा, पी न सका अब तक हाला,
483+यत्न सहित भरता हूँ, कोई किंतु उलट देता प्याला,
484+मानव-बल के आगे निर्बल भाग्य, सुना विद्यालय में,
485+'भाग्य प्रबल, मानव निर्बल' का पाठ पढ़ाती मधुशाला।।९७।
486+
487+किस्मत में था खाली खप्पर, खोज रहा था मैं प्याला,
488+ढूँढ़ रहा था मैं मृगनयनी, किस्मत में थी मृगछाला,
489+किसने अपना भाग्य समझने में मुझसा धोखा खाया,
490+किस्मत में था अवघट मरघट, ढूँढ़ रहा था मधुशाला।।९८।
491+
492+उस प्याले से प्यार मुझे जो दूर हथेली से प्याला,
493+उस हाला से चाव मुझे जो दूर अधर से है हाला,
494+प्यार नहीं पा जाने में है, पाने के अरमानों में!
495+पा जाता तब, हाय, न इतनी प्यारी लगती मधुशाला।।९९।
496+
497+साकी के पास है तनिक सी श्री, सुख, संपित की हाला,
498+सब जग है पीने को आतुर ले ले किस्मत का प्याला,
499+रेल ठेल कुछ आगे बढ़ते, बहुतेरे दबकर मरते,
500+जीवन का संघर्ष नहीं है, भीड़ भरी है मधुशाला।।१००।
501+
502+साकी, जब है पास तुम्हारे इतनी थोड़ी सी हाला,
503+क्यों पीने की अभिलषा से, करते सबको मतवाला,
504+हम पिस पिसकर मरते हैं, तुम छिप छिपकर मुसकाते हो,
505+हाय, हमारी पीड़ा से है क्रीड़ा करती मधुशाला।।१०१।
506+
507+साकी, मर खपकर यदि कोई आगे कर पाया प्याला,
508+पी पाया केवल दो बूंदों से न अधिक तेरी हाला,
509+जीवन भर का, हाय, पिरश्रम लूट लिया दो बूंदों ने,
510+भोले मानव को ठगने के हेतु बनी है मधुशाला।।१०२।
511+
512+जिसने मुझको प्यासा रक्खा बनी रहे वह भी हाला,
513+जिसने जीवन भर दौड़ाया बना रहे वह भी प्याला,
514+मतवालों की जिह्वा से हैं कभी निकलते शाप नहीं,
515+दुखी बनाया जिसने मुझको सुखी रहे वह मधुशाला!।१०३।
516+
517+नहीं चाहता, आगे बढ़कर छीनूँ औरों की हाला,
518+नहीं चाहता, धक्के देकर, छीनूँ औरों का प्याला,
519+साकी, मेरी ओर न देखो मुझको तनिक मलाल नहीं,
520+इतना ही क्या कम आँखों से देख रहा हूँ मधुशाला।।१०४।
521+
522+मद, मदिरा, मधु, हाला सुन-सुन कर ही जब हूँ मतवाला,
523+क्या गति होगी अधरों के जब नीचे आएगा प्याला,
524+साकी, मेरे पास न आना मैं पागल हो जाऊँगा,
525+प्यासा ही मैं मस्त, मुबारक हो तुमको ही मधुशाला।।१०५।
526+
527+क्या मुझको आवश्यकता है साकी से माँगूँ हाला,
528+क्या मुझको आवश्यकता है साकी से चाहूँ प्याला,
529+पीकर मदिरा मस्त हुआ तो प्यार किया क्या मदिरा से!
530+मैं तो पागल हो उठता हूँ सुन लेता यदि मधुशाला।।१०६।
531+
532+देने को जो मुझे कहा था दे न सकी मुझको हाला,
533+देने को जो मुझे कहा था दे न सका मुझको प्याला,
534+समझ मनुज की दुर्बलता मैं कहा नहीं कुछ भी करता,
535+किन्तु स्वयं ही देख मुझे अब शरमा जाती मधुशाला।।१०७।
536+
537+एक समय संतुष्ट बहुत था पा मैं थोड़ी-सी हाला,
538+भोला-सा था मेरा साकी, छोटा-सा मेरा प्याला,
539+छोटे-से इस जग की मेरे स्वर्ग बलाएँ लेता था,
540+विस्तृत जग में, हाय, गई खो मेरी नन्ही मधुशाला!।१०८।
541+
542+बहुतेरे मदिरालय देखे, बहुतेरी देखी हाला,
543+भाँति भाँति का आया मेरे हाथों में मधु का प्याला,
544+एक एक से बढ़कर, सुन्दर साकी ने सत्कार किया,
545+जँची न आँखों में, पर, कोई पहली जैसी मधुशाला।।१०९।
546+
547+एक समय छलका करती थी मेरे अधरों पर हाला,
548+एक समय झूमा करता था मेरे हाथों पर प्याला,
549+एक समय पीनेवाले, साकी आलिंगन करते थे,
550+आज बनी हूँ निर्जन मरघट, एक समय थी मधुशाला।।११०।
551+
552+जला हृदय की भट्टी खींची मैंने आँसू की हाला,
553+छलछल छलका करता इससे पल पल पलकों का प्याला,
554+आँखें आज बनी हैं साकी, गाल गुलाबी पी होते,
555+कहो न विरही मुझको, मैं हूँ चलती फिरती मधुशाला!।१११।
556+
557+कितनी जल्दी रंग बदलती है अपना चंचल हाला,
558+कितनी जल्दी घिसने लगता हाथों में आकर प्याला,
559+कितनी जल्दी साकी का आकर्षण घटने लगता है,
560+प्रात नहीं थी वैसी, जैसी रात लगी थी मधुशाला।।११२।
561+
562+बूँद बूँद के हेतु कभी तुझको तरसाएगी हाला,
563+कभी हाथ से छिन जाएगा तेरा यह मादक प्याला,
564+पीनेवाले, साकी की मीठी बातों में मत आना,
565+मेरे भी गुण यों ही गाती एक दिवस थी मधुशाला।।११३।
566+
567+छोड़ा मैंने पथ मतों को तब कहलाया मतवाला,
568+चली सुरा मेरा पग धोने तोड़ा जब मैंने प्याला,
569+अब मानी मधुशाला मेरे पीछे पीछे फिरती है,
570+क्या कारण? अब छोड़ दिया है मैंने जाना मधुशाला।।११४।
571+
572+यह न समझना, पिया हलाहल मैंने, जब न मिली हाला,
573+तब मैंने खप्पर अपनाया ले सकता था जब प्याला,
574+जले हृदय को और जलाना सूझा, मैंने मरघट को
575+अपनाया जब इन चरणों में लोट रही थी मधुशाला।।११५।
576+
577+कितनी आई और गई पी इस मदिरालय में हाला,
578+टूट चुकी अब तक कितने ही मादक प्यालों की माला,
579+कितने साकी अपना अपना काम खतम कर दूर गए,
580+कितने पीनेवाले आए, किन्तु वही है मधुशाला।।११६।
581+
582+कितने होठों को रक्खेगी याद भला मादक हाला,
583+कितने हाथों को रक्खेगा याद भला पागल प्याला,
584+कितनी शक्लों को रक्खेगा याद भला भोला साकी,
585+कितने पीनेवालों में है एक अकेली मधुशाला।।११७।
586+
587+दर दर घूम रहा था जब मैं चिल्लाता - हाला! हाला!
588+मुझे न मिलता था मदिरालय, मुझे न मिलता था प्याला,
589+मिलन हुआ, पर नहीं मिलनसुख लिखा हुआ था किस्मत में,
590+मैं अब जमकर बैठ गया हूँ, घूम रही है मधुशाला।।११८।
591+
592+मैं मदिरालय के अंदर हूँ, मेरे हाथों में प्याला,
593+प्याले में मदिरालय बिंबित करनेवाली है हाला,
594+इस उधेड़-बुन में ही मेरा सारा जीवन बीत गया -
595+मैं मधुशाला के अंदर या मेरे अंदर मधुशाला!।११९।
596+
597+किसे नहीं पीने से नाता, किसे नहीं भाता प्याला,
598+इस जगती के मदिरालय में तरह-तरह की है हाला,
599+अपनी-अपनी इच्छा के अनुसार सभी पी मदमाते,
600+एक सभी का मादक साकी, एक सभी की मधुशाला।।१२०।
601+
602+वह हाला, कर शांत सके जो मेरे अंतर की ज्वाला,
603+जिसमें मैं बिंबित-प्रतिबिंबित प्रतिपल, वह मेरा प्याला,
604+मधुशाला वह नहीं जहाँ पर मदिरा बेची जाती है,
605+भेंट जहाँ मस्ती की मिलती मेरी तो वह मधुशाला।।१२१।
606+
607+मतवालापन हाला से ले मैंने तज दी है हाला,
608+पागलपन लेकर प्याले से, मैंने त्याग दिया प्याला,
609+साकी से मिल, साकी में मिल अपनापन मैं भूल गया,
610+मिल मधुशाला की मधुता में भूल गया मैं मधुशाला।।१२२।
611+
612+मदिरालय के द्वार ठोंकता किस्मत का छूंछा प्याला,
613+गहरी, ठंडी सांसें भर भर कहता था हर मतवाला,
614+कितनी थोड़ी सी यौवन की हाला, हा, मैं पी पाया!
615+बंद हो गई कितनी जल्दी मेरी जीवन मधुशाला।।१२३।
616+
617+कहाँ गया वह स्वर्गिक साकी, कहाँ गयी सुरिभत हाला,
618+कहाँ गया स्वपिनल मदिरालय, कहाँ गया स्वर्णिम प्याला!
619+पीनेवालों ने मदिरा का मूल्य, हाय, कब पहचाना?
620+फूट चुका जब मधु का प्याला, टूट चुकी जब मधुशाला।।१२४।
621+
622+अपने युग में सबको अनुपम ज्ञात हुई अपनी हाला,
623+अपने युग में सबको अदभुत ज्ञात हुआ अपना प्याला,
624+फिर भी वृद्धों से जब पूछा एक यही उत्तर पाया -
625+अब न रहे वे पीनेवाले, अब न रही वह मधुशाला!।१२५।
626+
627+'मय' को करके शुद्ध दिया अब नाम गया उसको, 'हाला'
628+'मीना' को 'मधुपात्र' दिया 'सागर' को नाम गया 'प्याला',
629+क्यों न मौलवी चौंकें, बिचकें तिलक-त्रिपुंडी पंडित जी
630+'मय-महिफल' अब अपना ली है मैंने करके 'मधुशाला'।।१२६।
631+
632+कितने मर्म जता जाती है बार-बार आकर हाला,
633+कितने भेद बता जाता है बार-बार आकर प्याला,
634+कितने अर्थों को संकेतों से बतला जाता साकी,
635+फिर भी पीनेवालों को है एक पहेली मधुशाला।।१२७।
636+
637+जितनी दिल की गहराई हो उतना गहरा है प्याला,
638+जितनी मन की मादकता हो उतनी मादक है हाला,
639+जितनी उर की भावुकता हो उतना सुन्दर साकी है,
640+जितना ही जो रिसक, उसे है उतनी रसमय मधुशाला।।१२८।
641+
642+जिन अधरों को छुए, बना दे मस्त उन्हें मेरी हाला,
643+जिस कर को छू दे, कर दे विक्षिप्त उसे मेरा प्याला,
644+आँख चार हों जिसकी मेरे साकी से दीवाना हो,
645+पागल बनकर नाचे वह जो आए मेरी मधुशाला।।१२९।
646+
647+हर जिव्हा पर देखी जाएगी मेरी मादक हाला
648+हर कर में देखा जाएगा मेरे साकी का प्याला
649+हर घर में चर्चा अब होगी मेरे मधुविक्रेता की
650+हर आंगन में गमक उठेगी मेरी सुरिभत मधुशाला।।१३०।
651+
652+मेरी हाला में सबने पाई अपनी-अपनी हाला,
653+मेरे प्याले में सबने पाया अपना-अपना प्याला,
654+मेरे साकी में सबने अपना प्यारा साकी देखा,
655+जिसकी जैसी रुचि थी उसने वैसी देखी मधुशाला।।१३१।
656+
657+यह मदिरालय के आँसू हैं, नहीं-नहीं मादक हाला,
658+यह मदिरालय की आँखें हैं, नहीं-नहीं मधु का प्याला,
659+किसी समय की सुखदस्मृति है साकी बनकर नाच रही,
660+नहीं-नहीं कवि का हृदयांगण, यह विरहाकुल मधुशाला।।१३२।
661+
662+कुचल हसरतें कितनी अपनी, हाय, बना पाया हाला,
663+कितने अरमानों को करके ख़ाक बना पाया प्याला!
664+पी पीनेवाले चल देंगे, हाय, न कोई जानेगा,
665+कितने मन के महल ढहे तब खड़ी हुई यह मधुशाला!।१३३।
666+
667+विश्व तुम्हारे विषमय जीवन में ला पाएगी हाला
668+यदि थोड़ी-सी भी यह मेरी मदमाती साकीबाला,
669+शून्य तुम्हारी घड़ियाँ कुछ भी यदि यह गुंजित कर पाई,
670+जन्म सफल समझेगी जग में अपना मेरी मधुशाला।।१३४।
671+
672+बड़े-बड़े नाज़ों से मैंने पाली है साकीबाला,
673+कलित कल्पना का ही इसने सदा उठाया है प्याला,
674+मान-दुलारों से ही रखना इस मेरी सुकुमारी को,
675+विश्व, तुम्हारे हाथों में अब सौंप रहा हूँ मधुशाला।।१३५।
676+
677+पिरिशष्ट से
678+
679+स्वयं नहीं पीता, औरों को, किन्तु पिला देता हाला,
680+स्वयं नहीं छूता, औरों को, पर पकड़ा देता प्याला,
681+पर उपदेश कुशल बहुतेरों से मैंने यह सीखा है,
682+स्वयं नहीं जाता, औरों को पहुंचा देता मधुशाला।
683+
684+मैं कायस्थ कुलोदभव मेरे पुरखों ने इतना ढ़ाला,
685+मेरे तन के लोहू में है पचहत्तर प्रतिशत हाला,
686+पुश्तैनी अधिकार मुझे है मदिरालय के आँगन पर,
687+मेरे दादों परदादों के हाथ बिकी थी मधुशाला।
688+
689+बहुतों के सिर चार दिनों तक चढ़कर उतर गई हाला,
690+बहुतों के हाथों में दो दिन छलक झलक रीता प्याला,
691+पर बढ़ती तासीर सुरा की साथ समय के, इससे ही
692+और पुरानी होकर मेरी और नशीली मधुशाला।
693+
694+पितृ पक्ष में पुत्र उठाना अर्ध्य न कर में, पर प्याला
695+बैठ कहीं पर जाना, गंगा सागर में भरकर हाला
696+किसी जगह की मिटटी भीगे, तृप्ति मुझे मिल जाएगी
697+तर्पण अर्पण करना मुझको, पढ़ पढ़ कर के मधुशाला।
698+
699+- बच्चन
benchmark/Streamly/Benchmark/Unicode/data/English.txtnew file+58
@@ -0,0 +1,58 @@
1+Origins[edit]
2+The standard Italian language has a poetic and literary origin in the twelfth century, and the modern standard of the language was largely shaped by relatively recent events. However, Italian as a language used in the Italian Peninsula has a longer history. In fact the earliest surviving texts that can definitely be called Italian (or more accurately, vernacular, as distinct from its predecessor Vulgar Latin) are legal formulae known as the Placiti Cassinesi from the Province of Benevento that date from 960–963, although the Veronese Riddle contains a late form of Vulgar Latin that can be seen as a very early Italian dialect.[13] What would come to be thought of as Italian was first formalized in the early fourteenth century through the works of Tuscan writer Dante Alighieri, written in his native Florentine. Dante's epic poems, known collectively as the Commedia, to which another Tuscan poet Giovanni Boccaccio later affixed the title Divina, were read throughout Italy and his written dialect became the "canonical standard" that all educated Italians could understand. Dante is still credited with standardizing the Italian language, and thus the dialect of Florence became the basis for what would become the official language of Italy.
3+
4+Italian often was an official language of the various Italian states predating unification, slowly usurping Latin, even when ruled by foreign powers (such as the Spanish in the Kingdom of Naples, or the Austrians in the Kingdom of Lombardy-Venetia), even though the masses spoke primarily vernacular languages and dialects. Italian was also one of the many recognised languages in the Austro-Hungarian Empire.
5+
6+Italy has always had a distinctive dialect for each city, because the cities, until recently, were thought of as city-states. Those dialects now have considerable variety. As Tuscan-derived Italian came to be used throughout Italy, features of local speech were naturally adopted, producing various versions of Regional Italian. The most characteristic differences, for instance, between Roman Italian and Milanese Italian are the gemination of initial consonants and the pronunciation of stressed "e", and of "s" in some cases: e.g. va bene "all right": is pronounced [va ˈbːɛne] by a Roman (and by any standard-speaker), [va ˈbene] by a Milanese (and by any speaker whose native dialect lies to the north of La Spezia–Rimini Line); a casa "at home" is [a ˈkːasa] for Roman and standard, [a ˈkaza] for Milanese and generally northern.
7+
8+In contrast to the Northern Italian language, southern Italian dialects and languages were largely untouched by the Franco-Occitan influences introduced to Italy, mainly by bards from France, during the Middle Ages but, after the Norman conquest of southern Italy, Sicily became the first Italian land to adopt Occitan lyric moods (and words) in poetry. Even in the case of Northern Italian language, however, scholars are careful not to overstate the effects of outsiders on the natural indigenous developments of the languages.
9+
10+The economic might and relatively advanced development of Tuscany at the time (Late Middle Ages) gave its dialect weight, though the Venetian language remained widespread in medieval Italian commercial life, and Ligurian (or Genoese) remained in use in maritime trade alongside the Mediterranean. The increasing political and cultural relevance of Florence during the periods of the rise of Medici's bank, Humanism, and the Renaissance made its dialect, or rather a refined version of it, a standard in the arts.
11+
12+Renaissance[edit]
13+Main article: Italian Renaissance
14+Starting with the Renaissance, Italian became the language used in the courts of every state in the peninsula. The rediscovery of Dante's De vulgari eloquentia and a renewed interest in linguistics in the sixteenth century, sparked a debate that raged throughout Italy concerning the criteria that should govern the establishment of a modern Italian literary and spoken language. Scholars divided into three factions:
15+
16+The purists, headed by Venetian Pietro Bembo (who, in his Gli Asolani, claimed the language might be based only on the great literary classics, such as Petrarch and some part of Boccaccio). The purists thought the Divine Comedy not dignified enough, because it used elements from non-lyric registers of the language.
17+Niccolò Machiavelli and other Florentines preferred the version spoken by ordinary people in their own times.
18+The courtiers, like Baldassare Castiglione and Gian Giorgio Trissino, insisted that each local vernacular contribute to the new standard.
19+A fourth faction claimed the best Italian was the one that the papal court adopted, which was a mix of Florentine and the dialect of Rome. Eventually, Bembo's ideas prevailed, and the foundation of the Accademia della Crusca in Florence (1582–1583), the official legislative body of the Italian language led to publication of Agnolo Monosini's Latin tome Floris italicae linguae libri novem in 1604 followed by the first Italian dictionary in 1612.
20+
21+Modern era[edit]
22+An important event that helped the diffusion of Italian was the conquest and occupation of Italy by Napoleon in the early nineteenth century (who was himself of Italian-Corsican descent). This conquest propelled the unification of Italy some decades after, and pushed the Italian language into a lingua franca used not only among clerks, nobility and functionaries in the Italian courts but also in the bourgeoisie.
23+
24+Contemporary times[edit]
25+Italian literature's first modern novel, I Promessi Sposi (The Betrothed), by Alessandro Manzoni, further defined the standard by "rinsing" his Milanese "in the waters of the Arno" (Florence's river), as he states in the Preface to his 1840 edition.
26+
27+After unification a huge number of civil servants and soldiers recruited from all over the country introduced many more words and idioms from their home languages ("ciao" is derived from Venetian word "s-cia[v]o" (slave), "panettone" comes from Lombard word "panatton" etc.). Only 2.5% of Italy’s population could speak the Italian standardized language properly when the nation unified in 1861.[14]
28+
29+Classification[edit]
30+Italian is a Romance language, and is therefore a descendant of Vulgar Latin. Standard Italian is based on Tuscan, especially its Florentine dialect, and is therefore an Italo-Dalmatian language, to which Sicilian and the extinct Dalmatian also belong, among a few others.
31+
32+Unlike most other Romance languages, Italian retains Latin's contrast between short and long consonants. As in most Romance languages, stress is distinctive. In particular, among the Romance languages, Italian is the closest to Latin in terms of vocabulary.[12] Lexical similarity is 89% with French, 88% with Catalan, 85% with Sardinian, 82% with Spanish and Portuguese, 78% with Rhaeto-Romance, and 77% with Romanian.[6][15]
33+
34+Geographic distribution[edit]
35+
36+The geographic distribution of the Italian language in the world: large Italian-speaking communities are shown in green; light blue indicates areas where the Italian language was used officially during the Italian colonial period.
37+
38+Use of the Italian language in Europe
39+
40+Use of the Italian language in Europe and former use in Africa
41+Europe[edit]
42+Italian is the official language of Italy and San Marino and is spoken fluently by the majority of the countries' populations. Italian is official, together with French, German and Romansch in Switzerland, with most of the 0.5 million speakers concentrated in the south of the country, in the cantons of Ticino and southern Graubünden (predominately in Italian Girgioni). Italian is the third most spoken language in Switzerland (after German and French), and its use has modestly declined since the 1970s.[16] Italian is also used in administration and official documents in Vatican City.[17]
43+
44+Italian is widely spoken in Malta, where nearly two-thirds of the population can speak it fluently, making it the most spoken non-official language in Europe in 2005.[18] Italian served as Malta's official language until 1934, while it is also recognized as an official language in Istria County, Croatia and Slovenian Istria, where there are significant and historic Italian populations.[citation needed]
45+
46+It is used as the official language of the Sovereign Military Order of Malta, a Roman Catholic chivalric order which, while not a nation per se, is still recognized as a sovereign subject of international law.
47+
48+Italian is also spoken by a minority in Monaco and France (especially in the southeast of the country and Corsica).[19][20] Small Italian-speaking minorities can also be found in Albania and Montenegro.[citation needed]
49+
50+Africa[edit]
51+Due to heavy Italian influence during the Italian colonial period, Italian is still widely understood in the countries of Libya and Eritrea.[6] Although it was the primary language since colonial rule, Italian greatly declined under the rule of Muammar Gaddafi, who expelled the Italian Libyan population and made Arabic the sole official language of the country.[21] Nevertheless, Italian remains an important language in the education and economic sectors in Libya. In Eritrea, Italian is a principal language in commerce and the capital city Asmara still has an Italian-language school.[22] Italian was also introduced to Somalia through colonialism and was the sole official language of administration and education during the colonial period but declined after government, educational and economic infrastructure was destroyed in the Somali Civil War. Italian remains spoken as a second language by the elderly and the educated and is also used in the new Federal Government of Somalia.[23][24]
52+
53+Italian was also used in administration in Ethiopia when the country was briefly occupied by Italy from 1936 to 1941.
54+
55+Immigrant communities[edit]
56+Although over 17 million Americans are of Italian descent, only a little over one million people in the United States speak Italian at home.[25] Nevertheless, an Italian language media market does exist in the country.[26]
57+
58+In Canada, Italian is the second most spoken non-official language when Chinese languages are not combined, with over 660,000 speakers (or abou
benchmark/Streamly/Benchmark/Unicode/data/Japanese.txtnew file+855
@@ -0,0 +1,855 @@
1+私は、その男の写真を三葉、見たことがある。
2+ 一葉は、その男の、幼年時代、とでも言うべきであろうか、十歳前後かと推定される頃の写真であって、その子供が大勢の女のひとに取りかこまれ、(それは、その子供の姉たち、妹たち、それから、従姉妹《いとこ》たちかと想像される)庭園の池のほとりに、荒い縞の袴《はかま》をはいて立ち、首を三十度ほど左に傾け、醜く笑っている写真である。醜く? けれども、鈍い人たち(つまり、美醜などに関心を持たぬ人たち)は、面白くも何とも無いような顔をして、
3+「可愛い坊ちゃんですね」
4+ といい加減なお世辞を言っても、まんざら空《から》お世辞に聞えないくらいの、謂《い》わば通俗の「可愛らしさ」みたいな影もその子供の笑顔に無いわけではないのだが、しかし、いささかでも、美醜に就いての訓練を経て来たひとなら、ひとめ見てすぐ、
5+「なんて、いやな子供だ」
6+ と頗《すこぶ》る不快そうに呟《つぶや》き、毛虫でも払いのける時のような手つきで、その写真をほうり投げるかも知れない。
7+ まったく、その子供の笑顔は、よく見れば見るほど、何とも知れず、イヤな薄気味悪いものが感ぜられて来る。どだい、それは、笑顔でない。この子は、少しも笑ってはいないのだ。その証拠には、この子は、両方のこぶしを固く握って立っている。人間は、こぶしを固く握りながら笑えるものでは無いのである。猿だ。猿の笑顔だ。ただ、顔に醜い皺《しわ》を寄せているだけなのである。「皺くちゃ坊ちゃん」とでも言いたくなるくらいの、まことに奇妙な、そうして、どこかけがらわしく、へんにひとをムカムカさせる表情の写真であった。私はこれまで、こんな不思議な表情の子供を見た事が、いちども無かった。
8+ 第二葉の写真の顔は、これはまた、びっくりするくらいひどく変貌《へんぼう》していた。学生の姿である。高等学校時代の写真か、大学時代の写真か、はっきりしないけれども、とにかく、おそろしく美貌の学生である。しかし、これもまた、不思議にも、生きている人間の感じはしなかった。学生服を着て、胸のポケットから白いハンケチを覗《のぞ》かせ、籐椅子《とういす》に腰かけて足を組み、そうして、やはり、笑っている。こんどの笑顔は、皺くちゃの猿の笑いでなく、かなり巧みな微笑になってはいるが、しかし、人間の笑いと、どこやら違う。血の重さ、とでも言おうか、生命《いのち》の渋さ、とでも言おうか、そのような充実感は少しも無く、それこそ、鳥のようではなく、羽毛のように軽く、ただ白紙一枚、そうして、笑っている。つまり、一から十まで造り物の感じなのである。キザと言っても足りない。軽薄と言っても足りない。ニヤケと言っても足りない。おしゃれと言っても、もちろん足りない。しかも、よく見ていると、やはりこの美貌の学生にも、どこか怪談じみた気味悪いものが感ぜられて来るのである。私はこれまで、こんな不思議な美貌の青年を見た事が、いちども無かった。
9+ もう一葉の写真は、最も奇怪なものである。まるでもう、としの頃がわからない。頭はいくぶん白髪のようである。それが、ひどく汚い部屋(部屋の壁が三箇所ほど崩れ落ちているのが、その写真にハッキリ写っている)の片隅で、小さい火鉢に両手をかざし、こんどは笑っていない。どんな表情も無い。謂わば、坐って火鉢に両手をかざしながら、自然に死んでいるような、まことにいまわしい、不吉なにおいのする写真であった。奇怪なのは、それだけでない。その写真には、わりに顔が大きく写っていたので、私は、つくづくその顔の構造を調べる事が出来たのであるが、額は平凡、額の皺も平凡、眉も平凡、眼も平凡、鼻も口も顎《あご》も、ああ、この顔には表情が無いばかりか、印象さえ無い。特徴が無いのだ。たとえば、私がこの写真を見て、眼をつぶる。既に私はこの顔を忘れている。部屋の壁や、小さい火鉢は思い出す事が出来るけれども、その部屋の主人公の顔の印象は、すっと霧消して、どうしても、何としても思い出せない。画にならない顔である。漫画にも何もならない顔である。眼をひらく。あ、こんな顔だったのか、思い出した、というようなよろこびさえ無い。極端な言い方をすれば、眼をひらいてその写真を再び見ても、思い出せない。そうして、ただもう不愉快、イライラして、つい眼をそむけたくなる。
10+ 所謂《いわゆる》「死相」というものにだって、もっと何か表情なり印象なりがあるものだろうに、人間のからだに駄馬の首でもくっつけたなら、こんな感じのものになるであろうか、とにかく、どこという事なく、見る者をして、ぞっとさせ、いやな気持にさせるのだ。私はこれまで、こんな不思議な男の顔を見た事が、やはり、いちども無かった。
11+[#改頁]
12+
13+
14+
15+[#3字下げ]第一の手記[#「第一の手記」は大見出し]
16+
17+
18+ 恥の多い生涯を送って来ました。
19+ 自分には、人間の生活というものが、見当つかないのです。自分は東北の田舎に生れましたので、汽車をはじめて見たのは、よほど大きくなってからでした。自分は停車場のブリッジを、上って、降りて、そうしてそれが線路をまたぎ越えるために造られたものだという事には全然気づかず、ただそれは停車場の構内を外国の遊戯場みたいに、複雑に楽しく、ハイカラにするためにのみ、設備せられてあるものだとばかり思っていました。しかも、かなり永い間そう思っていたのです。ブリッジの上ったり降りたりは、自分にはむしろ、ずいぶん垢抜《あかぬ》けのした遊戯で、それは鉄道のサーヴィスの中でも、最も気のきいたサーヴィスの一つだと思っていたのですが、のちにそれはただ旅客が線路をまたぎ越えるための頗る実利的な階段に過ぎないのを発見して、にわかに興が覚めました。
20+ また、自分は子供の頃、絵本で地下鉄道というものを見て、これもやはり、実利的な必要から案出せられたものではなく、地上の車に乗るよりは、地下の車に乗ったほうが風がわりで面白い遊びだから、とばかり思っていました。
21+ 自分は子供の頃から病弱で、よく寝込みましたが、寝ながら、敷布、枕のカヴァ、掛蒲団のカヴァを、つくづく、つまらない装飾だと思い、それが案外に実用品だった事を、二十歳ちかくになってわかって、人間のつましさに暗然とし、悲しい思いをしました。
22+ また、自分は、空腹という事を知りませんでした。いや、それは、自分が衣食住に困らない家に育ったという意味ではなく、そんな馬鹿な意味ではなく、自分には「空腹」という感覚はどんなものだか、さっぱりわからなかったのです。へんな言いかたですが、おなかが空いていても、自分でそれに気がつかないのです。小学校、中学校、自分が学校から帰って来ると、周囲の人たちが、それ、おなかが空いたろう、自分たちにも覚えがある、学校から帰って来た時の空腹は全くひどいからな、甘納豆はどう? カステラも、パンもあるよ、などと言って騒ぎますので、自分は持ち前のおべっか精神を発揮して、おなかが空いた、と呟いて、甘納豆を十粒ばかり口にほうり込むのですが、空腹感とは、どんなものだか、ちっともわかっていやしなかったのです。
23+ 自分だって、それは勿論《もちろん》、大いにものを食べますが、しかし、空腹感から、ものを食べた記憶は、ほとんどありません。めずらしいと思われたものを食べます。豪華と思われたものを食べます。また、よそへ行って出されたものも、無理をしてまで、たいてい食べます。そうして、子供の頃の自分にとって、最も苦痛な時刻は、実に、自分の家の食事の時間でした。
24+ 自分の田舎の家では、十人くらいの家族全部、めいめいのお膳《ぜん》を二列に向い合せに並べて、末っ子の自分は、もちろん一ばん下の座でしたが、その食事の部屋は薄暗く、昼ごはんの時など、十幾人の家族が、ただ黙々としてめしを食っている有様には、自分はいつも肌寒い思いをしました。それに田舎の昔|気質《かたぎ》の家でしたので、おかずも、たいていきまっていて、めずらしいもの、豪華なもの、そんなものは望むべくもなかったので、いよいよ自分は食事の時刻を恐怖しました。自分はその薄暗い部屋の末席に、寒さにがたがた震える思いで口にごはんを少量ずつ運び、押し込み、人間は、どうして一日に三度々々ごはんを食べるのだろう、実にみな厳粛な顔をして食べている、これも一種の儀式のようなもので、家族が日に三度々々、時刻をきめて薄暗い一部屋に集り、お膳を順序正しく並べ、食べたくなくても無言でごはんを噛《か》みながら、うつむき、家中にうごめいている霊たちに祈るためのものかも知れない、とさえ考えた事があるくらいでした。
25+ めしを食べなければ死ぬ、という言葉は、自分の耳には、ただイヤなおどかしとしか聞えませんでした。その迷信は、(いまでも自分には、何だか迷信のように思われてならないのですが)しかし、いつも自分に不安と恐怖を与えました。人間は、めしを食べなければ死ぬから、そのために働いて、めしを食べなければならぬ、という言葉ほど自分にとって難解で晦渋《かいじゅう》で、そうして脅迫めいた響きを感じさせる言葉は、無かったのです。
26+ つまり自分には、人間の営みというものが未《いま》だに何もわかっていない、という事になりそうです。自分の幸福の観念と、世のすべての人たちの幸福の観念とが、まるで食いちがっているような不安、自分はその不安のために夜々、転輾《てんてん》し、呻吟《しんぎん》し、発狂しかけた事さえあります。自分は、いったい幸福なのでしょうか。自分は小さい時から、実にしばしば、仕合せ者だと人に言われて来ましたが、自分ではいつも地獄の思いで、かえって、自分を仕合せ者だと言ったひとたちのほうが、比較にも何もならぬくらいずっとずっと安楽なように自分には見えるのです。
27+ 自分には、禍《わざわ》いのかたまりが十個あって、その中の一個でも、隣人が脊負《せお》ったら、その一個だけでも充分に隣人の生命取りになるのではあるまいかと、思った事さえありました。
28+ つまり、わからないのです。隣人の苦しみの性質、程度が、まるで見当つかないのです。プラクテカルな苦しみ、ただ、めしを食えたらそれで解決できる苦しみ、しかし、それこそ最も強い痛苦で、自分の例の十個の禍いなど、吹っ飛んでしまう程の、凄惨《せいさん》な阿鼻地獄なのかも知れない、それは、わからない、しかし、それにしては、よく自殺もせず、発狂もせず、政党を論じ、絶望せず、屈せず生活のたたかいを続けて行ける、苦しくないんじゃないか? エゴイストになりきって、しかもそれを当然の事と確信し、いちども自分を疑った事が無いんじゃないか? それなら、楽だ、しかし、人間というものは、皆そんなもので、またそれで満点なのではないかしら、わからない、……夜はぐっすり眠り、朝は爽快《そうかい》なのかしら、どんな夢を見ているのだろう、道を歩きながら何を考えているのだろう、金? まさか、それだけでも無いだろう、人間は、めしを食うために生きているのだ、という説は聞いた事があるような気がするけれども、金のために生きている、という言葉は、耳にした事が無い、いや、しかし、ことに依ると、……いや、それもわからない、……考えれば考えるほど、自分には、わからなくなり、自分ひとり全く変っているような、不安と恐怖に襲われるばかりなのです。自分は隣人と、ほとんど会話が出来ません。何を、どう言ったらいいのか、わからないのです。
29+ そこで考え出したのは、道化でした。
30+ それは、自分の、人間に対する最後の求愛でした。自分は、人間を極度に恐れていながら、それでいて、人間を、どうしても思い切れなかったらしいのです。そうして自分は、この道化の一線でわずかに人間につながる事が出来たのでした。おもてでは、絶えず笑顔をつくりながらも、内心は必死の、それこそ千番に一番の兼ね合いとでもいうべき危機一髪の、油汗流してのサーヴィスでした。
31+ 自分は子供の頃から、自分の家族の者たちに対してさえ、彼等がどんなに苦しく、またどんな事を考えて生きているのか、まるでちっとも見当つかず、ただおそろしく、その気まずさに堪える事が出来ず、既に道化の上手になっていました。つまり、自分は、いつのまにやら、一言も本当の事を言わない子になっていたのです。
32+ その頃の、家族たちと一緒にうつした写真などを見ると、他の者たちは皆まじめな顔をしているのに、自分ひとり、必ず奇妙に顔をゆがめて笑っているのです。これもまた、自分の幼く悲しい道化の一種でした。
33+ また自分は、肉親たちに何か言われて、口応《くちごた》えした事はいちども有りませんでした。そのわずかなおこごとは、自分には霹靂《へきれき》の如く強く感ぜられ、狂うみたいになり、口応えどころか、そのおこごとこそ、謂わば万世一系の人間の「真理」とかいうものに違いない、自分にはその真理を行う力が無いのだから、もはや人間と一緒に住めないのではないかしら、と思い込んでしまうのでした。だから自分には、言い争いも自己弁解も出来ないのでした。人から悪く言われると、いかにも、もっとも、自分がひどい思い違いをしているような気がして来て、いつもその攻撃を黙して受け、内心、狂うほどの恐怖を感じました。
34+ それは誰でも、人から非難せられたり、怒られたりしていい気持がするものでは無いかも知れませんが、自分は怒っている人間の顔に、獅子《しし》よりも鰐《わに》よりも竜よりも、もっとおそろしい動物の本性を見るのです。ふだんは、その本性をかくしているようですけれども、何かの機会に、たとえば、牛が草原でおっとりした形で寝ていて、突如、尻尾《しっぽ》でピシッと腹の虻《あぶ》を打ち殺すみたいに、不意に人間のおそろしい正体を、怒りに依って暴露する様子を見て、自分はいつも髪の逆立つほどの戦慄《せんりつ》を覚え、この本性もまた人間の生きて行く資格の一つなのかも知れないと思えば、ほとんど自分に絶望を感じるのでした。
35+ 人間に対して、いつも恐怖に震いおののき、また、人間としての自分の言動に、みじんも自信を持てず、そうして自分ひとりの懊悩《おうのう》は胸の中の小箱に秘め、その憂鬱、ナアヴァスネスを、ひたかくしに隠して、ひたすら無邪気の楽天性を装い、自分はお道化たお変人として、次第に完成されて行きました。
36+ 何でもいいから、笑わせておればいいのだ、そうすると、人間たちは、自分が彼等の所謂「生活」の外にいても、あまりそれを気にしないのではないかしら、とにかく、彼等人間たちの目障りになってはいけない、自分は無だ、風だ、空《そら》だ、というような思いばかりが募り、自分はお道化に依って家族を笑わせ、また、家族よりも、もっと不可解でおそろしい下男や下女にまで、必死のお道化のサーヴィスをしたのです。
37+ 自分は夏に、浴衣の下に赤い毛糸のセエターを着て廊下を歩き、家中の者を笑わせました。めったに笑わない長兄も、それを見て噴き出し、
38+「それあ、葉ちゃん、似合わない」
39+ と、可愛くてたまらないような口調で言いました。なに、自分だって、真夏に毛糸のセエターを着て歩くほど、いくら何でも、そんな、暑さ寒さを知らぬお変人ではありません。姉の脚絆《レギンス》を両腕にはめて、浴衣の袖口から覗かせ、以《もっ》てセエターを着ているように見せかけていたのです。
40+ 自分の父は、東京に用事の多いひとでしたので、上野の桜木町に別荘を持っていて、月の大半は東京のその別荘で暮していました。そうして帰る時には家族の者たち、また親戚《しんせき》の者たちにまで、実におびただしくお土産を買って来るのが、まあ、父の趣味みたいなものでした。
41+ いつかの父の上京の前夜、父は子供たちを客間に集め、こんど帰る時には、どんなお土産がいいか、一人々々に笑いながら尋ね、それに対する子供たちの答をいちいち手帖《てちょう》に書きとめるのでした。父が、こんなに子供たちと親しくするのは、めずらしい事でした。
42+「葉蔵は?」
43+ と聞かれて、自分は、口ごもってしまいました。
44+ 何が欲しいと聞かれると、とたんに、何も欲しくなくなるのでした。どうでもいい、どうせ自分を楽しくさせてくれるものなんか無いんだという思いが、ちらと動くのです。と、同時に、人から与えられるものを、どんなに自分の好みに合わなくても、それを拒む事も出来ませんでした。イヤな事を、イヤと言えず、また、好きな事も、おずおずと盗むように、極めてにがく味《あじわ》い、そうして言い知れぬ恐怖感にもだえるのでした。つまり、自分には、二者選一の力さえ無かったのです。これが、後年に到り、いよいよ自分の所謂「恥の多い生涯」の、重大な原因ともなる性癖の一つだったように思われます。
45+ 自分が黙って、もじもじしているので、父はちょっと不機嫌な顔になり、
46+「やはり、本か。浅草の仲店にお正月の獅子舞いのお獅子、子供がかぶって遊ぶのには手頃な大きさのが売っていたけど、欲しくないか」
47+ 欲しくないか、と言われると、もうダメなんです。お道化た返事も何も出来やしないんです。お道化役者は、完全に落第でした。
48+「本が、いいでしょう」
49+ 長兄は、まじめな顔をして言いました。
50+「そうか」
51+ 父は、興覚め顔に手帖に書きとめもせず、パチと手帖を閉じました。
52+ 何という失敗、自分は父を怒らせた、父の復讐《ふくしゅう》は、きっと、おそるべきものに違いない、いまのうちに何とかして取りかえしのつかぬものか、とその夜、蒲団の中でがたがた震えながら考え、そっと起きて客間に行き、父が先刻、手帖をしまい込んだ筈の机の引き出しをあけて、手帖を取り上げ、パラパラめくって、お土産の注文記入の個所を見つけ、手帖の鉛筆をなめて、シシマイ、と書いて寝ました。自分はその獅子舞いのお獅子を、ちっとも欲しくは無かったのです。かえって、本のほうがいいくらいでした。けれども、自分は、父がそのお獅子を自分に買って与えたいのだという事に気がつき、父のその意向に迎合して、父の機嫌を直したいばかりに、深夜、客間に忍び込むという冒険を、敢えておかしたのでした。
53+ そうして、この自分の非常の手段は、果して思いどおりの大成功を以て報いられました。やがて、父は東京から帰って来て、母に大声で言っているのを、自分は子供部屋で聞いていました。
54+「仲店のおもちゃ屋で、この手帖を開いてみたら、これ、ここに、シシマイ、と書いてある。これは、私の字ではない。はてな? と首をかしげて、思い当りました。これは、葉蔵のいたずらですよ。あいつは、私が聞いた時には、にやにやして黙っていたが、あとで、どうしてもお獅子が欲しくてたまらなくなったんだね。何せ、どうも、あれは、変った坊主ですからね。知らん振りして、ちゃんと書いている。そんなに欲しかったのなら、そう言えばよいのに。私は、おもちゃ屋の店先で笑いましたよ。葉蔵を早くここへ呼びなさい」
55+ また一方、自分は、下男や下女たちを洋室に集めて、下男のひとりに滅茶苦茶《めちゃくちゃ》にピアノのキイをたたかせ、(田舎ではありましたが、その家には、たいていのものが、そろっていました)自分はその出鱈目《でたらめ》の曲に合せて、インデヤンの踊りを踊って見せて、皆を大笑いさせました。次兄は、フラッシュを焚《た》いて、自分のインデヤン踊りを撮影して、その写真が出来たのを見ると、自分の腰布(それは更紗《さらさ》の風呂敷でした)の合せ目から、小さいおチンポが見えていたので、これがまた家中の大笑いでした。自分にとって、これまた意外の成功というべきものだったかも知れません。
56+ 自分は毎月、新刊の少年雑誌を十冊以上も、とっていて、またその他《ほか》にも、さまざまの本を東京から取り寄せて黙って読んでいましたので、メチャラクチャラ博士だの、また、ナンジャモンジャ博士などとは、たいへんな馴染《なじみ》で、また、怪談、講談、落語、江戸|小咄《こばなし》などの類にも、かなり通じていましたから、剽軽《ひょうきん》な事をまじめな顔をして言って、家の者たちを笑わせるのには事を欠きませんでした。
57+ しかし、嗚呼《ああ》、学校!
58+ 自分は、そこでは、尊敬されかけていたのです。尊敬されるという観念もまた、甚《はなは》だ自分を、おびえさせました。ほとんど完全に近く人をだまして、そうして、或るひとりの全知全能の者に見破られ、木っ葉みじんにやられて、死ぬる以上の赤恥をかかせられる、それが、「尊敬される」という状態の自分の定義でありました。人間をだまして、「尊敬され」ても、誰かひとりが知っている、そうして、人間たちも、やがて、そのひとりから教えられて、だまされた事に気づいた時、その時の人間たちの怒り、復讐は、いったい、まあ、どんなでしょうか。想像してさえ、身の毛がよだつ心地がするのです。
59+ 自分は、金持ちの家に生れたという事よりも、俗にいう「できる」事に依って、学校中の尊敬を得そうになりました。自分は、子供の頃から病弱で、よく一つき二つき、また一学年ちかくも寝込んで学校を休んだ事さえあったのですが、それでも、病み上りのからだで人力車に乗って学校へ行き、学年末の試験を受けてみると、クラスの誰よりも所謂「できて」いるようでした。からだ具合いのよい時でも、自分は、さっぱり勉強せず、学校へ行っても授業時間に漫画などを書き、休憩時間にはそれをクラスの者たちに説明して聞かせて、笑わせてやりました。また、綴り方には、滑稽噺《こっけいばなし》ばかり書き、先生から注意されても、しかし、自分は、やめませんでした。先生は、実はこっそり自分のその滑稽噺を楽しみにしている事を自分は、知っていたからでした。或る日、自分は、れいに依って、自分が母に連れられて上京の途中の汽車で、おしっこを客車の通路にある痰壺《たんつぼ》にしてしまった失敗談(しかし、その上京の時に、自分は痰壺と知らずにしたのではありませんでした。子供の無邪気をてらって、わざと、そうしたのでした)を、ことさらに悲しそうな筆致で書いて提出し、先生は、きっと笑うという自信がありましたので、職員室に引き揚げて行く先生のあとを、そっとつけて行きましたら、先生は、教室を出るとすぐ、自分のその綴り方を、他のクラスの者たちの綴り方の中から選び出し、廊下を歩きながら読みはじめて、クスクス笑い、やがて職員室にはいって読み終えたのか、顔を真赤にして大声を挙げて笑い、他の先生に、さっそくそれを読ませているのを見とどけ、自分は、たいへん満足でした。
60+ お茶目。
61+ 自分は、所謂お茶目に見られる事に成功しました。尊敬される事から、のがれる事に成功しました。通信簿は全学科とも十点でしたが、操行というものだけは、七点だったり、六点だったりして、それもまた家中の大笑いの種でした。
62+ けれども自分の本性は、そんなお茶目さんなどとは、凡《およ》そ対蹠《たいせき》的なものでした。その頃、既に自分は、女中や下男から、哀《かな》しい事を教えられ、犯されていました。幼少の者に対して、そのような事を行うのは、人間の行い得る犯罪の中で最も醜悪で下等で、残酷な犯罪だと、自分はいまでは思っています。しかし、自分は、忍びました。これでまた一つ、人間の特質を見たというような気持さえして、そうして、力無く笑っていました。もし自分に、本当の事を言う習慣がついていたなら、悪びれず、彼等の犯罪を父や母に訴える事が出来たのかも知れませんが、しかし、自分は、その父や母をも全部は理解する事が出来なかったのです。人間に訴える、自分は、その手段には少しも期待できませんでした。父に訴えても、母に訴えても、お巡《まわ》りに訴えても、政府に訴えても、結局は世渡りに強い人の、世間に通りのいい言いぶんに言いまくられるだけの事では無いかしら。
63+ 必ず片手落のあるのが、わかり切っている、所詮《しょせん》、人間に訴えるのは無駄である、自分はやはり、本当の事は何も言わず、忍んで、そうしてお道化をつづけているより他、無い気持なのでした。
64+ なんだ、人間への不信を言っているのか? へえ? お前はいつクリスチャンになったんだい、と嘲笑《ちょうしょう》する人も或いはあるかも知れませんが、しかし、人間への不信は、必ずしもすぐに宗教の道に通じているとは限らないと、自分には思われるのですけど。現にその嘲笑する人をも含めて、人間は、お互いの不信の中で[#「お互いの不信の中で」に傍点]、エホバも何も念頭に置かず、平気で生きているではありませんか。やはり、自分の幼少の頃の事でありましたが、父の属していた或る政党の有名人が、この町に演説に来て、自分は下男たちに連れられて劇場に聞きに行きました。満員で、そうして、この町の特に父と親しくしている人たちの顔は皆、見えて、大いに拍手などしていました。演説がすんで、聴衆は雪の夜道を三々五々かたまって家路に就き、クソミソに今夜の演説会の悪口を言っているのでした。中には、父と特に親しい人の声もまじっていました。父の開会の辞も下手、れいの有名人の演説も何が何やら、わけがわからぬ、とその所謂父の「同志たち」が怒声に似た口調で言っているのです。そうしてそのひとたちは、自分の家に立ち寄って客間に上り込み、今夜の演説会は大成功だったと、しんから嬉しそうな顔をして父に言っていました。下男たちまで、今夜の演説会はどうだったと母に聞かれ、とても面白かった、と言ってけろりとしているのです。演説会ほど面白くないものはない、と帰る途々《みちみち》、下男たちが嘆き合っていたのです。
65+ しかし、こんなのは、ほんのささやかな一例に過ぎません。互いにあざむき合って、しかもいずれも不思議に何の傷もつかず、あざむき合っている事にさえ気がついていないみたいな、実にあざやかな、それこそ清く明るくほがらかな不信の例が、人間の生活に充満しているように思われます。けれども、自分には、あざむき合っているという事には、さして特別の興味もありません。自分だって、お道化に依って、朝から晩まで人間をあざむいているのです。自分は、修身教科書的な正義とか何とかいう道徳には、あまり関心を持てないのです。自分には、あざむき合っていながら、清く明るく朗らかに[#「清く明るく朗らかに」に傍点]生きている、或いは生き得る自信を持っているみたいな人間が難解なのです。人間は、ついに自分にその妙諦《みょうてい》を教えてはくれませんでした。それさえわかったら、自分は、人間をこんなに恐怖し、また、必死のサーヴィスなどしなくて、すんだのでしょう。人間の生活と対立してしまって、夜々の地獄のこれほどの苦しみを嘗《な》めずにすんだのでしょう。つまり、自分が下男下女たちの憎むべきあの犯罪をさえ、誰にも訴えなかったのは、人間への不信からではなく、また勿論クリスト主義のためでもなく、人間が、葉蔵という自分に対して信用の殻を固く閉じていたからだったと思います。父母でさえ、自分にとって難解なものを、時折、見せる事があったのですから。
66+ そうして、その、誰にも訴えない、自分の孤独の匂いが、多くの女性に、本能に依って嗅《か》ぎ当てられ、後年さまざま、自分がつけ込まれる誘因の一つになったような気もするのです。
67+ つまり、自分は、女性にとって、恋の秘密を守れる男であったというわけなのでした。
68+[#改頁]
69+
70+
71+
72+[#3字下げ]第二の手記[#「第二の手記」は大見出し]
73+
74+
75+ 海の、波打際、といってもいいくらいに海にちかい岸辺に、真黒い樹肌の山桜の、かなり大きいのが二十本以上も立ちならび、新学年がはじまると、山桜は、褐色のねばっこいような嫩葉《わかば》と共に、青い海を背景にして、その絢爛《けんらん》たる花をひらき、やがて、花吹雪の時には、花びらがおびただしく海に散り込み、海面を鏤《ちりば》めて漂い、波に乗せられ再び波打際に打ちかえされる、その桜の砂浜が、そのまま校庭として使用せられている東北の或る中学校に、自分は受験勉強もろくにしなかったのに、どうやら無事に入学できました。そうして、その中学の制帽の徽章《きしょう》にも、制服のボタンにも、桜の花が図案化せられて咲いていました。
76+ その中学校のすぐ近くに、自分の家と遠い親戚に当る者の家がありましたので、その理由もあって、父がその海と桜の中学校を自分に選んでくれたのでした。自分は、その家にあずけられ、何せ学校のすぐ近くなので、朝礼の鐘の鳴るのを聞いてから、走って登校するというような、かなり怠惰な中学生でしたが、それでも、れいのお道化に依って、日一日とクラスの人気を得ていました。
77+ 生れてはじめて、謂わば他郷へ出たわけなのですが、自分には、その他郷のほうが、自分の生れ故郷よりも、ずっと気楽な場所のように思われました。それは、自分のお道化もその頃にはいよいよぴったり身について来て、人をあざむくのに以前ほどの苦労を必要としなくなっていたからである、と解説してもいいでしょうが、しかし、それよりも、肉親と他人、故郷と他郷、そこには抜くべからざる演技の難易の差が、どのような天才にとっても、たとい神の子のイエスにとっても、存在しているものなのではないでしょうか。俳優にとって、最も演じにくい場所は、故郷の劇場であって、しかも六親|眷属《けんぞく》全部そろって坐っている一部屋の中に在っては、いかな名優も演技どころでは無くなるのではないでしょうか。けれども自分は演じて来ました。しかも、それが、かなりの成功を収めたのです。それほどの曲者《くせもの》が、他郷に出て、万が一にも演じ損ねるなどという事は無いわけでした。
78+ 自分の人間恐怖は、それは以前にまさるとも劣らぬくらい烈しく胸の底で蠕動《ぜんどう》していましたが、しかし、演技は実にのびのびとして来て、教室にあっては、いつもクラスの者たちを笑わせ、教師も、このクラスは大庭さえいないと、とてもいいクラスなんだが、と言葉では嘆じながら、手で口を覆って笑っていました。自分は、あの雷の如き蛮声を張り上げる配属将校をさえ、実に容易に噴き出させる事が出来たのです。
79+ もはや、自分の正体を完全に隠蔽《いんぺい》し得たのではあるまいか、とほっとしかけた矢先に、自分は実に意外にも背後から突き刺されました。それは、背後から突き刺す男のごたぶんにもれず、クラスで最も貧弱な肉体をして、顔も青ぶくれで、そうしてたしかに父兄のお古と思われる袖が聖徳太子の袖みたいに長すぎる上衣《うわぎ》を着て、学課は少しも出来ず、教練や体操はいつも見学という白痴に似た生徒でした。自分もさすがに、その生徒にさえ警戒する必要は認めていなかったのでした。
80+ その日、体操の時間に、その生徒(姓はいま記憶していませんが、名は竹一といったかと覚えています)その竹一は、れいに依って見学、自分たちは鉄棒の練習をさせられていました。自分は、わざと出来るだけ厳粛な顔をして、鉄棒めがけて、えいっと叫んで飛び、そのまま幅飛びのように前方へ飛んでしまって、砂地にドスンと尻餅をつきました。すべて、計画的な失敗でした。果して皆の大笑いになり、自分も苦笑しながら起き上ってズボンの砂を払っていると、いつそこへ来ていたのか、竹一が自分の背中をつつき、低い声でこう囁《ささや》きました。
81+「ワザ。ワザ」
82+ 自分は震撼《しんかん》しました。ワザと失敗したという事を、人もあろうに、竹一に見破られるとは全く思いも掛けない事でした。自分は、世界が一瞬にして地獄の業火に包まれて燃え上るのを眼前に見るような心地がして、わあっ! と叫んで発狂しそうな気配を必死の力で抑えました。
83+ それからの日々の、自分の不安と恐怖。
84+ 表面は相変らず哀しいお道化を演じて皆を笑わせていましたが、ふっと思わず重苦しい溜息《ためいき》が出て、何をしたってすべて竹一に木っ葉みじんに見破られていて、そうしてあれは、そのうちにきっと誰かれとなく、それを言いふらして歩くに違いないのだ、と考えると、額にじっとり油汗がわいて来て、狂人みたいに妙な眼つきで、あたりをキョロキョロむなしく見廻したりしました。できる事なら、朝、昼、晩、四六時中、竹一の傍《そば》から離れず彼が秘密を口走らないように監視していたい気持でした。そうして、自分が、彼にまつわりついている間に、自分のお道化は、所謂「ワザ」では無くて、ほんものであったというよう思い込ませるようにあらゆる努力を払い、あわよくば、彼と無二の親友になってしまいたいものだ、もし、その事が皆、不可能なら、もはや、彼の死を祈るより他は無い、とさえ思いつめました。しかし、さすがに、彼を殺そうという気だけは起りませんでした。自分は、これまでの生涯に於《お》いて、人に殺されたいと願望した事は幾度となくありましたが、人を殺したいと思った事は、いちどもありませんでした。それは、おそるべき相手に、かえって幸福を与えるだけの事だと考えていたからです。
85+ 自分は、彼を手なずけるため、まず、顔に偽クリスチャンのような「優しい」媚笑《びしょう》を湛《たた》え、首を三十度くらい左に曲げて、彼の小さい肩を軽く抱き、そうして猫撫《ねこな》で声に似た甘ったるい声で、彼を自分の寄宿している家に遊びに来るようしばしば誘いましたが、彼は、いつも、ぼんやりした眼つきをして、黙っていました。しかし、自分は、或る日の放課後、たしか初夏の頃の事でした、夕立ちが白く降って、生徒たちは帰宅に困っていたようでしたが、自分は家がすぐ近くなので平気で外へ飛び出そうとして、ふと下駄箱のかげに、竹一がしょんぼり立っているのを見つけ、行こう、傘を貸してあげる、と言い、臆する竹一の手を引っぱって、一緒に夕立ちの中を走り、家に着いて、二人の上衣を小母さんに乾かしてもらうようにたのみ、竹一を二階の自分の部屋に誘い込むのに成功しました。
86+ その家には、五十すぎの小母さんと、三十くらいの、眼鏡をかけて、病身らしい背の高い姉娘(この娘は、いちどよそへお嫁に行って、それからまた、家へ帰っているひとでした。自分は、このひとを、ここの家のひとたちにならって、アネサと呼んでいました)それと、最近女学校を卒業したばかりらしい、セッちゃんという姉に似ず背が低く丸顔の妹娘と、三人だけの家族で、下の店には、文房具やら運動用具を少々並べていましたが、主な収入は、なくなった主人が建てて残して行った五六棟の長屋の家賃のようでした。
87+「耳が痛い」
88+ 竹一は、立ったままでそう言いました。
89+「雨に濡れたら、痛くなったよ」
90+ 自分が、見てみると、両方の耳が、ひどい耳だれでした。膿《うみ》が、いまにも耳殻の外に流れ出ようとしていました。
91+「これは、いけない。痛いだろう」
92+ と自分は大袈裟《おおげさ》におどろいて見せて、
93+「雨の中を、引っぱり出したりして、ごめんね」
94+ と女の言葉みたいな言葉を遣って「優しく」謝り、それから、下へ行って綿とアルコールをもらって来て、竹一を自分の膝《ひざ》を枕にして寝かせ、念入りに耳の掃除をしてやりました。竹一も、さすがに、これが偽善の悪計であることには気附かなかったようで、
95+「お前は、きっと、女に惚《ほ》れられるよ」
96+ と自分の膝枕で寝ながら、無智なお世辞を言ったくらいでした。
97+ しかしこれは、おそらく、あの竹一も意識しなかったほどの、おそろしい悪魔の予言のようなものだったという事を、自分は後年に到って思い知りました。惚れると言い、惚れられると言い、その言葉はひどく下品で、ふざけて、いかにも、やにさがったものの感じで、どんなに所謂「厳粛」の場であっても、そこへこの言葉が一言でもひょいと顔を出すと、みるみる憂鬱の伽藍《がらん》が崩壊し、ただのっぺらぼうになってしまうような心地がするものですけれども、惚れられるつらさ、などという俗語でなく、愛せられる不安、とでもいう文学語を用いると、あながち憂鬱の伽藍をぶちこわす事にはならないようですから、奇妙なものだと思います。
98+ 竹一が、自分に耳だれの膿の仕末をしてもらって、お前は惚れられるという馬鹿なお世辞を言い、自分はその時、ただ顔を赤らめて笑って、何も答えませんでしたけれども、しかし、実は、幽《かす》かに思い当るところもあったのでした。でも、「惚れられる」というような野卑な言葉に依って生じるやにさがった雰囲気《ふんいき》に対して、そう言われると、思い当るところもある、などと書くのは、ほとんど落語の若旦那のせりふにさえならぬくらい、おろかしい感懐を示すようなもので、まさか、自分は、そんなふざけた、やにさがった気持で、「思い当るところもあった」わけでは無いのです。
99+ 自分には、人間の女性のほうが、男性よりもさらに数倍難解でした。自分の家族は、女性のほうが男性よりも数が多く、また親戚にも、女の子がたくさんあり、またれいの「犯罪」の女中などもいまして、自分は幼い時から、女とばかり遊んで育ったといっても過言ではないと思っていますが、それは、また、しかし、実に、薄氷を踏む思いで、その女のひとたちと附合って来たのです。ほとんど、まるで見当が、つかないのです。五里霧中で、そうして時たま、虎の尾を踏む失敗をして、ひどい痛手を負い、それがまた、男性から受ける笞《むち》とちがって、内出血みたいに極度に不快に内攻して、なかなか治癒《ちゆ》し難い傷でした。
100+ 女は引き寄せて、つっ放す、或いはまた、女は、人のいるところでは自分をさげすみ、邪慳《じゃけん》にし、誰もいなくなると、ひしと抱きしめる、女は死んだように深く眠る、女は眠るために生きているのではないかしら、その他、女に就いてのさまざまの観察を、すでに自分は、幼年時代から得ていたのですが、同じ人類のようでありながら、男とはまた、全く異った生きもののような感じで、そうしてまた、この不可解で油断のならぬ生きものは、奇妙に自分をかまうのでした。「惚れられる」なんていう言葉も、また「好かれる」という言葉も、自分の場合にはちっとも、ふさわしくなく、「かまわれる」とでも言ったほうが、まだしも実状の説明に適しているかも知れません。
101+ 女は、男よりも更に、道化には、くつろぐようでした。自分がお道化を演じ、男はさすがにいつまでもゲラゲラ笑ってもいませんし、それに自分も男のひとに対し、調子に乗ってあまりお道化を演じすぎると失敗するという事を知っていましたので、必ず適当のところで切り上げるように心掛けていましたが、女は適度という事を知らず、いつまでもいつまでも、自分にお道化を要求し、自分はその限りないアンコールに応じて、へとへとになるのでした。実に、よく笑うのです。いったいに、女は、男よりも快楽をよけいに頬張る事が出来るようです。
102+ 自分が中学時代に世話になったその家の姉娘も、妹娘も、ひまさえあれば、二階の自分の部屋にやって来て、自分はその度毎に飛び上らんばかりにぎょっとして、そうして、ひたすらおびえ、
103+「御勉強?」
104+「いいえ」
105+ と微笑して本を閉じ、
106+「きょうね、学校でね、コンボウという地理の先生がね」
107+ とするする口から流れ出るものは、心にも無い滑稽噺でした。
108+「葉ちゃん、眼鏡をかけてごらん」
109+ 或る晩、妹娘のセッちゃんが、アネサと一緒に自分の部屋へ遊びに来て、さんざん自分にお道化を演じさせた揚句の果に、そんな事を言い出しました。
110+「なぜ?」
111+「いいから、かけてごらん。アネサの眼鏡を借りなさい」
112+ いつでも、こんな乱暴な命令口調で言うのでした。道化師は、素直にアネサの眼鏡をかけました。とたんに、二人の娘は、笑いころげました。
113+「そっくり。ロイドに、そっくり」
114+ 当時、ハロルド・ロイドとかいう外国の映画の喜劇役者が、日本で人気がありました。
115+ 自分は立って片手を挙げ、
116+「諸君」
117+ と言い、
118+「このたび、日本のファンの皆様がたに、……」
119+ と一場の挨拶を試み、さらに大笑いさせて、それから、ロイドの映画がそのまちの劇場に来るたび毎に見に行って、ひそかに彼の表情などを研究しました。
120+ また、或る秋の夜、自分が寝ながら本を読んでいると、アネサが鳥のように素早く部屋へはいって来て、いきなり自分の掛蒲団の上に倒れて泣き、
121+「葉ちゃんが、あたしを助けてくれるのだわね。そうだわね。こんな家、一緒に出てしまったほうがいいのだわ。助けてね。助けて」
122+ などと、はげしい事を口走っては、また泣くのでした。けれども、自分には、女から、こんな態度を見せつけられるのは、これが最初ではありませんでしたので、アネサの過激な言葉にも、さして驚かず、かえってその陳腐、無内容に興が覚めた心地で、そっと蒲団から脱け出し、机の上の柿をむいて、その一きれをアネサに手渡してやりました。すると、アネサは、しゃくり上げながらその柿を食べ、
123+「何か面白い本が無い? 貸してよ」
124+ と言いました。
125+ 自分は漱石の「吾輩は猫である」という本を、本棚から選んであげました。
126+「ごちそうさま」
127+ アネサは、恥ずかしそうに笑って部屋から出て行きましたが、このアネサに限らず、いったい女は、どんな気持で生きているのかを考える事は、自分にとって、蚯蚓《みみず》の思いをさぐるよりも、ややこしく、わずらわしく、薄気味の悪いものに感ぜられていました。ただ、自分は、女があんなに急に泣き出したりした場合、何か甘いものを手渡してやると、それを食べて機嫌を直すという事だけは、幼い時から、自分の経験に依って知っていました。
128+ また、妹娘のセッちゃんは、その友だちまで自分の部屋に連れて来て、自分がれいに依って公平に皆を笑わせ、友だちが帰ると、セッちゃんは、必ずその友だちの悪口を言うのでした。あのひとは不良少女だから、気をつけるように、ときまって言うのでした。そんなら、わざわざ連れて来なければ、よいのに、おかげで自分の部屋の来客の、ほとんど全部が女、という事になってしまいました。
129+ しかし、それは、竹一のお世辞の「惚れられる」事の実現では未だ決して無かったのでした。つまり、自分は、日本の東北のハロルド・ロイドに過ぎなかったのです。竹一の無智なお世辞が、いまわしい予言として、なまなまと生きて来て、不吉な形貌を呈するようになったのは、更にそれから、数年経った後の事でありました。
130+ 竹一は、また、自分にもう一つ、重大な贈り物をしていました。
131+「お化けの絵だよ」
132+ いつか竹一が、自分の二階へ遊びに来た時、ご持参の、一枚の原色版の口絵を得意そうに自分に見せて、そう説明しました。
133+ おや? と思いました。その瞬間、自分の落ち行く道が決定せられたように、後年に到って、そんな気がしてなりません。自分は、知っていました。それは、ゴッホの例の自画像に過ぎないのを知っていました。自分たちの少年の頃には、日本ではフランスの所謂印象派の画が大流行していて、洋画鑑賞の第一歩を、たいていこのあたりからはじめたもので、ゴッホ、ゴーギャン、セザンヌ、ルナアルなどというひとの絵は、田舎の中学生でも、たいていその写真版を見て知っていたのでした。自分なども、ゴッホの原色版をかなりたくさん見て、タッチの面白さ、色彩の鮮やかさに興趣を覚えてはいたのですが、しかし、お化けの絵、だとは、いちども考えた事が無かったのでした。
134+「では、こんなのは、どうかしら。やっぱり、お化けかしら」
135+ 自分は本棚から、モジリアニの画集を出し、焼けた赤銅のような肌の、れいの裸婦の像を竹一に見せました。
136+「すげえなあ」
137+ 竹一は眼を丸くして感嘆しました。
138+「地獄の馬みたい」
139+「やっぱり、お化けかね」
140+「おれも、こんなお化けの絵がかきたいよ」
141+ あまりに人間を恐怖している人たちは、かえって、もっともっと、おそろしい妖怪《ようかい》を確実にこの眼で見たいと願望するに到る心理、神経質な、ものにおびえ易い人ほど、暴風雨の更に強からん事を祈る心理、ああ、この一群の画家たちは、人間という化け物に傷《いた》めつけられ、おびやかされた揚句の果、ついに幻影を信じ、白昼の自然の中に、ありありと妖怪を見たのだ、しかも彼等は、それを道化などでごまかさず、見えたままの表現に努力したのだ、竹一の言うように、敢然と「お化けの絵」をかいてしまったのだ、ここに将来の自分の、仲間がいる、と自分は、涙が出たほどに興奮し、
142+「僕も画くよ。お化けの絵を画くよ。地獄の馬を、画くよ」
143+ と、なぜだか、ひどく声をひそめて、竹一に言ったのでした。
144+ 自分は、小学校の頃から、絵はかくのも、見るのも好きでした。けれども、自分のかいた絵は、自分の綴り方ほどには、周囲の評判が、よくありませんでした。自分は、どだい人間の言葉を一向に信用していませんでしたので、綴り方などは、自分にとって、ただお道化の御挨拶みたいなもので、小学校、中学校、と続いて先生たちを狂喜させて来ましたが、しかし、自分では、さっぱり面白くなく、絵だけは、(漫画などは別ですけれども)その対象の表現に、幼い我流ながら、多少の苦心を払っていました。学校の図画のお手本はつまらないし、先生の絵は下手くそだし、自分は、全く出鱈目にさまざまの表現法を自分で工夫して試みなければならないのでした。中学校へはいって、自分は油絵の道具も一|揃《そろ》い持っていましたが、しかし、そのタッチの手本を、印象派の画風に求めても、自分の画いたものは、まるで千代紙細工のようにのっぺりして、ものになりそうもありませんでした。けれども自分は、竹一の言葉に依って、自分のそれまでの絵画に対する心構えが、まるで間違っていた事に気が附きました。美しいと感じたものを、そのまま美しく表現しようと努力する甘さ、おろかしさ。マイスターたちは、何でも無いものを、主観に依って美しく創造し、或いは醜いものに嘔吐《おうと》をもよおしながらも、それに対する興味を隠さず、表現のよろこびにひたっている、つまり、人の思惑に少しもたよっていないらしいという、画法のプリミチヴな虎の巻を、竹一から、さずけられて、れいの女の来客たちには隠して、少しずつ、自画像の制作に取りかかってみました。
145+ 自分でも、ぎょっとしたほど、陰惨な絵が出来上りました。しかし、これこそ胸底にひた隠しに隠している自分の正体なのだ、おもては陽気に笑い、また人を笑わせているけれども、実は、こんな陰鬱な心を自分は持っているのだ、仕方が無い、とひそかに肯定し、けれどもその絵は、竹一以外の人には、さすがに誰にも見せませんでした。自分のお道化の底の陰惨を見破られ、急にケチくさく警戒せられるのもいやでしたし、また、これを自分の正体とも気づかず、やっぱり新趣向のお道化と見なされ、大笑いの種にせられるかも知れぬという懸念もあり、それは何よりもつらい事でしたので、その絵はすぐに押入れの奥深くしまい込みました。
146+ また、学校の図画の時間にも、自分はあの「お化け式手法」は秘めて、いままでどおりの美しいものを美しく画く式の凡庸なタッチで画いていました。
147+ 自分は竹一にだけは、前から自分の傷み易い神経を平気で見せていましたし、こんどの自画像も安心して竹一に見せ、たいへんほめられ、さらに二枚三枚と、お化けの絵を画きつづけ、竹一からもう一つの、
148+「お前は、偉い絵画きになる」
149+ という予言を得たのでした。
150+ 惚れられるという予言と、偉い絵画きになるという予言と、この二つの予言を馬鹿の竹一に依って額に刻印せられて、やがて、自分は東京へ出て来ました。
151+ 自分は、美術学校にはいりたかったのですが、父は、前から自分を高等学校にいれて、末は官吏にするつもりで、自分にもそれを言い渡してあったので、口応え一つ出来ないたちの自分は、ぼんやりそれに従ったのでした。四年から受けて見よ、と言われたので、自分も桜と海の中学はもういい加減あきていましたし、五年に進級せず、四年修了のままで、東京の高等学校に受験して合格し、すぐに寮生活にはいりましたが、その不潔と粗暴に辟易《へきえき》して、道化どころではなく、医師に肺浸潤の診断書を書いてもらい、寮から出て、上野桜木町の父の別荘に移りました。自分には、団体生活というものが、どうしても出来ません。それにまた、青春の感激だとか、若人の誇りだとかいう言葉は、聞いて寒気がして来て、とても、あの、ハイスクール・スピリットとかいうものには、ついて行けなかったのです。教室も寮も、ゆがめられた性慾の、はきだめみたいな気さえして、自分の完璧《かんぺき》に近いお道化も、そこでは何の役にも立ちませんでした。
152+ 父は議会の無い時は、月に一週間か二週間しかその家に滞在していませんでしたので、父の留守の時は、かなり広いその家に、別荘番の老夫婦と自分と三人だけで、自分は、ちょいちょい学校を休んで、さりとて東京見物などをする気も起らず(自分はとうとう、明治神宮も、楠正成《くすのきまさしげ》の銅像も、泉岳寺の四十七士の墓も見ずに終りそうです)家で一日中、本を読んだり、絵をかいたりしていました。父が上京して来ると、自分は、毎朝そそくさと登校するのでしたが、しかし、本郷千駄木町の洋画家、安田新太郎氏の画塾に行き、三時間も四時間も、デッサンの練習をしている事もあったのです。高等学校の寮から脱けたら、学校の授業に出ても、自分はまるで聴講生みたいな特別の位置にいるような、それは自分のひがみかも知れなかったのですが、何とも自分自身で白々しい気持がして来て、いっそう学校へ行くのが、おっくうになったのでした。自分には、小学校、中学校、高等学校を通じて、ついに愛校心というものが理解できずに終りました。校歌などというものも、いちども覚えようとした事がありません。
153+ 自分は、やがて画塾で、或る画学生から、酒と煙草と淫売婦《いんばいふ》と質屋と左翼思想とを知らされました。妙な取合せでしたが、しかし、それは事実でした。
154+ その画学生は、堀木正雄といって、東京の下町に生れ、自分より六つ年長者で、私立の美術学校を卒業して、家にアトリエが無いので、この画塾に通い、洋画の勉強をつづけているのだそうです。
155+「五円、貸してくれないか」
156+ お互いただ顔を見知っているだけで、それまで一言も話合った事が無かったのです。自分は、へどもどして五円差し出しました。
157+「よし、飲もう。おれが、お前におごるんだ。よかチゴじゃのう」
158+ 自分は拒否し切れず、その画塾の近くの、蓬莱《ほうらい》町のカフエに引っぱって行かれたのが、彼との交友のはじまりでした。
159+「前から、お前に眼をつけていたんだ。それそれ、そのはにかむような微笑、それが見込みのある芸術家特有の表情なんだ。お近づきのしるしに、乾杯! キヌさん、こいつは美男子だろう? 惚れちゃいけないぜ。こいつが塾へ来たおかげで、残念ながらおれは、第二番の美男子という事になった」
160+ 堀木は、色が浅黒く端正な顔をしていて、画学生には珍らしく、ちゃんとした脊広《せびろ》を着て、ネクタイの好みも地味で、そうして頭髪もポマードをつけてまん中からぺったりとわけていました。
161+ 自分は馴れぬ場所でもあり、ただもうおそろしく、腕を組んだりほどいたりして、それこそ、はにかむような微笑ばかりしていましたが、ビイルを二、三杯飲んでいるうちに、妙に解放せられたような軽さを感じて来たのです。
162+「僕は、美術学校にはいろうと思っていたんですけど、……」
163+「いや、つまらん。あんなところは、つまらん。学校は、つまらん。われらの教師は、自然の中にあり! 自然に対するパアトス!」
164+ しかし、自分は、彼の言う事に一向に敬意を感じませんでした。馬鹿なひとだ、絵も下手にちがいない、しかし、遊ぶのには、いい相手かも知れないと考えました。つまり、自分はその時、生れてはじめて、ほんものの都会の与太者を見たのでした。それは、自分と形は違っていても、やはり、この世の人間の営みから完全に遊離してしまって、戸迷いしている点に於いてだけは、たしかに同類なのでした。そうして、彼はそのお道化を意識せずに行い、しかも、そのお道化の悲惨に全く気がついていないのが、自分と本質的に異色のところでした。
165+ ただ遊ぶだけだ、遊びの相手として附合っているだけだ、とつねに彼を軽蔑《けいべつ》し、時には彼との交友を恥ずかしくさえ思いながら、彼と連れ立って歩いているうちに、結局、自分は、この男にさえ打ち破られました。
166+ しかし、はじめは、この男を好人物、まれに見る好人物とばかり思い込み、さすが人間恐怖の自分も全く油断をして、東京のよい案内者が出来た、くらいに思っていました。自分は、実は、ひとりでは、電車に乗ると車掌がおそろしく、歌舞伎座へはいりたくても、あの正面玄関の緋《ひ》の絨緞《じゅうたん》が敷かれてある階段の両側に並んで立っている案内嬢たちがおそろしく、レストランへはいると、自分の背後にひっそり立って、皿のあくのを待っている給仕のボーイがおそろしく、殊にも勘定を払う時、ああ、ぎごちない自分の手つき、自分は買い物をしてお金を手渡す時には、吝嗇《りんしょく》ゆえでなく、あまりの緊張、あまりの恥ずかしさ、あまりの不安、恐怖に、くらくら目まいして、世界が真暗になり、ほとんど半狂乱の気持になってしまって、値切るどころか、お釣を受け取るのを忘れるばかりでなく、買った品物を持ち帰るのを忘れた事さえ、しばしばあったほどなので、とても、ひとりで東京のまちを歩けず、それで仕方なく、一日一ぱい家の中で、ごろごろしていたという内情もあったのでした。
167+ それが、堀木に財布を渡して一緒に歩くと、堀木は大いに値切って、しかも遊び上手というのか、わずかなお金で最大の効果のあるような支払い振りを発揮し、また、高い円タクは敬遠して、電車、バス、ポンポン蒸気など、それぞれ利用し分けて、最短時間で目的地へ着くという手腕をも示し、淫売婦のところから朝帰る途中には、何々という料亭に立ち寄って朝風呂へはいり、湯豆腐で軽くお酒を飲むのが、安い割に、ぜいたくな気分になれるものだと実地教育をしてくれたり、その他、屋台の牛めし焼とりの安価にして滋養に富むものたる事を説き、酔いの早く発するのは、電気ブランの右に出るものはないと保証し、とにかくその勘定に就いては自分に、一つも不安、恐怖を覚えさせた事がありませんでした。
168+ さらにまた、堀木と附合って救われるのは、堀木が聞き手の思惑などをてんで無視して、その所謂|情熱《パトス》の噴出するがままに、(或いは、情熱とは、相手の立場を無視する事かも知れませんが)四六時中、くだらないおしゃべりを続け、あの、二人で歩いて疲れ、気まずい沈黙におちいる危懼《きく》が、全く無いという事でした。人に接し、あのおそろしい沈黙がその場にあらわれる事を警戒して、もともと口の重い自分が、ここを先途《せんど》と必死のお道化を言って来たものですが、いまこの堀木の馬鹿が、意識せずに、そのお道化役をみずからすすんでやってくれているので、自分は、返事もろくにせずに、ただ聞き流し、時折、まさか、などと言って笑っておれば、いいのでした。
169+ 酒、煙草、淫売婦、それは皆、人間恐怖を、たとい一時でも、まぎらす事の出来るずいぶんよい手段である事が、やがて自分にもわかって来ました。それらの手段を求めるためには、自分の持ち物全部を売却しても悔いない気持さえ、抱くようになりました。
170+ 自分には、淫売婦というものが、人間でも、女性でもない、白痴か狂人のように見え、そのふところの中で、自分はかえって全く安心して、ぐっすり眠る事が出来ました。みんな、哀しいくらい、実にみじんも慾というものが無いのでした。そうして、自分に、同類の親和感とでもいったようなものを覚えるのか、自分は、いつも、その淫売婦たちから、窮屈でない程度の自然の好意を示されました。何の打算も無い好意、押し売りでは無い好意、二度と来ないかも知れぬひとへの好意、自分には、その白痴か狂人の淫売婦たちに、マリヤの円光を現実に見た夜もあったのです。
171+ しかし、自分は、人間への恐怖からのがれ、幽かな一夜の休養を求めるために、そこへ行き、それこそ自分と「同類」の淫売婦たちと遊んでいるうちに、いつのまにやら無意識の、或るいまわしい雰囲気を身辺にいつもただよわせるようになった様子で、これは自分にも全く思い設けなかった所謂「おまけの附録」でしたが、次第にその「附録」が、鮮明に表面に浮き上って来て、堀木にそれを指摘せられ、愕然《がくぜん》として、そうして、いやな気が致しました。はたから見て、俗な言い方をすれば、自分は、淫売婦に依って女の修行をして、しかも、最近めっきり腕をあげ、女の修行は、淫売婦に依るのが一ばん厳しく、またそれだけに効果のあがるものだそうで、既に自分には、あの、「女達者」という匂いがつきまとい、女性は、(淫売婦に限らず)本能に依ってそれを嗅ぎ当て寄り添って来る、そのような、卑猥《ひわい》で不名誉な雰囲気を、「おまけの附録」としてもらって、そうしてそのほうが、自分の休養などよりも、ひどく目立ってしまっているらしいのでした。
172+ 堀木はそれを半分はお世辞で言ったのでしょうが、しかし、自分にも、重苦しく思い当る事があり、たとえば、喫茶店の女から稚拙な手紙をもらった覚えもあるし、桜木町の家の隣りの将軍のはたちくらいの娘が、毎朝、自分の登校の時刻には、用も無さそうなのに、ご自分の家の門を薄化粧して出たりはいったりしていたし、牛肉を食いに行くと、自分が黙っていても、そこの女中が、……また、いつも買いつけの煙草屋の娘から手渡された煙草の箱の中に、……また、歌舞伎を見に行って隣りの席のひとに、……また、深夜の市電で自分が酔って眠っていて、……また、思いがけなく故郷の親戚の娘から、思いつめたような手紙が来て、……また、誰かわからぬ娘が、自分の留守中にお手製らしい人形を、……自分が極度に消極的なので、いずれも、それっきりの話で、ただ断片、それ以上の進展は一つもありませんでしたが、何か女に夢を見させる雰囲気が、自分のどこかにつきまとっている事は、それは、のろけだの何だのといういい加減な冗談でなく、否定できないのでありました。自分は、それを堀木ごとき者に指摘せられ、屈辱に似た苦《にが》さを感ずると共に、淫売婦と遊ぶ事にも、にわかに興が覚めました。
173+ 堀木は、また、その見栄坊《みえぼう》のモダニティから、(堀木の場合、それ以外の理由は、自分には今もって考えられませんのですが)或る日、自分を共産主義の読書会とかいう(R・Sとかいっていたか、記憶がはっきり致しません)そんな、秘密の研究会に連れて行きました。堀木などという人物にとっては、共産主義の秘密会合も、れいの「東京案内」の一つくらいのものだったのかも知れません。自分は所謂「同志」に紹介せられ、パンフレットを一部買わされ、そうして上座のひどい醜い顔の青年から、マルクス経済学の講義を受けました。しかし、自分には、それはわかり切っている事のように思われました。それは、そうに違いないだろうけれども、人間の心には、もっとわけのわからない、おそろしいものがある。慾、と言っても、言いたりない、ヴァニティ、と言っても、言いたりない、色と慾、とこう二つ並べても、言いたりない、何だか自分にもわからぬが、人間の世の底に、経済だけでない、へんに怪談じみたものがあるような気がして、その怪談におびえ切っている自分には、所謂唯物論を、水の低きに流れるように自然に肯定しながらも、しかし、それに依って、人間に対する恐怖から解放せられ、青葉に向って眼をひらき、希望のよろこびを感ずるなどという事は出来ないのでした。けれども、自分は、いちども欠席せずに、そのR・S(と言ったかと思いますが、間違っているかも知れません)なるものに出席し、「同志」たちが、いやに一大事の如く、こわばった顔をして、一プラス一は二、というような、ほとんど初等の算術めいた理論の研究にふけっているのが滑稽に見えてたまらず、れいの自分のお道化で、会合をくつろがせる事に努め、そのためか、次第に研究会の窮屈な気配もほぐれ、自分はその会合に無くてかなわぬ人気者という形にさえなって来たようでした。この、単純そうな人たちは、自分の事を、やはりこの人たちと同じ様に単純で、そうして、楽天的なおどけ者の「同志」くらいに考えていたかも知れませんが、もし、そうだったら、自分は、この人たちを一から十まで、あざむいていたわけです。自分は、同志では無かったんです。けれども、その会合に、いつも欠かさず出席して、皆にお道化のサーヴィスをして来ました。
174+ 好きだったからなのです。自分には、その人たちが、気にいっていたからなのです。しかし、それは必ずしも、マルクスに依って結ばれた親愛感では無かったのです。
175+ 非合法。自分には、それが幽かに楽しかったのです。むしろ、居心地がよかったのです。世の中の合法というもののほうが、かえっておそろしく、(それには、底知れず強いものが予感せられます)そのからくりが不可解で、とてもその窓の無い、底冷えのする部屋には坐っておられず、外は非合法の海であっても、それに飛び込んで泳いで、やがて死に到るほうが、自分には、いっそ気楽のようでした。
176+ 日蔭者《ひかげもの》、という言葉があります。人間の世に於いて、みじめな、敗者、悪徳者を指差していう言葉のようですが、自分は、自分を生れた時からの日蔭者[#「生れた時からの日蔭者」に傍点]のような気がしていて、世間から、あれは日蔭者だと指差されている程のひとと逢うと、自分は、必ず、優しい心になるのです。そうして、その自分の「優しい心」は、自身でうっとりするくらい優しい心でした。
177+ また、犯人意識、という言葉もあります。自分は、この人間の世の中に於いて、一生その意識に苦しめられながらも、しかし、それは自分の糟糠《そうこう》の妻の如き好|伴侶《はんりょ》で、そいつと二人きりで侘《わ》びしく遊びたわむれているというのも、自分の生きている姿勢の一つだったかも知れないし、また、俗に、脛《すね》に傷持つ身、という言葉もあるようですが、その傷は、自分の赤ん坊の時から、自然に片方の脛にあらわれて、長ずるに及んで治癒するどころか、いよいよ深くなるばかりで、骨にまで達し、夜々の痛苦は千変万化の地獄とは言いながら、しかし、(これは、たいへん奇妙な言い方ですけど)その傷は、次第に自分の血肉よりも[#「血肉よりも」に傍点]親しくなり、その傷の痛みは、すなわち傷の生きている感情、または愛情の囁《ささや》きのようにさえ思われる、そんな男にとって、れいの地下運動のグルウプの雰囲気が、へんに安心で、居心地がよく、つまり、その運動の本来の目的よりも、その運動の肌が、自分に合った感じなのでした。堀木の場合は、ただもう阿呆のひやかしで、いちど自分を紹介しにその会合へ行ったきりで、マルキシストは、生産面の研究と同時に、消費面の視察も必要だなどと下手な洒落《しゃれ》を言って、その会合には寄りつかず、とかく自分を、その消費面の視察のほうにばかり誘いたがるのでした。思えば、当時は、さまざまの型のマルキシストがいたものです。堀木のように、虚栄のモダニティから、それを自称する者もあり、また自分のように、ただ非合法の匂いが気にいって、そこに坐り込んでいる者もあり、もしもこれらの実体が、マルキシズムの真の信奉者に見破られたら、堀木も自分も、烈火の如く怒られ、卑劣なる裏切者として、たちどころに追い払われた事でしょう。しかし、自分も、また、堀木でさえも、なかなか除名の処分に遭わず、殊にも自分は、その非合法の世界に於いては、合法の紳士たちの世界に於けるよりも、かえってのびのびと、所謂「健康」に振舞う事が出来ましたので、見込みのある「同志」として、噴き出したくなるほど過度に秘密めかした、さまざまの用事をたのまれるほどになったのです。また、事実、自分は、そんな用事をいちども断ったことは無く、平気でなんでも引受け、へんにぎくしゃくして、犬(同志は、ポリスをそう呼んでいました)にあやしまれ不審|訊問《じんもん》などを受けてしくじるような事も無かったし、笑いながら、また、ひとを笑わせながら、そのあぶない(その運動の連中は、一大事の如く緊張し、探偵小説の下手な真似みたいな事までして、極度の警戒を用い、そうして自分にたのむ仕事は、まことに、あっけにとられるくらい、つまらないものでしたが、それでも、彼等は、その用事を、さかんに、あぶながって力んでいるのでした)と、彼等の称する仕事を、とにかく正確にやってのけていました。自分のその当時の気持としては、党員になって捕えられ、たとい終身、刑務所で暮すようになったとしても、平気だったのです。世の中の人間の「実生活」というものを恐怖しながら、毎夜の不眠の地獄で呻《うめ》いているよりは、いっそ牢屋《ろうや》のほうが、楽かも知れないとさえ考えていました。
178+ 父は、桜木町の別荘では、来客やら外出やら、同じ家にいても、三日も四日も自分と顔を合せる事が無いほどでしたが、しかし、どうにも、父がけむったく、おそろしく、この家を出て、どこか下宿でも、と考えながらもそれを言い出せずにいた矢先に、父がその家を売払うつもりらしいという事を別荘番の老爺《ろうや》から聞きました。
179+ 父の議員の任期もそろそろ満期に近づき、いろいろ理由のあった事に違いありませんが、もうこれきり選挙に出る意志も無い様子で、それに、故郷に一棟、隠居所など建てたりして、東京に未練も無いらしく、たかが、高等学校の一生徒に過ぎない自分のために、邸宅と召使いを提供して置くのも、むだな事だとでも考えたのか、(父の心もまた、世間の人たちの気持ちと同様に、自分にはよくわかりません)とにかく、その家は、間も無く人手にわたり、自分は、本郷森川町の仙遊館という古い下宿の、薄暗い部屋に引越して、そうして、たちまち金に困りました。
180+ それまで、父から月々、きまった額の小遣いを手渡され、それはもう、二、三日で無くなっても、しかし、煙草も、酒も、チイズも、くだものも、いつでも家にあったし、本や文房具やその他、服装に関するものなど一切、いつでも、近所の店から所謂「ツケ」で求められたし、堀木におそばか天丼などをごちそうしても、父のひいきの町内の店だったら、自分は黙ってその店を出てもかまわなかったのでした。
181+ それが急に、下宿のひとり住いになり、何もかも、月々の定額の送金で間に合わせなければならなくなって、自分は、まごつきました。送金は、やはり、二、三日で消えてしまい、自分は慄然《りつぜん》とし、心細さのために狂うようになり、父、兄、姉などへ交互にお金を頼む電報と、イサイフミの手紙(その手紙に於いて訴えている事情は、ことごとく、お道化の虚構でした。人にものを頼むのに、まず、その人を笑わせるのが上策と考えていたのです)を連発する一方、また、堀木に教えられ、せっせと質屋がよいをはじめ、それでも、いつもお金に不自由をしていました。
182+ 所詮、自分には、何の縁故も無い下宿に、ひとりで「生活」して行く能力が無かったのです。自分は、下宿のその部屋に、ひとりでじっとしているのが、おそろしく、いまにも誰かに襲われ、一撃せられるような気がして来て、街に飛び出しては、れいの運動の手伝いをしたり、或いは堀木と一緒に安い酒を飲み廻ったりして、ほとんど学業も、また画の勉強も放棄し、高等学校へ入学して、二年目の十一月、自分より年上の有夫の婦人と情死事件などを起し、自分の身の上は、一変しました。
183+ 学校は欠席するし、学科の勉強も、すこしもしなかったのに、それでも、妙に試験の答案に要領のいいところがあるようで、どうやらそれまでは、故郷の肉親をあざむき通して来たのですが、しかし、もうそろそろ、出席日数の不足など、学校のほうから内密に故郷の父へ報告が行っているらしく、父の代理として長兄が、いかめしい文章の長い手紙を、自分に寄こすようになっていたのでした。けれども、それよりも、自分の直接の苦痛は、金の無い事と、それから、れいの運動の用事が、とても遊び半分の気持では出来ないくらい、はげしく、いそがしくなって来た事でした。中央地区と言ったか、何地区と言ったか、とにかく本郷、小石川、下谷、神田、あの辺の学校全部の、マルクス学生の行動隊々長というものに、自分はなっていたのでした。武装|蜂起《ほうき》、と聞き、小さいナイフを買い(いま思えば、それは鉛筆をけずるにも足りない、きゃしゃなナイフでした)それを、レンコオトのポケットにいれ、あちこち飛び廻って、所謂《いわゆる》「聯絡《れんらく》」をつけるのでした。お酒を飲んで、ぐっすり眠りたい、しかし、お金がありません。しかも、P(党の事を、そういう隠語で呼んでいたと記憶していますが、或いは、違っているかも知れません)のほうからは、次々と息をつくひまも無いくらい、用事の依頼がまいります。自分の病弱のからだでは、とても勤まりそうも無くなりました。もともと、非合法の興味だけから、そのグルウプの手伝いをしていたのですし、こんなに、それこそ冗談から駒が出たように、いやにいそがしくなって来ると、自分は、ひそかにPのひとたちに、それはお門《かど》ちがいでしょう、あなたたちの直系のものたちにやらせたらどうですか、というようないまいましい感を抱くのを禁ずる事が出来ず、逃げました。逃げて、さすがに、いい気持はせず、死ぬ事にしました。
184+ その頃、自分に特別の好意を寄せている女が、三人いました。ひとりは、自分の下宿している仙遊館の娘でした。この娘は、自分がれいの運動の手伝いでへとへとになって帰り、ごはんも食べずに寝てしまってから、必ず用箋《ようせん》と万年筆を持って自分の部屋にやって来て、
185+「ごめんなさい。下では、妹や弟がうるさくて、ゆっくり手紙も書けないのです」
186+ と言って、何やら自分の机に向って一時間以上も書いているのです。
187+ 自分もまた、知らん振りをして寝ておればいいのに、いかにもその娘が何か自分に言ってもらいたげの様子なので、れいの受け身の奉仕の精神を発揮して、実に一言も口をききたくない気持なのだけれども、くたくたに疲れ切っているからだに、ウムと気合いをかけて腹這《はらば》いになり、煙草を吸い、
188+「女から来たラヴ・レターで、風呂をわかしてはいった男があるそうですよ」
189+「あら、いやだ。あなたでしょう?」
190+「ミルクをわかして飲んだ事はあるんです」
191+「光栄だわ、飲んでよ」
192+ 早くこのひと、帰らねえかなあ、手紙だなんて、見えすいているのに。へへののもへじでも書いているのに違いないんです。
193+「見せてよ」
194+ と死んでも見たくない思いでそう言えば、あら、いやよ、あら、いやよ、と言って、そのうれしがる事、ひどくみっともなく、興が覚めるばかりなのです。そこで自分は、用事でも言いつけてやれ、と思うんです。
195+「すまないけどね、電車通りの薬屋に行って、カルモチンを買って来てくれない? あんまり疲れすぎて、顔がほてって、かえって眠れないんだ。すまないね。お金は、……」
196+「いいわよ、お金なんか」
197+ よろこんで立ちます。用を言いつけるというのは、決して女をしょげさせる事ではなく、かえって女は、男に用事をたのまれると喜ぶものだという事も、自分はちゃんと知っているのでした。
198+ もうひとりは、女子高等師範の文科生の所謂「同志」でした。このひととは、れいの運動の用事で、いやでも毎日、顔を合せなければならなかったのです。打ち合せがすんでからも、その女は、いつまでも自分について歩いて、そうして、やたらに自分に、ものを買ってくれるのでした。
199+「私を本当の姉だと思っていてくれていいわ」
200+ そのキザに身震いしながら、自分は、
201+「そのつもりでいるんです」
202+ と、愁《うれ》えを含んだ微笑の表情を作って答えます。とにかく、怒らせては、こわい、何とかして、ごまかさなければならぬ、という思い一つのために、自分はいよいよその醜い、いやな女に奉仕をして、そうして、ものを買ってもらっては、(その買い物は、実に趣味の悪い品ばかりで、自分はたいてい、すぐにそれを、焼きとり屋の親爺《おやじ》などにやってしまいました)うれしそうな顔をして、冗談を言っては笑わせ、或る夏の夜、どうしても離れないので、街の暗いところで、そのひとに帰ってもらいたいばかりに、キスをしてやりましたら、あさましく狂乱の如く興奮し、自動車を呼んで、そのひとたちの運動のために秘密に借りてあるらしいビルの事務所みたいな狭い洋室に連れて行き、朝まで大騒ぎという事になり、とんでもない姉だ、と自分はひそかに苦笑しました。
203+ 下宿屋の娘と言い、またこの「同志」と言い、どうしたって毎日、顔を合せなければならぬ具合になっていますので、これまでの、さまざまの女のひとのように、うまく避けられず、つい、ずるずるに、れいの不安の心から、この二人のご機嫌をただ懸命に取り結び、もはや自分は、金縛り同様の形になっていました。
204+ 同じ頃また自分は、銀座の或る大カフエの女給から、思いがけぬ恩を受け、たったいちど逢っただけなのに、それでも、その恩にこだわり、やはり身動き出来ないほどの、心配やら、空《そら》おそろしさを感じていたのでした。その頃になると、自分も、敢えて堀木の案内に頼らずとも、ひとりで電車にも乗れるし、また、歌舞伎座にも行けるし、または、絣《かすり》の着物を着て、カフエにだってはいれるくらいの、多少の図々しさを装えるようになっていたのです。心では、相変らず、人間の自信と暴力とを怪しみ、恐れ、悩みながら、うわべだけは、少しずつ、他人と真顔の挨拶、いや、ちがう、自分はやはり敗北のお道化の苦しい笑いを伴わずには、挨拶できないたちなのですが、とにかく、無我夢中のへどもどの挨拶でも、どうやら出来るくらいの「伎倆《ぎりょう》」を、れいの運動で走り廻ったおかげ? または、女の? または、酒? けれども、おもに金銭の不自由のおかげで修得しかけていたのです。どこにいても、おそろしく、かえって大カフエでたくさんの酔客または女給、ボーイたちにもまれ、まぎれ込む事が出来たら、自分のこの絶えず追われているような心も落ちつくのではなかろうか、と十円持って、銀座のその大カフエに、ひとりではいって、笑いながら相手の女給に、
205+「十円しか無いんだからね、そのつもりで」
206+ と言いました。
207+「心配要りません」
208+ どこかに関西の訛《なま》りがありました。そうして、その一言が、奇妙に自分の、震えおののいている心をしずめてくれました。いいえ、お金の心配が要らなくなったからではありません、そのひとの傍にいる事に心配が要らないような気がしたのです。
209+ 自分は、お酒を飲みました。そのひとに安心しているので、かえってお道化など演じる気持も起らず、自分の地金《じがね》の無口で陰惨なところを隠さず見せて、黙ってお酒を飲みました。
210+「こんなの、おすきか?」
211+ 女は、さまざまの料理を自分の前に並べました。自分は首を振りました。
212+「お酒だけか? うちも飲もう」
213+ 秋の、寒い夜でした。自分は、ツネ子(といったと覚えていますが、記憶が薄れ、たしかではありません。情死の相手の名前をさえ忘れているような自分なのです)に言いつけられたとおりに、銀座裏の、或る屋台のお鮨《すし》やで、少しもおいしくない鮨を食べながら、(そのひとの名前は忘れても、その時の鮨のまずさだけは、どうした事か、はっきり記憶に残っています。そうして、青大将の顔に似た顔つきの、丸坊主のおやじが、首を振り振り、いかにも上手みたいにごまかしながら鮨を握っている様も、眼前に見るように鮮明に思い出され、後年、電車などで、はて見た顔だ、といろいろ考え、なんだ、あの時の鮨やの親爺に似ているんだ、と気が附き苦笑した事も再三あったほどでした。あのひとの名前も、また、顔かたちさえ記憶から遠ざかっている現在なお、あの鮨やの親爺の顔だけは絵にかけるほど正確に覚えているとは、よっぽどあの時の鮨がまずく、自分に寒さと苦痛を与えたものと思われます。もともと、自分は、うまい鮨を食わせる店というところに、ひとに連れられて行って食っても、うまいと思った事は、いちどもありませんでした。大き過ぎるのです。親指くらいの大きさにキチッと握れないものかしら、といつも考えていました)そのひとを、待っていました。
214+ 本所の大工さんの二階を、そのひとが借りていました。自分は、その二階で、日頃の自分の陰鬱な心を少しもかくさず、ひどい歯痛に襲われてでもいるように、片手で頬をおさえながら、お茶を飲みました。そうして、自分のそんな姿態が、かえって、そのひとには、気にいったようでした。そのひとも、身のまわりに冷たい木枯しが吹いて、落葉だけが舞い狂い、完全に孤立している感じの女でした。
215+ 一緒にやすみながらそのひとは、自分より二つ年上であること、故郷は広島、あたしには主人があるのよ、広島で床屋さんをしていたの、昨年の春、一緒に東京へ家出して逃げて来たのだけれども、主人は、東京で、まともな仕事をせずそのうちに詐欺罪に問われ、刑務所にいるのよ、あたしは毎日、何やらかやら差し入れしに、刑務所へかよっていたのだけれども、あすから、やめます、などと物語るのでしたが、自分は、どういうものか、女の身の上|噺《ばなし》というものには、少しも興味を持てないたちで、それは女の語り方の下手なせいか、つまり、話の重点の置き方を間違っているせいなのか、とにかく、自分には、つねに、馬耳東風なのでありました。
216+ 侘びしい。
217+ 自分には、女の千万言の身の上噺よりも、その一言の呟《つぶや》きのほうに、共感をそそられるに違いないと期待していても、この世の中の女から、ついにいちども自分は、その言葉を聞いた事がないのを、奇怪とも不思議とも感じております。けれども、そのひとは、言葉で「侘びしい」とは言いませんでしたが、無言のひどい侘びしさを、からだの外郭に、一寸くらいの幅の気流みたいに持っていて、そのひとに寄り添うと、こちらのからだもその気流に包まれ、自分の持っている多少トゲトゲした陰鬱の気流と程よく溶け合い、「水底の岩に落ち附く枯葉」のように、わが身は、恐怖からも不安からも、離れる事が出来るのでした。
218+ あの白痴の淫売婦たちのふところの中で、安心してぐっすり眠る思いとは、また、全く異って、(だいいち、あのプロステチュウトたちは、陽気でした)その詐欺罪の犯人の妻と過した一夜は、自分にとって、幸福な(こんな大それた言葉を、なんの躊躇《ちゅうちょ》も無く、肯定して使用する事は、自分のこの全手記に於いて、再び無いつもりです)解放せられた夜でした。
219+ しかし、ただ一夜でした。朝、眼が覚めて、はね起き、自分はもとの軽薄な、装えるお道化者になっていました。弱虫は、幸福をさえおそれるものです。綿で怪我をするんです。幸福に傷つけられる事もあるんです。傷つけられないうちに、早く、このまま、わかれたいとあせり、れいのお道化の煙幕を張りめぐらすのでした。
220+「金の切れめが縁の切れめ、ってのはね、あれはね、解釈が逆なんだ。金が無くなると女にふられるって意味、じゃあ無いんだ。男に金が無くなると、男は、ただおのずから意気|銷沈《しょうちん》して、ダメになり、笑う声にも力が無く、そうして、妙にひがんだりなんかしてね、ついには破れかぶれになり、男のほうから女を振る、半狂乱になって振って振って振り抜くという意味なんだね、金沢大辞林という本に依ればね、可哀そうに。僕にも、その気持わかるがね」
221+ たしか、そんなふうの馬鹿げた事を言って、ツネ子を噴き出させたような記憶があります。長居は無用、おそれありと、顔も洗わずに素早く引上げたのですが、その時の自分の、「金の切れめが縁の切れめ」という出鱈目《でたらめ》の放言が、のちに到って、意外のひっかかりを生じたのです。
222+ それから、ひとつき、自分は、その夜の恩人とは逢いませんでした。別れて、日が経つにつれて、よろこびは薄れ、かりそめの恩を受けた事がかえってそらおそろしく、自分勝手にひどい束縛を感じて来て、あのカフエのお勘定を、あの時、全部ツネ子の負担にさせてしまったという俗事さえ、次第に気になりはじめて、ツネ子もやはり、下宿の娘や、あの女子高等師範と同じく、自分を脅迫するだけの女のように思われ、遠く離れていながらも、絶えずツネ子におびえていて、その上に自分は、一緒に休んだ事のある女に、また逢うと、その時にいきなり何か烈火の如く怒られそうな気がしてたまらず、逢うのに頗《すこぶ》るおっくうがる性質でしたので、いよいよ、銀座は敬遠の形でしたが、しかし、そのおっくうがるという性質は、決して自分の狡猾《こうかつ》さではなく、女性というものは、休んでからの事と、朝、起きてからの事との間に、一つの、塵《ちり》ほどの、つながりをも持たせず、完全の忘却の如く、見事に二つの世界を切断させて生きているという不思議な現象を、まだよく呑みこんでいなかったからなのでした。
223+ 十一月の末、自分は、堀木と神田の屋台で安酒を飲み、この悪友は、その屋台を出てからも、さらにどこかで飲もうと主張し、もう自分たちにはお金が無いのに、それでも、飲もう、飲もうよ、とねばるのです。その時、自分は、酔って大胆になっているからでもありましたが、
224+「よし、そんなら、夢の国に連れて行く。おどろくな、酒池肉林という、……」
225+「カフエか?」
226+「そう」
227+「行こう!」
228+ というような事になって二人、市電に乗り、堀木は、はしゃいで、
229+「おれは、今夜は、女に飢え渇いているんだ。女給にキスしてもいいか」
230+ 自分は、堀木がそんな酔態を演じる事を、あまり好んでいないのでした。堀木も、それを知っているので、自分にそんな念を押すのでした。
231+「いいか。キスするぜ。おれの傍に坐った女給に、きっとキスして見せる。いいか」
232+「かまわんだろう」
233+「ありがたい! おれは女に飢え渇いているんだ」
234+ 銀座四丁目で降りて、その所謂酒池肉林の大カフエに、ツネ子をたのみの綱としてほとんど無一文ではいり、あいているボックスに堀木と向い合って腰をおろしたとたんに、ツネ子ともう一人の女給が走り寄って来て、そのもう一人の女給が自分の傍に、そうしてツネ子は、堀木の傍に、ドサンと腰かけたので、自分は、ハッとしました。ツネ子は、いまにキスされる。
235+ 惜しいという気持ではありませんでした。自分には、もともと所有慾というものは薄く、また、たまに幽かに惜しむ気持はあっても、その所有権を敢然と主張し、人と争うほどの気力が無いのでした。のちに、自分は、自分の内縁の妻が犯されるのを、黙って見ていた事さえあったほどなのです。
236+ 自分は、人間のいざこざに出来るだけ触りたくないのでした。その渦に巻き込まれるのが、おそろしいのでした。ツネ子と自分とは、一夜だけの間柄です。ツネ子は、自分のものではありません。惜しい、など思い上った慾は、自分に持てる筈はありません。けれども、自分は、ハッとしました。
237+ 自分の眼の前で、堀木の猛烈なキスを受ける、そのツネ子の身の上を、ふびんに思ったからでした。堀木によごされたツネ子は、自分とわかれなければならなくなるだろう、しかも自分にも、ツネ子を引き留める程のポジティヴな熱は無い、ああ、もう、これでおしまいなのだ、とツネ子の不幸に一瞬ハッとしたものの、すぐに自分は水のように素直にあきらめ、堀木とツネ子の顔を見較べ、にやにやと笑いました。
238+ しかし、事態は、実に思いがけなく、もっと悪く展開せられました。
239+「やめた!」
240+ と堀木は、口をゆがめて言い、
241+「さすがのおれも、こんな貧乏くさい女には、……」
242+ 閉口し切ったように、腕組みしてツネ子をじろじろ眺め、苦笑するのでした。
243+「お酒を。お金は無い」
244+ 自分は、小声でツネ子に言いました。それこそ、浴びるほど飲んでみたい気持でした。所謂俗物の眼から見ると、ツネ子は酔漢のキスにも価いしない、ただ、みすぼらしい、貧乏くさい女だったのでした。案外とも、意外とも、自分には霹靂《へきれき》に撃ちくだかれた思いでした。自分は、これまで例の無かったほど、いくらでも、いくらでも、お酒を飲み、ぐらぐら酔って、ツネ子と顔を見合せ、哀《かな》しく微笑《ほほえ》み合い、いかにもそう言われてみると、こいつはへんに疲れて貧乏くさいだけの女だな、と思うと同時に、金の無い者どうしの親和(貧富の不和は、陳腐のようでも、やはりドラマの永遠のテーマの一つだと自分は今では思っていますが)そいつが、その親和感が、胸に込み上げて来て、ツネ子がいとしく、生れてこの時はじめて、われから積極的に、微弱ながら恋の心の動くのを自覚しました。吐きました。前後不覚になりました。お酒を飲んで、こんなに我を失うほど酔ったのも、その時がはじめてでした。
245+ 眼が覚めたら、枕もとにツネ子が坐っていました。本所の大工さんの二階の部屋に寝ていたのでした。
246+「金の切れめが縁の切れめ、なんておっしゃって、冗談かと思うていたら、本気か。来てくれないのだもの。ややこしい切れめやな。うちが、かせいであげても、だめか」
247+「だめ」
248+ それから、女も休んで、夜明けがた、女の口から「死」という言葉がはじめて出て、女も人間としての営みに疲れ切っていたようでしたし、また、自分も、世の中への恐怖、わずらわしさ、金、れいの運動、女、学業、考えると、とてもこの上こらえて生きて行けそうもなく、そのひとの提案に気軽に同意しました。
249+ けれども、その時にはまだ、実感としての「死のう」という覚悟は、出来ていなかったのです。どこかに「遊び」がひそんでいました。
250+ その日の午前、二人は浅草の六区をさまよっていました。喫茶店にはいり、牛乳を飲みました。
251+「あなた、払うて置いて」
252+ 自分は立って、袂《たもと》からがま口を出し、ひらくと、銅銭が三枚、羞恥《しゅうち》よりも凄惨《せいさん》の思いに襲われ、たちまち脳裡《のうり》に浮ぶものは、仙遊館の自分の部屋、制服と蒲団だけが残されてあるきりで、あとはもう、質草になりそうなものの一つも無い荒涼たる部屋、他には自分のいま着て歩いている絣の着物と、マント、これが自分の現実なのだ、生きて行けない、とはっきり思い知りました。
253+ 自分がまごついているので、女も立って、自分のがま口をのぞいて、
254+「あら、たったそれだけ?」
255+ 無心の声でしたが、これがまた、じんと骨身にこたえるほどに痛かったのです。はじめて自分が、恋したひとの声だけに、痛かったのです。それだけも、これだけもない、銅銭三枚は、どだいお金でありません。それは、自分が未《いま》だかつて味わった事の無い奇妙な屈辱でした。とても生きておられない屈辱でした。所詮《しょせん》その頃の自分は、まだお金持ちの坊ちゃんという種属から脱し切っていなかったのでしょう。その時、自分は、みずからすすんでも死のうと、実感として[#「実感として」に傍点]決意したのです。
256+ その夜、自分たちは、鎌倉の海に飛び込みました。女は、この帯はお店のお友達から借りている帯やから、と言って、帯をほどき、畳んで岩の上に置き、自分もマントを脱ぎ、同じ所に置いて、一緒に入水《じゅすい》しました。
257+ 女のひとは、死にました。そうして、自分だけ助かりました。
258+ 自分が高等学校の生徒ではあり、また父の名にもいくらか、所謂ニュウス・ヴァリュがあったのか、新聞にもかなり大きな問題として取り上げられたようでした。
259+ 自分は海辺の病院に収容せられ、故郷から親戚《しんせき》の者がひとり駈けつけ、さまざまの始末をしてくれて、そうして、くにの父をはじめ一家中が激怒しているから、これっきり生家とは義絶になるかも知れぬ、と自分に申し渡して帰りました。けれども自分は、そんな事より、死んだツネ子が恋いしく、めそめそ泣いてばかりいました。本当に、いままでのひとの中で、あの貧乏くさいツネ子だけを、すきだったのですから。
260+ 下宿の娘から、短歌を五十も書きつらねた長い手紙が来ました。「生きくれよ」というへんな言葉ではじまる短歌ばかり、五十でした。また、自分の病室に、看護婦たちが陽気に笑いながら遊びに来て、自分の手をきゅっと握って帰る看護婦もいました。
261+ 自分の左肺に故障のあるのを、その病院で発見せられ、これがたいへん自分に好都合な事になり、やがて自分が自殺|幇助《ほうじょ》罪という罪名で病院から警察に連れて行かれましたが、警察では、自分を病人あつかいにしてくれて、特に保護室に収容しました。
262+ 深夜、保護室の隣りの宿直室で、寝ずの番をしていた年寄りのお巡《まわ》りが、間のドアをそっとあけ、
263+「おい!」
264+ と自分に声をかけ、
265+「寒いだろう。こっちへ来て、あたれ」
266+ と言いました。
267+ 自分は、わざとしおしおと宿直室にはいって行き、椅子に腰かけて火鉢にあたりました。
268+「やはり、死んだ女が恋いしいだろう」
269+「はい」
270+ ことさらに、消え入るような細い声で返事しました。
271+「そこが、やはり人情というものだ」
272+ 彼は次第に、大きく構えて来ました。
273+「はじめ、女と関係を結んだのは、どこだ」
274+ ほとんど裁判官の如く、もったいぶって尋ねるのでした。彼は、自分を子供とあなどり、秋の夜のつれづれに、あたかも彼自身が取調べの主任でもあるかのように装い、自分から猥談《わいだん》めいた述懐を引き出そうという魂胆のようでした。自分は素早くそれを察し、噴き出したいのを怺《こら》えるのに骨を折りました。そんなお巡りの「非公式な訊問」には、いっさい答を拒否してもかまわないのだという事は、自分も知っていましたが、しかし、秋の夜ながに興を添えるため、自分は、あくまでも神妙に、そのお巡りこそ取調べの主任であって、刑罰の軽重の決定もそのお巡りの思召《おぼしめ》し一つに在るのだ、という事を固く信じて疑わないような所謂誠意をおもてにあらわし、彼の助平の好奇心を、やや満足させる程度のいい加減な「陳述」をするのでした。
275+「うん、それでだいたいわかった。何でも正直に答えると、わしらのほうでも、そこは手心を加える」
276+「ありがとうございます。よろしくお願いいたします」
277+ ほとんど入神の演技でした。そうして、自分のためには、何も、一つも、とくにならない力演なのです。
278+ 夜が明けて、自分は署長に呼び出されました。こんどは、本式の取調べなのです。
279+ ドアをあけて、署長室にはいったとたんに、
280+「おう、いい男だ。これあ、お前が悪いんじゃない。こんな、いい男に産んだお前のおふくろが悪いんだ」
281+ 色の浅黒い、大学出みたいな感じのまだ若い署長でした。いきなりそう言われて自分は、自分の顔の半面にべったり赤痣《あかあざ》でもあるような、みにくい不具者のような、みじめな気がしました。
282+ この柔道か剣道の選手のような署長の取調べは、実にあっさりしていて、あの深夜の老巡査のひそかな、執拗《しつよう》きわまる好色の「取調べ」とは、雲泥の差がありました。訊問がすんで、署長は、検事局に送る書類をしたためながら、
283+「からだを丈夫にしなけれゃ、いかんね。血痰《けったん》が出ているようじゃないか」
284+ と言いました。
285+ その朝、へんに咳《せき》が出て、自分は咳の出るたびに、ハンケチで口を覆っていたのですが、そのハンケチに赤い霰《あられ》が降ったみたいに血がついていたのです。けれども、それは、喉《のど》から出た血ではなく、昨夜、耳の下に出来た小さいおできをいじって、そのおできから出た血なのでした。しかし、自分は、それを言い明さないほうが、便宜な事もあるような気がふっとしたものですから、ただ、
286+「はい」
287+ と、伏眼になり、殊勝げに答えて置きました。
288+ 署長は書類を書き終えて、
289+「起訴になるかどうか、それは検事殿がきめることだが、お前の身元引受人に、電報か電話で、きょう横浜の検事局に来てもらうように、たのんだほうがいいな。誰か、あるだろう、お前の保護者とか保証人とかいうものが」
290+ 父の東京の別荘に出入りしていた書画|骨董《こっとう》商の渋田という、自分たちと同郷人で、父のたいこ持ちみたいな役も勤めていたずんぐりした独身の四十男が、自分の学校の保証人になっているのを、自分は思い出しました。その男の顔が、殊に眼つきが、ヒラメに似ているというので、父はいつもその男をヒラメと呼び、自分も、そう呼びなれていました。
291+ 自分は警察の電話帳を借りて、ヒラメの家の電話番号を捜し、見つかったので、ヒラメに電話して、横浜の検事局に来てくれるように頼みましたら、ヒラメは人が変ったみたいな威張った口調で、それでも、とにかく引受けてくれました。
292+「おい、その電話機、すぐ消毒したほうがいいぜ。何せ、血痰が出ているんだから」
293+ 自分が、また保護室に引き上げてから、お巡りたちにそう言いつけている署長の大きな声が、保護室に坐っている自分の耳にまで、とどきました。
294+ お昼すぎ、自分は、細い麻繩で胴を縛られ、それはマントで隠すことを許されましたが、その麻繩の端を若いお巡りが、しっかり握っていて、二人一緒に電車で横浜に向いました。
295+ けれども、自分には少しの不安も無く、あの警察の保護室も、老巡査もなつかしく、嗚呼《ああ》、自分はどうしてこうなのでしょう、罪人として縛られると、かえってほっとして、そうしてゆったり落ちついて、その時の追憶を、いま書くに当っても、本当にのびのびした楽しい気持になるのです。
296+ しかし、その時期のなつかしい[#「なつかしい」に傍点]思い出の中にも、たった一つ、冷汗三斗の、生涯わすれられぬ悲惨なしくじりがあったのです。自分は、検事局の薄暗い一室で、検事の簡単な取調べを受けました。検事は四十歳前後の物静かな、(もし自分が美貌だったとしても、それは謂《い》わば邪淫の美貌だったに違いありませんが、その検事の顔は、正しい美貌、とでも言いたいような、聡明な静謐《せいひつ》の気配を持っていました)コセコセしない人柄のようでしたので、自分も全く警戒せず、ぼんやり陳述していたのですが、突然、れいの咳が出て来て、自分は袂からハンケチを出し、ふとその血を見て、この咳もまた何かの役に立つかも知れぬとあさましい駈引きの心を起し、ゴホン、ゴホンと二つばかり、おまけの贋《にせ》の咳を大袈裟《おおげさ》に附け加えて、ハンケチで口を覆ったまま検事の顔をちらと見た、間一髪、
297+「ほんとうかい?」
298+ ものしずかな微笑でした。冷汗三斗、いいえ、いま思い出しても、きりきり舞いをしたくなります。中学時代に、あの馬鹿の竹一から、ワザ、ワザ、と言われて脊中《せなか》を突かれ、地獄に蹴落《けおと》された、その時の思い以上と言っても、決して過言では無い気持です。あれと、これと、二つ、自分の生涯に於ける演技の大失敗の記録です。検事のあんな物静かな侮蔑《ぶべつ》に遭うよりは、いっそ自分は十年の刑を言い渡されたほうが、ましだったと思う事さえ、時たまある程なのです。
299+ 自分は起訴猶予になりました。けれども一向にうれしくなく、世にもみじめな気持で、検事局の控室のベンチに腰かけ、引取り人のヒラメが来るのを待っていました。
300+ 背後の高い窓から夕焼けの空が見え、鴎《かもめ》が、「女」という字みたいな形で飛んでいました。
301+[#改頁]
302+
303+
304+
305+[#3字下げ]第三の手記[#「第三の手記」は大見出し]
306+
307+
308+[#5字下げ]一[#「一」は中見出し]
309+
310+ 竹一の予言の、一つは当り、一つは、はずれました。惚《ほ》れられるという、名誉で無い予言のほうは、あたりましたが、きっと偉い絵画きになるという、祝福の予言は、はずれました。
311+ 自分は、わずかに、粗悪な雑誌の、無名の下手な漫画家になる事が出来ただけでした。
312+ 鎌倉の事件のために、高等学校からは追放せられ、自分は、ヒラメの家の二階の、三畳の部屋で寝起きして、故郷からは月々、極めて小額の金が、それも直接に自分宛ではなく、ヒラメのところにひそかに送られて来ている様子でしたが、(しかも、それは故郷の兄たちが、父にかくして送ってくれているという形式になっていたようでした)それっきり、あとは故郷とのつながりを全然、断ち切られてしまい、そうして、ヒラメはいつも不機嫌、自分があいそ笑いをしても、笑わず、人間というものはこんなにも簡単に、それこそ手のひらをかえすが如くに変化できるものかと、あさましく、いや、むしろ滑稽に思われるくらいの、ひどい変り様で、
313+「出ちゃいけませんよ。とにかく、出ないで下さいよ」
314+ そればかり自分に言っているのでした。
315+ ヒラメは、自分に自殺のおそれありと、にらんでいるらしく、つまり、女の後を追ってまた海へ飛び込んだりする危険があると見てとっているらしく、自分の外出を固く禁じているのでした。けれども、酒も飲めないし、煙草も吸えないし、ただ、朝から晩まで二階の三畳のこたつにもぐって、古雑誌なんか読んで阿呆同然のくらしをしている自分には、自殺の気力さえ失われていました。
316+ ヒラメの家は、大久保の医専の近くにあり、書画骨董商、青竜園、だなどと看板の文字だけは相当に気張っていても、一棟二戸の、その一戸で、店の間口も狭く、店内はホコリだらけで、いい加減なガラクタばかり並べ、(もっとも、ヒラメはその店のガラクタにたよって商売しているわけではなく、こっちの所謂旦那の秘蔵のものを、あっちの所謂旦那にその所有権をゆずる場合などに活躍して、お金をもうけているらしいのです)店に坐っている事は殆ど無く、たいてい朝から、むずかしそうな顔をしてそそくさと出かけ、留守は十七、八の小僧ひとり、これが自分の見張り番というわけで、ひまさえあれば近所の子供たちと外でキャッチボールなどしていても、二階の居候をまるで馬鹿か気違いくらいに思っているらしく、大人《おとな》の説教くさい事まで自分に言い聞かせ、自分は、ひとと言い争いの出来ない質《たち》なので、疲れたような、また、感心したような顔をしてそれに耳を傾け、服従しているのでした。この小僧は渋田のかくし子で、それでもへんな事情があって、渋田は所謂親子の名乗りをせず、また渋田がずっと独身なのも、何やらその辺に理由があっての事らしく、自分も以前、自分の家の者たちからそれに就いての噂《うわさ》を、ちょっと聞いたような気もするのですが、自分は、どうも他人の身の上には、あまり興味を持てないほうなので、深い事は何も知りません。しかし、その小僧の眼つきにも、妙に魚の眼を聯想《れんそう》させるところがありましたから、或いは、本当にヒラメのかくし子、……でも、それならば、二人は実に淋しい親子でした。夜おそく、二階の自分には内緒で、二人でおそばなどを取寄せて無言で食べている事がありました。
317+ ヒラメの家では食事はいつもその小僧がつくり、二階のやっかい者の食事だけは別にお膳《ぜん》に載せて小僧が三度々々二階に持ち運んで来てくれて、ヒラメと小僧は、階段の下のじめじめした四畳半で何やら、カチャカチャ皿小鉢の触れ合う音をさせながら、いそがしげに食事しているのでした。
318+ 三月末の或る夕方、ヒラメは思わぬもうけ口にでもありついたのか、または何か他に策略でもあったのか、(その二つの推察が、ともに当っていたとしても、おそらくは、さらにまたいくつかの、自分などにはとても推察のとどかないこまかい原因もあったのでしょうが)自分を階下の珍らしくお銚子《ちょうし》など附いている食卓に招いて、ヒラメならぬマグロの刺身に、ごちそうの主人《あるじ》みずから感服し、賞讃《しょうさん》し、ぼんやりしている居候にも少しくお酒をすすめ、
319+「どうするつもりなんです、いったい、これから」
320+ 自分はそれに答えず、卓上の皿から畳鰯《たたみいわし》をつまみ上げ、その小魚たちの銀の眼玉を眺めていたら、酔いがほのぼの発して来て、遊び廻っていた頃がなつかしく、堀木でさえなつかしく、つくづく「自由」が欲しくなり、ふっと、かぼそく泣きそうになりました。
321+ 自分がこの家へ来てからは、道化を演ずる張合いさえ無く、ただもうヒラメと小僧の蔑視の中に身を横たえ、ヒラメのほうでもまた、自分と打ち解けた長噺をするのを避けている様子でしたし、自分もそのヒラメを追いかけて何かを訴える気などは起らず、ほとんど自分は、間抜けづらの居候になり切っていたのです。
322+「起訴猶予というのは、前科何犯とか、そんなものには、ならない模様です。だから、まあ、あなたの心掛け一つで、更生が出来るわけです。あなたが、もし、改心して、あなたのほうから、真面目に私に相談を持ちかけてくれたら、私も考えてみます」
323+ ヒラメの話方には、いや、世の中の全部の人の話方には、このようにややこしく、どこか朦朧《もうろう》として、逃腰とでもいったみたいな微妙な複雑さがあり、そのほとんど無益と思われるくらいの厳重な警戒と、無数といっていいくらいの小うるさい駈引とには、いつも自分は当惑し、どうでもいいやという気分になって、お道化で茶化したり、または無言の首肯で一さいおまかせという、謂わば敗北の態度をとってしまうのでした。
324+ この時もヒラメが、自分に向って、だいたい次のように簡単に報告すれば、それですむ事だったのを自分は後年に到って知り、ヒラメの不必要な用心、いや、世の中の人たちの不可解な見栄、おていさいに、何とも陰鬱な思いをしました。
325+ ヒラメは、その時、ただこう言えばよかったのでした。
326+「官立でも私立でも、とにかく四月から、どこかの学校へはいりなさい。あなたの生活費は、学校へはいると、くにから、もっと充分に送って来る事になっているのです。」
327+ ずっと後になってわかったのですが、事実は、そのようになっていたのでした。そうして、自分もその言いつけに従ったでしょう。それなのに、ヒラメのいやに用心深く持って廻った言い方のために、妙にこじれ、自分の生きて行く方向もまるで変ってしまったのです。
328+「真面目に私に相談を持ちかけてくれる気持が無ければ、仕様がないですが」
329+「どんな相談?」
330+ 自分には、本当に何も見当がつかなかったのです。
331+「それは、あなたの胸にある事でしょう?」
332+「たとえば?」
333+「たとえばって、あなた自身、これからどうする気なんです」
334+「働いたほうが、いいんですか?」
335+「いや、あなたの気持は、いったいどうなんです」
336+「だって、学校へはいるといったって、……」
337+「そりゃ、お金が要ります。しかし、問題は、お金でない。あなたの気持です」
338+ お金は、くにから来る事になっているんだから、となぜ一こと、言わなかったのでしょう。その一言に依って、自分の気持も、きまった筈なのに、自分には、ただ五里霧中でした。
339+「どうですか? 何か、将来の希望、とでもいったものが、あるんですか? いったい、どうも、ひとをひとり世話しているというのは、どれだけむずかしいものだか、世話されているひとには、わかりますまい」
340+「すみません」
341+「そりゃ実に、心配なものです。私も、いったんあなたの世話を引受けた以上、あなたにも、生半可《なまはんか》な気持でいてもらいたくないのです。立派に更生の道をたどる、という覚悟のほどを見せてもらいたいのです。たとえば、あなたの将来の方針、それに就いてあなたのほうから私に、まじめに相談を持ちかけて来たなら、私もその相談には応ずるつもりでいます。それは、どうせこんな、貧乏なヒラメの援助なのですから、以前のようなぜいたくを望んだら、あてがはずれます。しかし、あなたの気持がしっかりしていて、将来の方針をはっきり打ち樹《た》て、そうして私に相談をしてくれたら、私は、たといわずかずつでも、あなたの更生のために、お手伝いしようとさえ思っているんです。わかりますか? 私の気持が。いったい、あなたは、これから、どうするつもりでいるのです」
342+「ここの二階に、置いてもらえなかったら、働いて、……」
343+「本気で、そんな事を言っているのですか? いまのこの世の中に、たとい帝国大学校を出たって、……」
344+「いいえ、サラリイマンになるんでは無いんです」
345+「それじゃ、何です」
346+「画家です」
347+ 思い切って、それを言いました。
348+「へええ?」
349+ 自分は、その時の、頸《くび》をちぢめて笑ったヒラメの顔の、いかにもずるそうな影を忘れる事が出来ません。軽蔑の影にも似て、それとも違い、世の中を海にたとえると、その海の千尋《ちひろ》の深さの箇所に、そんな奇妙な影がたゆとうていそうで、何か、おとなの生活の奥底をチラと覗《のぞ》かせたような笑いでした。
350+ そんな事では話にも何もならぬ、ちっとも気持がしっかりしていない、考えなさい、今夜一晩まじめに考えてみなさい、と言われ、自分は追われるように二階に上って、寝ても、別に何の考えも浮びませんでした。そうして、あけがたになり、ヒラメの家から逃げました。
351+ 夕方、間違いなく帰ります。左記の友人の許《もと》へ、将来の方針に就いて相談に行って来るのですから、御心配無く。ほんとうに。
352+ と、用箋に鉛筆で大きく書き、それから、浅草の堀木正雄の住所姓名を記して、こっそり、ヒラメの家を出ました。
353+ ヒラメに説教せられたのが、くやしくて逃げたわけではありませんでした。まさしく自分は、ヒラメの言うとおり、気持のしっかりしていない男で、将来の方針も何も自分にはまるで見当がつかず、この上、ヒラメの家のやっかいになっているのは、ヒラメにも気の毒ですし、そのうちに、もし万一、自分にも発奮の気持が起り、志を立てたところで、その更生資金をあの貧乏なヒラメから月々援助せられるのかと思うと、とても心苦しくて、いたたまらない気持になったからでした。
354+ しかし、自分は、所謂「将来の方針」を、堀木ごときに、相談に行こうなどと本気に思って、ヒラメの家を出たのでは無かったのでした。それは、ただ、わずかでも、つかのまでも、ヒラメに安心させて置きたくて、(その間に自分が、少しでも遠くへ逃げのびていたいという探偵小説的な策略から、そんな置手紙を書いた、というよりは、いや、そんな気持も幽《かす》かにあったに違いないのですが、それよりも、やはり自分は、いきなりヒラメにショックを与え、彼を混乱当惑させてしまうのが、おそろしかったばかりに、とでも言ったほうが、いくらか正確かも知れません。どうせ、ばれるにきまっているのに、そのとおりに言うのが、おそろしくて、必ず何かしら飾りをつけるのが、自分の哀しい性癖の一つで、それは世間の人が「嘘つき」と呼んで卑しめている性格に似ていながら、しかし、自分は自分に利益をもたらそうとしてその飾りつけを行った事はほとんど無く、ただ雰囲気《ふんいき》の興覚めた一変が、窒息するくらいにおそろしくて、後で自分に不利益になるという事がわかっていても、れいの自分の「必死の奉仕」それはたといゆがめられ微弱で、馬鹿らしいものであろうと、その奉仕の気持から、つい一言の飾りつけをしてしまうという場合が多かったような気もするのですが、しかし、この習性もまた、世間の所謂「正直者」たちから、大いに乗ぜられるところとなりました)その時、ふっと、記憶の底から浮んで来たままに堀木の住所と姓名を、用箋の端にしたためたまでの事だったのです。
355+ 自分はヒラメの家を出て、新宿まで歩き、懐中の本を売り、そうして、やっぱり途方にくれてしまいました。自分は、皆にあいそがいいかわりに、「友情」というものを、いちども実感した事が無く、堀木のような遊び友達は別として、いっさいの附き合いは、ただ苦痛を覚えるばかりで、その苦痛をもみほぐそうとして懸命にお道化を演じて、かえって、へとへとになり、わずかに知合っているひとの顔を、それに似た顔をさえ、往来などで見掛けても、ぎょっとして、一瞬、めまいするほどの不快な戦慄に襲われる有様で、人に好かれる事は知っていても、人を愛する能力に於《お》いては欠けているところがあるようでした。(もっとも、自分は、世の中の人間にだって、果して、「愛」の能力があるのかどうか、たいへん疑問に思っています)そのような自分に、所謂「親友」など出来る筈は無く、そのうえ自分には、「訪問《ヴィジット》」の能力さえ無かったのです。他人の家の門は、自分にとって、あの神曲の地獄の門以上に薄気味わるく、その門の奥には、おそろしい竜みたいな生臭い奇獣がうごめいている気配を、誇張でなしに、実感せられていたのです。
356+ 誰とも、附き合いが無い。どこへも、訪ねて行けない。
357+ 堀木。
358+ それこそ、冗談から駒が出た形でした。あの置手紙に、書いたとおりに、自分は浅草の堀木をたずねて行く事にしたのです。自分はこれまで、自分のほうから堀木の家をたずねて行った事は、いちども無く、たいてい電報で堀木を自分のほうに呼び寄せていたのですが、いまはその電報料さえ心細く、それに落ちぶれた身のひがみから、電報を打っただけでは、堀木は、来てくれぬかも知れぬと考えて、何よりも自分に苦手の「訪問」を決意し、溜息《ためいき》をついて市電に乗り、自分にとって、この世の中でたった一つの頼みの綱は、あの堀木なのか、と思い知ったら、何か脊筋《せすじ》の寒くなるような凄《すさま》じい気配に襲われました。
359+ 堀木は、在宅でした。汚い露路の奥の、二階家で、堀木は二階のたった一部屋の六畳を使い、下では、堀木の老父母と、それから若い職人と三人、下駄の鼻緒を縫ったり叩いたりして製造しているのでした。
360+ 堀木は、その日、彼の都会人としての新しい一面を自分に見せてくれました。それは、俗にいうチャッカリ性でした。田舎者の自分が、愕然《がくぜん》と眼をみはったくらいの、冷たく、ずるいエゴイズムでした。自分のように、ただ、とめどなく流れるたちの男では無かったのです。
361+「お前には、全く呆《あき》れた。親爺さんから、お許しが出たかね。まだかい」
362+ 逃げて来た、とは、言えませんでした。
363+ 自分は、れいに依って、ごまかしました。いまに、すぐ、堀木に気附かれるに違いないのに、ごまかしました。
364+「それは、どうにかなるさ」
365+「おい、笑いごとじゃ無いぜ。忠告するけど、馬鹿もこのへんでやめるんだな。おれは、きょうは、用事があるんだがね。この頃、ばかにいそがしいんだ」
366+「用事って、どんな?」
367+「おい、おい、座蒲団の糸を切らないでくれよ」
368+ 自分は話をしながら、自分の敷いている座蒲団の綴糸《とじいと》というのか、くくり紐《ひも》というのか、あの総《ふさ》のような四隅の糸の一つを無意識に指先でもてあそび、ぐいと引っぱったりなどしていたのでした。堀木は、堀木の家の品物なら、座蒲団の糸一本でも惜しいらしく、恥じる色も無く、それこそ、眼に角《かど》を立てて、自分をとがめるのでした。考えてみると、堀木は、これまで自分との附合いに於いて何一つ失ってはいなかったのです。
369+ 堀木の老母が、おしるこを二つお盆に載せて持って来ました。
370+「あ、これは」
371+ と堀木は、しんからの孝行息子のように、老母に向って恐縮し、言葉づかいも不自然なくらい丁寧に、
372+「すみません、おしるこですか。豪気だなあ。こんな心配は、要らなかったんですよ。用事で、すぐ外出しなけれゃいけないんですから。いいえ、でも、せっかくの御自慢のおしるこを、もったいない。いただきます。お前も一つ、どうだい。おふくろが、わざわざ作ってくれたんだ。ああ、こいつあ、うめえや。豪気だなあ」
373+ と、まんざら芝居でも無いみたいに、ひどく喜び、おいしそうに食べるのです。自分もそれを啜《すす》りましたが、お湯のにおいがして、そうして、お餅をたべたら、それはお餅でなく、自分にはわからないものでした。決して、その貧しさを軽蔑したのではありません。(自分は、その時それを、不味《まず》いとは思いませんでしたし、また、老母の心づくしも身にしみました。自分には、貧しさへの恐怖感はあっても、軽蔑感は、無いつもりでいます)あのおしること、それから、そのおしるこを喜ぶ堀木に依って、自分は、都会人のつましい本性、また、内と外をちゃんと区別していとなんでいる東京の人の家庭の実体を見せつけられ、内も外も変りなく、ただのべつ幕無しに人間の生活から逃げ廻ってばかりいる薄馬鹿の自分ひとりだけ完全に取残され、堀木にさえ見捨てられたような気配に、狼狽《ろうばい》し、おしるこのはげた塗箸《ぬりばし》をあつかいながら、たまらなく侘《わ》びしい思いをしたという事を、記して置きたいだけなのです。
374+「わるいけど、おれは、きょうは用事があるんでね」
375+ 堀木は立って、上衣を着ながらそう言い、
376+「失敬するぜ、わるいけど」
377+ その時、堀木に女の訪問者があり、自分の身の上も急転しました。
378+ 堀木は、にわかに活気づいて、
379+「や、すみません。いまね、あなたのほうへお伺いしようと思っていたのですがね、このひとが突然やって来て、いや、かまわないんです。さあ、どうぞ」
380+ よほど、あわてているらしく、自分が自分の敷いている座蒲団をはずして裏がえしにして差し出したのを引ったくって、また裏がえしにして、その女のひとにすすめました。部屋には、堀木の座蒲団の他には、客座蒲団がたった一枚しか無かったのです。
381+ 女のひとは痩《や》せて、脊の高いひとでした。その座蒲団は傍にのけて、入口ちかくの片隅に坐りました。
382+ 自分は、ぼんやり二人の会話を聞いていました。女は雑誌社のひとのようで、堀木にカットだか、何だかをかねて頼んでいたらしく、それを受取りに来たみたいな具合いでした。
383+「いそぎますので」
384+「出来ています。もうとっくに出来ています。これです、どうぞ」
385+ 電報が来ました。
386+ 堀木が、それを読み、上機嫌のその顔がみるみる険悪になり、
387+「ちぇっ! お前、こりゃ、どうしたんだい」
388+ ヒラメからの電報でした。
389+「とにかく、すぐに帰ってくれ。おれが、お前を送りとどけるといいんだろうが、おれにはいま、そんなひまは、無えや。家出していながら、その、のんきそうな面《つら》ったら」
390+「お宅は、どちらなのですか?」
391+「大久保です」
392+ ふいと答えてしまいました。
393+「そんなら、社の近くですから」
394+ 女は、甲州の生れで二十八歳でした。五つになる女児と、高円寺のアパートに住んでいました。夫と死別して、三年になると言っていました。
395+「あなたは、ずいぶん苦労して育って来たみたいなひとね。よく気がきくわ。可哀そうに」
396+ はじめて、男めかけみたいな生活をしました。シヅ子(というのが、その女記者の名前でした)が新宿の雑誌社に勤めに出たあとは、自分とそれからシゲ子という五つの女児と二人、おとなしくお留守番という事になりました。それまでは、母の留守には、シゲ子はアパートの管理人の部屋で遊んでいたようでしたが、「気のきく」おじさんが遊び相手として現われたので、大いに御機嫌がいい様子でした。
397+ 一週間ほど、ぼんやり、自分はそこにいました。アパートの窓のすぐ近くの電線に、奴凧《やっこだこ》が一つひっからまっていて、春のほこり風に吹かれ、破られ、それでもなかなか、しつっこく電線にからみついて離れず、何やら首肯《うなず》いたりなんかしているので、自分はそれを見る度毎に苦笑し、赤面し、夢にさえ見て、うなされました。
398+「お金が、ほしいな」
399+「……いくら位?」
400+「たくさん。……金の切れ目が、縁の切れ目、って、本当の事だよ」
401+「ばからしい。そんな、古くさい、……」
402+「そう? しかし、君には、わからないんだ。このままでは、僕は、逃げる事になるかも知れない」
403+「いったい、どっちが貧乏なのよ。そうして、どっちが逃げるのよ。へんねえ」
404+「自分でかせいで、そのお金で、お酒、いや、煙草を買いたい。絵だって僕は、堀木なんかより、ずっと上手なつもりなんだ」
405+ このような時、自分の脳裡におのずから浮びあがって来るものは、あの中学時代に画いた竹一の所謂「お化け」の、数枚の自画像でした。失われた傑作。それは、たびたびの引越しの間に、失われてしまっていたのですが、あれだけは、たしかに優れている絵だったような気がするのです。その後、さまざま画いてみても、その思い出の中の逸品には、遠く遠く及ばず、自分はいつも、胸がからっぽになるような、だるい喪失感になやまされ続けて来たのでした。
406+ 飲み残した一杯のアブサン。
407+ 自分は、その永遠に償い難いような喪失感を、こっそりそう形容していました。絵の話が出ると、自分の眼前に、その飲み残した一杯のアブサンがちらついて来て、ああ、あの絵をこのひとに見せてやりたい、そうして、自分の画才を信じさせたい、という焦燥《しょうそう》にもだえるのでした。
408+「ふふ、どうだか。あなたは、まじめな顔をして冗談を言うから可愛い」
409+ 冗談ではないのだ、本当なんだ、ああ、あの絵を見せてやりたい、と空転の煩悶《はんもん》をして、ふいと気をかえ、あきらめて、
410+「漫画さ。すくなくとも、漫画なら、堀木よりは、うまいつもりだ」
411+ その、ごまかしの道化の言葉のほうが、かえってまじめに信ぜられました。
412+「そうね。私も、実は感心していたの。シゲ子にいつもかいてやっている漫画、つい私まで噴き出してしまう。やってみたら、どう? 私の社の編輯長《へんしゅうちょう》に、たのんでみてあげてもいいわ」
413+ その社では、子供相手のあまり名前を知られていない月刊の雑誌を発行していたのでした。
414+ ……あなたを見ると、たいていの女のひとは、何かしてあげたくて、たまらなくなる。……いつも、おどおどしていて、それでいて、滑稽家なんだもの。……時たま、ひとりで、ひどく沈んでいるけれども、そのさまが、いっそう女のひとの心を、かゆがらせる。
415+ シヅ子に、そのほかさまざまの事を言われて、おだてられても、それが即《すなわ》ち男めかけのけがらわしい特質なのだ、と思えば、それこそいよいよ「沈む」ばかりで、一向に元気が出ず、女よりは金、とにかくシヅ子からのがれて自活したいとひそかに念じ、工夫しているものの、かえってだんだんシヅ子にたよらなければならぬ破目になって、家出の後仕末やら何やら、ほとんど全部、この男まさりの甲州女の世話を受け、いっそう自分は、シヅ子に対し、所謂「おどおど」しなければならぬ結果になったのでした。
416+ シヅ子の取計らいで、ヒラメ、堀木、それにシヅ子、三人の会談が成立して、自分は、故郷から全く絶縁せられ、そうしてシヅ子と「天下晴れて」同棲《どうせい》という事になり、これまた、シヅ子の奔走のおかげで自分の漫画も案外お金になって、自分はそのお金で、お酒も、煙草も買いましたが、自分の心細さ、うっとうしさは、いよいよつのるばかりなのでした。それこそ「沈み」に「沈み」切って、シヅ子の雑誌の毎月の連載漫画「キンタさんとオタさんの冒険」を画いていると、ふいと故郷の家が思い出され、あまりの侘びしさに、ペンが動かなくなり、うつむいて涙をこぼした事もありました。
417+ そういう時の自分にとって、幽かな救いは、シゲ子でした。シゲ子は、その頃になって自分の事を、何もこだわらずに「お父ちゃん」と呼んでいました。
418+「お父ちゃん。お祈りをすると、神様が、何でも下さるって、ほんとう?」
419+ 自分こそ、そのお祈りをしたいと思いました。
420+ ああ、われに冷き意志を与え給え。われに、「人間」の本質を知らしめ給え。人が人を押しのけても、罪ならずや。われに、怒りのマスクを与え給え。
421+「うん、そう。シゲちゃんには何でも下さるだろうけれども、お父ちゃんには、駄目かも知れない」
422+ 自分は神にさえ、おびえていました。神の愛は信ぜられず、神の罰だけを信じているのでした。信仰。それは、ただ神の笞《むち》を受けるために、うなだれて審判の台に向う事のような気がしているのでした。地獄は信ぜられても、天国の存在は、どうしても信ぜられなかったのです。
423+「どうして、ダメなの?」
424+「親の言いつけに、そむいたから」
425+「そう? お父ちゃんはとてもいいひとだって、みんな言うけどな」
426+ それは、だましているからだ、このアパートの人たち皆に、自分が好意を示されているのは、自分も知っている、しかし、自分は、どれほど皆を恐怖しているか、恐怖すればするほど好かれ、そうして、こちらは好かれると好かれるほど恐怖し、皆から離れて行かねばならぬ、この不幸な病癖を、シゲ子に説明して聞かせるのは、至難の事でした。
427+「シゲちゃんは、いったい、神様に何をおねだりしたいの?」
428+ 自分は、何気無さそうに話頭を転じました。
429+「シゲ子はね、シゲ子の本当のお父ちゃんがほしいの」
430+ ぎょっとして、くらくら目まいしました。敵。自分がシゲ子の敵なのか、シゲ子が自分の敵なのか、とにかく、ここにも自分をおびやかすおそろしい大人がいたのだ、他人、不可解な他人、秘密だらけの他人、シゲ子の顔が、にわかにそのように見えて来ました。
431+ シゲ子だけは、と思っていたのに、やはり、この者も、あの「不意に虻《あぶ》を叩き殺す牛のしっぽ」を持っていたのでした。自分は、それ以来、シゲ子にさえおどおどしなければならなくなりました。
432+「色魔《しきま》! いるかい?」
433+ 堀木が、また自分のところへたずねて来るようになっていたのです。あの家出の日に、あれほど自分を淋しくさせた男なのに、それでも自分は拒否できず、幽かに笑って迎えるのでした。
434+「お前の漫画は、なかなか人気が出ているそうじゃないか。アマチュアには、こわいもの知らずの糞度胸《くそどきょう》があるからかなわねえ。しかし、油断するなよ。デッサンが、ちっともなってやしないんだから」
435+ お師匠みたいな態度をさえ示すのです。自分のあの「お化け」の絵を、こいつに見せたら、どんな顔をするだろう、とれいの空転の身悶《みもだ》えをしながら、
436+「それを言ってくれるな。ぎゃっという悲鳴が出る」
437+ 堀木は、いよいよ得意そうに、
438+「世渡りの才能だけでは、いつかは、ボロが出るからな」
439+ 世渡りの才能。……自分には、ほんとうに苦笑の他はありませんでした。自分に、世渡りの才能! しかし、自分のように人間をおそれ、避け、ごまかしているのは、れいの俗諺《ぞくげん》の「さわらぬ神にたたりなし」とかいう怜悧《れいり》狡猾《こうかつ》の処生訓を遵奉しているのと、同じ形だ、という事になるのでしょうか。ああ、人間は、お互い何も相手をわからない、まるっきり間違って見ていながら、無二の親友のつもりでいて、一生、それに気附かず、相手が死ねば、泣いて弔詞なんかを読んでいるのではないでしょうか。
440+ 堀木は、何せ、(それはシヅ子に押してたのまれてしぶしぶ引受けたに違いないのですが)自分の家出の後仕末に立ち合ったひとなので、まるでもう、自分の更生の大恩人か、月下氷人のように振舞い、もっともらしい顔をして自分にお説教めいた事を言ったり、また、深夜、酔っぱらって訪問して泊ったり、また、五円(きまって五円でした)借りて行ったりするのでした。
441+「しかし、お前の、女道楽もこのへんでよすんだね。これ以上は、世間が、ゆるさないからな」
442+ 世間とは、いったい、何の事でしょう。人間の複数でしょうか。どこに、その世間というものの実体があるのでしょう。けれども、何しろ、強く、きびしく、こわいもの、とばかり思ってこれまで生きて来たのですが、しかし、堀木にそう言われて、ふと、
443+「世間というのは、君じゃないか」
444+ という言葉が、舌の先まで出かかって、堀木を怒らせるのがイヤで、ひっこめました。
445+(それは世間が、ゆるさない)
446+(世間じゃない。あなたが、ゆるさないのでしょう?)
447+(そんな事をすると、世間からひどいめに逢うぞ)
448+(世間じゃない。あなたでしょう?)
449+(いまに世間から葬られる)
450+(世間じゃない。葬むるのは、あなたでしょう?)
451+ 汝《なんじ》は、汝個人のおそろしさ、怪奇、悪辣《あくらつ》、古狸《ふるだぬき》性、妖婆《ようば》性を知れ! などと、さまざまの言葉が胸中に去来したのですが、自分は、ただ顔の汗をハンケチで拭いて、
452+「冷汗《ひやあせ》、冷汗」
453+ と言って笑っただけでした。
454+ けれども、その時以来、自分は、(世間とは個人じゃないか)という、思想めいたものを持つようになったのです。
455+ そうして、世間というものは、個人ではなかろうかと思いはじめてから、自分は、いままでよりは多少、自分の意志で動く事が出来るようになりました。シヅ子の言葉を借りて言えば、自分は少しわがままになり、おどおどしなくなりました。また、堀木の言葉を借りて言えば、へんにケチになりました。また、シゲ子の言葉を借りて言えば、あまりシゲ子を可愛がらなくなりました。
456+ 無口で、笑わず、毎日々々、シゲ子のおもりをしながら、「キンタさんとオタさんの冒険」やら、またノンキなトウサンの歴然たる亜流の「ノンキ和尚《おしょう》」やら、また、「セッカチピンチャン」という自分ながらわけのわからぬヤケクソの題の連載漫画やらを、各社の御注文(ぽつりぽつり、シヅ子の社の他からも注文が来るようになっていましたが、すべてそれは、シヅ子の社よりも、もっと下品な謂わば三流出版社からの注文ばかりでした)に応じ、実に実に陰鬱な気持で、のろのろと、(自分の画の運筆は、非常におそいほうでした)いまはただ、酒代がほしいばかりに画いて、そうして、シヅ子が社から帰るとそれと交代にぷいと外へ出て、高円寺の駅近くの屋台やスタンド・バアで安くて強い酒を飲み、少し陽気になってアパートへ帰り、
457+「見れば見るほど、へんな顔をしているねえ、お前は。ノンキ和尚の顔は、実は、お前の寝顔からヒントを得たのだ」
458+「あなたの寝顔だって、ずいぶんお老けになりましてよ。四十男みたい」
459+「お前のせいだ。吸い取られたんだ。水の流れと、人の身はあサ。何をくよくよ川端やなあぎいサ」
460+「騒がないで、早くおやすみなさいよ。それとも、ごはんをあがりますか?」
461+ 落ちついていて、まるで相手にしません。
462+「酒なら飲むがね。水の流れと、人の身はあサ。人の流れと、いや、水の流れえと、水の身はあサ」
463+ 唄いながら、シヅ子に衣服をぬがせられ、シヅ子の胸に自分の額を押しつけて眠ってしまう、それが自分の日常でした。
464+
465+[#ここから2字下げ]
466+してその翌日《あくるひ》も同じ事を繰返して、
467+昨日《きのう》に異《かわ》らぬ慣例《しきたり》に従えばよい。
468+即ち荒っぽい大きな歓楽《よろこび》を避《よ》けてさえいれば、
469+自然また大きな悲哀《かなしみ》もやって来《こ》ないのだ。
470+ゆくてを塞《ふさ》ぐ邪魔な石を
471+蟾蜍《ひきがえる》は廻って通る。
472+[#ここで字下げ終わり]
473+
474+ 上田敏訳のギイ・シャルル・クロオとかいうひとの、こんな詩句を見つけた時、自分はひとりで顔を燃えるくらいに赤くしました。
475+ 蟾蜍。
476+(それが、自分だ。世間がゆるすも、ゆるさぬもない。葬むるも、葬むらぬもない。自分は、犬よりも猫よりも劣等な動物なのだ。蟾蜍。のそのそ動いているだけだ)
477+ 自分の飲酒は、次第に量がふえて来ました。高円寺駅附近だけでなく、新宿、銀座のほうにまで出かけて飲み、外泊する事さえあり、ただもう「慣例《しきたり》」に従わぬよう、バアで無頼漢の振りをしたり、片端からキスしたり、つまり、また、あの情死以前の、いや、あの頃よりさらに荒《すさ》んで野卑な酒飲みになり、金に窮して、シヅ子の衣類を持ち出すほどになりました。
478+ ここへ来て、あの破れた奴凧に苦笑してから一年以上経って、葉桜の頃、自分は、またもシヅ子の帯やら襦袢《じゅばん》やらをこっそり持ち出して質屋に行き、お金を作って銀座で飲み、二晩つづけて外泊して、三日目の晩、さすがに具合い悪い思いで、無意識に足音をしのばせて、アパートのシヅ子の部屋の前まで来ると、中から、シヅ子とシゲ子の会話が聞えます。
479+「なぜ、お酒を飲むの?」
480+「お父ちゃんはね、お酒を好きで飲んでいるのでは、ないんですよ。あんまりいいひとだから、だから、……」
481+「いいひとは、お酒を飲むの?」
482+「そうでもないけど、……」
483+「お父ちゃんは、きっと、びっくりするわね」
484+「おきらいかも知れない。ほら、ほら、箱から飛び出した」
485+「セッカチピンチャンみたいね」
486+「そうねえ」
487+ シヅ子の、しんから幸福そうな低い笑い声が聞えました。
488+ 自分が、ドアを細くあけて中をのぞいて見ますと、白兎の子でした。ぴょんぴょん部屋中を、はね廻り、親子はそれを追っていました。
489+(幸福なんだ、この人たちは。自分という馬鹿者が、この二人のあいだにはいって、いまに二人を滅茶苦茶にするのだ。つつましい幸福。いい親子。幸福を、ああ、もし神様が、自分のような者の祈りでも聞いてくれるなら、いちどだけ、生涯にいちどだけでいい、祈る)
490+ 自分は、そこにうずくまって合掌したい気持でした。そっと、ドアを閉め、自分は、また銀座に行き、それっきり、そのアパートには帰りませんでした。
491+ そうして、京橋のすぐ近くのスタンド・バアの二階に自分は、またも男めかけの形で、寝そべる事になりました。
492+ 世間。どうやら自分にも、それがぼんやりわかりかけて来たような気がしていました。個人と個人の争いで、しかも、その場の争いで、しかも、その場で勝てばいいのだ、人間は決して人間に服従しない[#「人間は決して人間に服従しない」に傍点]、奴隷でさえ奴隷らしい卑屈なシッペがえしをするものだ、だから、人間にはその場の一本勝負にたよる他、生き伸びる工夫がつかぬのだ、大義名分らしいものを称《とな》えていながら、努力の目標は必ず個人、個人を乗り越えてまた個人、世間の難解は、個人の難解、大洋《オーシャン》は世間でなくて、個人なのだ、と世の中という大海の幻影におびえる事から、多少解放せられて、以前ほど、あれこれと際限の無い心遣いする事なく、謂わば差し当っての必要に応じて、いくぶん図々しく振舞う事を覚えて来たのです。
493+ 高円寺のアパートを捨て、京橋のスタンド・バアのマダムに、
494+「わかれて来た」
495+ それだけ言って、それで充分、つまり一本勝負はきまって、その夜から、自分は乱暴にもそこの二階に泊り込む事になったのですが、しかし、おそろしい筈の「世間」は、自分に何の危害も加えませんでしたし、また自分も「世間」に対して何の弁明もしませんでした。マダムが、その気だったら、それですべてがいいのでした。
496+ 自分は、その店のお客のようでもあり、亭主のようでもあり、走り使いのようでもあり、親戚の者のようでもあり、はたから見て甚《はなは》だ得態《えたい》の知れない存在だった筈なのに、「世間」は少しもあやしまず、そうしてその店の常連たちも、自分を、葉ちゃん、葉ちゃんと呼んで、ひどく優しく扱い、そうしてお酒を飲ませてくれるのでした。
497+ 自分は世の中に対して、次第に用心しなくなりました。世の中というところは、そんなに、おそろしいところでは無い、と思うようになりました。つまり、これまでの自分の恐怖感は、春の風には百日咳《ひゃくにちぜき》の黴菌《ばいきん》が何十万、銭湯には、目のつぶれる黴菌が何十万、床屋には禿頭《とくとう》病の黴菌が何十万、省線の吊皮《つりかわ》には疥癬《かいせん》の虫がうようよ、または、おさしみ、牛豚肉の生焼けには、さなだ虫の幼虫やら、ジストマやら、何やらの卵などが必ずひそんでいて、また、はだしで歩くと足の裏からガラスの小さい破片がはいって、その破片が体内を駈けめぐり眼玉を突いて失明させる事もあるとかいう謂わば「科学の迷信」におびやかされていたようなものなのでした。それは、たしかに何十万もの黴菌の浮び泳ぎうごめいているのは、「科学的」にも、正確な事でしょう。と同時に、その存在を完全に黙殺さえすれば、それは自分とみじんのつながりも無くなってたちまち消え失せる「科学の幽霊」に過ぎないのだという事をも、自分は知るようになったのです。お弁当箱に食べ残しのごはん三粒、千万人が一日に三粒ずつ食べ残しても既にそれは、米何俵をむだに捨てた事になる、とか、或いは、一日に鼻紙一枚の節約を千万人が行うならば、どれだけのパルプが浮くか、などという「科学的統計」に、自分は、どれだけおびやかされ、ごはんを一粒でも食べ残す度毎に、また鼻をかむ度毎に、山ほどの米、山ほどのパルプを空費するような錯覚に悩み、自分がいま重大な罪を犯しているみたいな暗い気持になったものですが、しかし、それこそ「科学の嘘」「統計の嘘」「数学の嘘」で、三粒のごはんは集められるものでなく、掛算割算の応用問題としても、まことに原始的で低能なテーマで、電気のついてない暗いお便所の、あの穴に人は何度にいちど片脚を踏みはずして落下させるか、または、省線電車の出入口と、プラットホームの縁《へり》とのあの隙間に、乗客の何人中の何人が足を落とし込むか、そんなプロバビリティを計算するのと同じ程度にばからしく、それは如何《いか》にも有り得る事のようでもありながら、お便所の穴をまたぎそこねて怪我をしたという例は、少しも聞かないし、そんな仮説を「科学的事実」として教え込まれ、それを全く現実として受取り、恐怖していた昨日までの自分をいとおしく思い、笑いたく思ったくらいに、自分は、世の中というものの実体を少しずつ知って来たというわけなのでした。
498+ そうは言っても、やはり人間というものが、まだまだ、自分にはおそろしく、店のお客と逢うのにも、お酒をコップで一杯ぐいと飲んでからでなければいけませんでした。こわいもの見たさ。自分は、毎晩、それでもお店に出て、子供が、実は少しこわがっている小動物などを、かえって強くぎゅっと握ってしまうみたいに、店のお客に向って酔ってつたない芸術論を吹きかけるようにさえなりました。
499+ 漫画家。ああ、しかし、自分は、大きな歓楽《よろこび》も、また、大きな悲哀《かなしみ》もない無名の漫画家。いかに大きな悲哀《かなしみ》があとでやって来てもいい、荒っぽい大きな歓楽《よろこび》が欲しいと内心あせってはいても、自分の現在のよろこびたるや、お客とむだ事を言い合い、お客の酒を飲む事だけでした。
500+ 京橋へ来て、こういうくだらない生活を既に一年ちかく続け、自分の漫画も、子供相手の雑誌だけでなく、駅売りの粗悪で卑猥《ひわい》な雑誌などにも載るようになり、自分は、上司幾太(情死、生きた)という、ふざけ切った匿名で、汚いはだかの絵など画き、それにたいていルバイヤットの詩句を插入《そうにゅう》しました。
501+
502+[#ここから2字下げ]
503+無駄な御祈りなんか止《よ》せったら
504+涙を誘うものなんか かなぐりすてろ
505+まア一杯いこう 好いことばかり思出して
506+よけいな心づかいなんか忘れっちまいな
507+
508+不安や恐怖もて人を脅やかす奴輩《やから》は
509+自《みずから》の作りし大それた罪に怯《おび》え
510+死にしものの復讐《ふくしゅう》に備えんと
511+自《みずから》の頭にたえず計いを為《な》す
512+
513+よべ 酒充ちて我ハートは喜びに充ち
514+けさ さめて只《ただ》に荒涼
515+いぶかし 一夜《ひとよ》さの中
516+様変りたる此《この》気分よ
517+
518+祟《たた》りなんて思うこと止《や》めてくれ
519+遠くから響く太鼓のように
520+何がなしそいつは不安だ
521+屁《へ》ひったこと迄《まで》一々罪に勘定されたら助からんわい
522+
523+正義は人生の指針たりとや?
524+さらば血に塗られたる戦場に
525+暗殺者の切尖《きっさき》に
526+何の正義か宿れるや?
527+
528+いずこに指導原理ありや?
529+いかなる叡智《えいち》の光ありや?
530+美《うる》わしくも怖《おそろ》しきは浮世なれ
531+かよわき人の子は背負切れぬ荷をば負わされ
532+
533+どうにもできない情慾の種子を植えつけられた許《ばか》りに
534+善だ悪だ罪だ罰だと呪《のろ》わるるばかり
535+どうにもできない只まごつくばかり
536+抑え摧《くだ》く力も意志も授けられぬ許りに
537+
538+どこをどう彷徨《うろつき》まわってたんだい
539+ナニ批判 検討 再認識?
540+ヘッ 空《むな》しき夢を ありもしない幻を
541+エヘッ 酒を忘れたんで みんな虚仮《こけ》の思案さ
542+
543+どうだ 此|涯《はて》もない大空を御覧よ
544+此中にポッチリ浮んだ点じゃい
545+此地球が何んで自転するのか分るもんか
546+自転 公転 反転も勝手ですわい
547+
548+至る処《ところ》に 至高の力を感じ
549+あらゆる国にあらゆる民族に
550+同一の人間性を発見する
551+我は異端者なりとかや
552+
553+みんな聖経をよみ違えてんのよ
554+でなきゃ常識も智慧《ちえ》もないのよ
555+生身《いきみ》の喜びを禁じたり 酒を止めたり
556+いいわ ムスタッファ わたしそんなの 大嫌い
557+[#ここで字下げ終わり]
558+
559+ けれども、その頃、自分に酒を止めよ、とすすめる処女がいました。
560+「いけないわ、毎日、お昼から、酔っていらっしゃる」
561+ バアの向いの、小さい煙草屋の十七、八の娘でした。ヨシちゃんと言い、色の白い、八重歯のある子でした。自分が、煙草を買いに行くたびに、笑って忠告するのでした。
562+「なぜ、いけないんだ。どうして悪いんだ。あるだけの酒をのんで、人の子よ、憎悪を消せ消せ消せ、ってね、むかしペルシャのね、まあよそう、悲しみ疲れたるハートに希望を持ち来すは、ただ微醺《びくん》をもたらす玉杯なれ、ってね。わかるかい」
563+「わからない」
564+「この野郎。キスしてやるぞ」
565+「してよ」
566+ ちっとも悪びれず下唇を突き出すのです。
567+「馬鹿野郎。貞操観念、……」
568+ しかし、ヨシちゃんの表情には、あきらかに誰にも汚されていない処女のにおいがしていました。
569+ としが明けて厳寒の夜、自分は酔って煙草を買いに出て、その煙草屋の前のマンホールに落ちて、ヨシちゃん、たすけてくれえ、と叫び、ヨシちゃんに引き上げられ、右腕の傷の手当を、ヨシちゃんにしてもらい、その時ヨシちゃんは、しみじみ、
570+「飲みすぎますわよ」
571+ と笑わずに言いました。
572+ 自分は死ぬのは平気なんだけど、怪我をして出血してそうして不具者などになるのは、まっぴらごめんのほうですので、ヨシちゃんに腕の傷の手当をしてもらいながら、酒も、もういい加減によそうかしら、と思ったのです。
573+「やめる。あしたから、一滴も飲まない」
574+「ほんとう?」
575+「きっと、やめる。やめたら、ヨシちゃん、僕のお嫁になってくれるかい?」
576+ しかし、お嫁の件は冗談でした。
577+「モチよ」
578+ モチとは、「勿論」の略語でした。モボだの、モガだの、その頃いろんな略語がはやっていました。
579+「ようし。ゲンマンしよう。きっとやめる」
580+ そうして翌《あく》る日、自分は、やはり昼から飲みました。
581+ 夕方、ふらふら外へ出て、ヨシちゃんの店の前に立ち、
582+「ヨシちゃん、ごめんね。飲んじゃった」
583+「あら、いやだ。酔った振りなんかして」
584+ ハッとしました。酔いもさめた気持でした。
585+「いや、本当なんだ。本当に飲んだのだよ。酔った振りなんかしてるんじゃない」
586+「からかわないでよ。ひとがわるい」
587+ てんで疑おうとしないのです。
588+「見ればわかりそうなものだ。きょうも、お昼から飲んだのだ。ゆるしてね」
589+「お芝居が、うまいのねえ」
590+「芝居じゃあないよ、馬鹿野郎。キスしてやるぞ」
591+「してよ」
592+「いや、僕には資格が無い。お嫁にもらうのもあきらめなくちゃならん。顔を見なさい、赤いだろう? 飲んだのだよ」
593+「それあ、夕陽が当っているからよ。かつごうたって、だめよ。きのう約束したんですもの。飲む筈が無いじゃないの。ゲンマンしたんですもの。飲んだなんて、ウソ、ウソ、ウソ」
594+ 薄暗い店の中に坐って微笑しているヨシちゃんの白い顔、ああ、よごれを知らぬヴァジニティは尊いものだ、自分は今まで、自分よりも若い処女と寝た事がない、結婚しよう、どんな大きな悲哀《かなしみ》がそのために後からやって来てもよい、荒っぽいほどの大きな歓楽《よろこび》を、生涯にいちどでいい、処女性の美しさとは、それは馬鹿な詩人の甘い感傷の幻に過ぎぬと思っていたけれども、やはりこの世の中に生きて在るものだ、結婚して春になったら二人で自転車で青葉の滝を見に行こう、と、その場で決意し、所謂「一本勝負」で、その花を盗むのにためらう事をしませんでした。
595+ そうして自分たちは、やがて結婚して、それに依って得た歓楽《よろこび》は、必ずしも大きくはありませんでしたが、その後に来た悲哀《かなしみ》は、凄惨《せいさん》と言っても足りないくらい、実に想像を絶して、大きくやって来ました。自分にとって、「世の中」は、やはり底知れず、おそろしいところでした。決して、そんな一本勝負などで、何から何まできまってしまうような、なまやさしいところでも無かったのでした。
596+
597+
598+[#5字下げ]二[#「二」は中見出し]
599+
600+ 堀木と自分。
601+ 互いに軽蔑《けいべつ》しながら附き合い、そうして互いに自《みずか》らをくだらなくして行く、それがこの世の所謂「交友」というものの姿だとするなら、自分と堀木との間柄も、まさしく「交友」に違いありませんでした。
602+ 自分があの京橋のスタンド・バアのマダムの義侠心《ぎきょうしん》にすがり、(女のひとの義侠心なんて、言葉の奇妙な遣い方ですが、しかし、自分の経験に依ると、少くとも都会の[#「都会の」に傍点]男女の場合、男よりも女のほうが、その、義侠心とでもいうべきものをたっぷりと持っていました。男はたいてい、おっかなびっくりで、おていさいばかり飾り、そうして、ケチでした)あの煙草屋のヨシ子を内縁の妻にする事が出来て、そうして築地《つきじ》、隅田川の近く、木造の二階建ての小さいアパートの階下の一室を借り、ふたりで住み、酒は止めて、そろそろ自分の定った職業になりかけて来た漫画の仕事に精を出し、夕食後は二人で映画を見に出かけ、帰りには、喫茶店などにはいり、また、花の鉢を買ったりして、いや、それよりも自分をしんから信頼してくれているこの小さい花嫁の言葉を聞き、動作を見ているのが楽しく、これは自分もひょっとしたら、いまにだんだん人間らしいものになる事が出来て、悲惨な死に方などせずにすむのではなかろうかという甘い思いを幽かに胸にあたためはじめていた矢先に、堀木がまた自分の眼前に現われました。
603+「よう! 色魔。おや? これでも、いくらか分別くさい顔になりやがった。きょうは、高円寺女史からのお使者なんだがね」
604+ と言いかけて、急に声をひそめ、お勝手でお茶の仕度をしているヨシ子のほうを顎《あご》でしゃくって、大丈夫かい? とたずねますので、
605+「かまわない。何を言ってもいい」
606+ と自分は落ちついて答えました。
607+ じっさい、ヨシ子は、信頼の天才と言いたいくらい、京橋のバアのマダムとの間はもとより、自分が鎌倉で起した事件を知らせてやっても、ツネ子との間を疑わず、それは自分が嘘がうまいからというわけでは無く、時には、あからさまな言い方をする事さえあったのに、ヨシ子には、それがみな冗談としか聞きとれぬ様子でした。
608+「相変らず、しょっていやがる。なに、たいした事じゃないがね、たまには、高円寺のほうへも遊びに来てくれっていう御伝言さ」
609+ 忘れかけると、怪鳥が羽ばたいてやって来て、記憶の傷口をその嘴《くちばし》で突き破ります。たちまち過去の恥と罪の記憶が、ありありと眼前に展開せられ、わあっと叫びたいほどの恐怖で、坐っておられなくなるのです。
610+「飲もうか」
611+ と自分。
612+「よし」
613+ と堀木。
614+ 自分と堀木。形は、ふたり似ていました。そっくりの人間のような気がする事もありました。もちろんそれは、安い酒をあちこち飲み歩いている時だけの事でしたが、とにかく、ふたり顔を合せると、みるみる同じ形の同じ毛並の犬に変り降雪のちまたを駈けめぐるという具合いになるのでした。
615+ その日以来、自分たちは再び旧交をあたためたという形になり、京橋のあの小さいバアにも一緒に行き、そうして、とうとう、高円寺のシヅ子のアパートにもその泥酔の二匹の犬が訪問し、宿泊して帰るなどという事にさえなってしまったのです。
616+ 忘れも、しません。むし暑い夏の夜でした。堀木は日暮頃、よれよれの浴衣を着て築地の自分のアパートにやって来て、きょう或る必要があって夏服を質入したが、その質入が老母に知れるとまことに具合いが悪い、すぐ受け出したいから、とにかく金を貸してくれ、という事でした。あいにく自分のところにも、お金が無かったので、例に依って、ヨシ子に言いつけ、ヨシ子の衣類を質屋に持って行かせてお金を作り、堀木に貸しても、まだ少し余るのでその残金でヨシ子に焼酎《しょうちゅう》を買わせ、アパートの屋上に行き、隅田川から時たま幽かに吹いて来るどぶ臭い風を受けて、まことに薄汚い納涼の宴を張りました。
617+ 自分たちはその時、喜劇名詞、悲劇名詞の当てっこをはじめました。これは、自分の発明した遊戯で、名詞には、すべて男性名詞、女性名詞、中性名詞などの別があるけれども、それと同時に、喜劇名詞、悲劇名詞の区別があって然るべきだ、たとえば、汽船と汽車はいずれも悲劇名詞で、市電とバスは、いずれも喜劇名詞、なぜそうなのか、それのわからぬ者は芸術を談ずるに足らん、喜劇に一個でも悲劇名詞をさしはさんでいる劇作家は、既にそれだけで落第、悲劇の場合もまた然り、といったようなわけなのでした。
618+「いいかい? 煙草は?」
619+ と自分が問います。
620+「トラ。(悲劇《トラジディ》の略)」
621+ と堀木が言下に答えます。
622+「薬は?」
623+「粉薬かい? 丸薬かい?」
624+「注射」
625+「トラ」
626+「そうかな? ホルモン注射もあるしねえ」
627+「いや、断然トラだ。針が第一、お前、立派なトラじゃないか」
628+「よし、負けて置こう。しかし、君、薬や医者はね、あれで案外、コメ(喜劇《コメディ》の略)なんだぜ。死は?」
629+「コメ。牧師も和尚《おしょう》も然りじゃね」
630+「大出来。そうして、生はトラだなあ」
631+「ちがう。それも、コメ」
632+「いや、それでは、何でもかでも皆コメになってしまう。ではね、もう一つおたずねするが、漫画家は? よもや、コメとは言えませんでしょう?」
633+「トラ、トラ。大悲劇名詞!」
634+「なんだ、大トラは君のほうだぜ」
635+ こんな、下手な駄洒落《だじゃれ》みたいな事になってしまっては、つまらないのですけど、しかし自分たちはその遊戯を、世界のサロンにも嘗《か》つて存しなかった頗《すこぶ》る気のきいたものだと得意がっていたのでした。
636+ またもう一つ、これに似た遊戯を当時、自分は発明していました。それは、対義語《アントニム》の当てっこでした。黒のアント(対義語《アントニム》の略)は、白。けれども、白のアントは、赤。赤のアントは、黒。
637+「花のアントは?」
638+ と自分が問うと、堀木は口を曲げて考え、
639+「ええっと、花月という料理屋があったから、月だ」
640+「いや、それはアントになっていない。むしろ、同義語《シノニム》だ。星と菫《すみれ》だって、シノニムじゃないか。アントでない」
641+「わかった、それはね、蜂《はち》だ」
642+「ハチ?」
643+「牡丹《ぼたん》に、……蟻《あり》か?」
644+「なあんだ、それは画題《モチイフ》だ。ごまかしちゃいけない」
645+「わかった! 花にむら雲、……」
646+「月にむら雲だろう」
647+「そう、そう。花に風。風だ。花のアントは、風」
648+「まずいなあ、それは浪花節《なにわぶし》の文句じゃないか。おさとが知れるぜ」
649+「いや、琵琶《びわ》だ」
650+「なおいけない。花のアントはね、……およそこの世で最も花らしくないもの、それをこそ挙げるべきだ」
651+「だから、その、……待てよ、なあんだ、女か」
652+「ついでに、女のシノニムは?」
653+「臓物」
654+「君は、どうも、詩《ポエジイ》を知らんね。それじゃあ、臓物のアントは?」
655+「牛乳」
656+「これは、ちょっとうまいな。その調子でもう一つ。恥。オントのアント」
657+「恥知らずさ。流行漫画家上司幾太」
658+「堀木正雄は?」
659+ この辺から二人だんだん笑えなくなって、焼酎の酔い特有の、あのガラスの破片が頭に充満しているような、陰鬱な気分になって来たのでした。
660+「生意気言うな。おれはまだお前のように、繩目の恥辱など受けた事が無えんだ」
661+ ぎょっとしました。堀木は内心、自分を、真人間あつかいにしていなかったのだ、自分をただ、死にぞこないの、恥知らずの、阿呆のばけものの、謂《い》わば「生ける屍《しかばね》」としか解してくれず、そうして、彼の快楽のために、自分を利用できるところだけは利用する、それっきりの「交友」だったのだ、と思ったら、さすがにいい気持はしませんでしたが、しかしまた、堀木が自分をそのように見ているのも、もっともな話で、自分は昔から、人間の資格の無いみたいな子供だったのだ、やっぱり堀木にさえ軽蔑せられて至当なのかも知れない、と考え直し、
662+「罪。罪のアントニムは、何だろう。これは、むずかしいぞ」
663+ と何気無さそうな表情を装って、言うのでした。
664+「法律さ」
665+ 堀木が平然とそう答えましたので、自分は堀木の顔を見直しました。近くのビルの明滅するネオンサインの赤い光を受けて、堀木の顔は、鬼刑事の如く威厳ありげに見えました。自分は、つくづく呆《あき》れかえり、
666+「罪ってのは、君、そんなものじゃないだろう」
667+ 罪の対義語が、法律とは! しかし、世間の人たちは、みんなそれくらいに簡単に考えて、澄まして暮しているのかも知れません。刑事のいないところにこそ罪がうごめいている、と。
668+「それじゃあ、なんだい、神か? お前には、どこかヤソ坊主くさいところがあるからな。いや味だぜ」
669+「まあそんなに、軽く片づけるなよ。も少し、二人で考えて見よう。これはでも、面白いテーマじゃないか。このテーマに対する答一つで、そのひとの全部がわかるような気がするのだ」
670+「まさか。……罪のアントは、善さ。善良なる市民。つまり、おれみたいなものさ」
671+「冗談は、よそうよ。しかし、善は悪のアントだ。罪のアントではない」
672+「悪と罪とは違うのかい?」
673+「違う、と思う。善悪の概念は人間が作ったものだ。人間が勝手に作った道徳の言葉だ」
674+「うるせえなあ。それじゃ、やっぱり、神だろう。神、神。なんでも、神にして置けば間違いない。腹がへったなあ」
675+「いま、したでヨシ子がそら豆を煮ている」
676+「ありがてえ。好物だ」
677+ 両手を頭のうしろに組んで、仰向《あおむけ》にごろりと寝ました。
678+「君には、罪というものが、まるで興味ないらしいね」
679+「そりゃそうさ、お前のように、罪人では無いんだから。おれは道楽はしても、女を死なせたり、女から金を巻き上げたりなんかはしねえよ」
680+ 死なせたのではない、巻き上げたのではない、と心の何処《どこ》かで幽かな、けれども必死の抗議の声が起っても、しかし、また、いや自分が悪いのだとすぐに思いかえしてしまうこの習癖。
681+ 自分には、どうしても、正面切っての議論が出来ません。焼酎の陰鬱な酔いのために刻一刻、気持が険しくなって来るのを懸命に抑えて、ほとんど独りごとのようにして言いました。
682+「しかし、牢屋《ろうや》にいれられる事だけが罪じゃないんだ。罪のアントがわかれば、罪の実体もつかめるような気がするんだけど、……神、……救い、……愛、……光、……しかし、神にはサタンというアントがあるし、救いのアントは苦悩だろうし、愛には憎しみ、光には闇というアントがあり、善には悪、罪と祈り、罪と悔い、罪と告白、罪と、……嗚呼《ああ》、みんなシノニムだ、罪の対語は何だ」
683+「ツミの対語は、ミツさ。蜜《みつ》の如く甘しだ。腹がへったなあ。何か食うものを持って来いよ」
684+「君が持って来たらいいじゃないか!」
685+ ほとんど生れてはじめてと言っていいくらいの、烈しい怒りの声が出ました。
686+「ようし、それじゃ、したへ行って、ヨシちゃんと二人で罪を犯して来よう。議論より実地検分。罪のアントは、蜜豆、いや、そら豆か」
687+ ほとんど、ろれつの廻らぬくらいに酔っているのでした。
688+「勝手にしろ。どこかへ行っちまえ!」
689+「罪と空腹、空腹とそら豆、いや、これはシノニムか」
690+ 出鱈目《でたらめ》を言いながら起き上ります。
691+ 罪と罰。ドストイエフスキイ。ちらとそれが、頭脳の片隅をかすめて通り、はっと思いました。もしも、あのドスト氏が、罪と罰をシノニムと考えず、アントニムとして置き並べたものとしたら? 罪と罰、絶対に相通ぜざるもの、氷炭|相容《あいい》れざるもの。罪と罰をアントとして考えたドストの青みどろ、腐った池、乱麻の奥底の、……ああ、わかりかけた、いや、まだ、……などと頭脳に走馬燈がくるくる廻っていた時に、
692+「おい! とんだ、そら豆だ。来い!」
693+ 堀木の声も顔色も変っています。堀木は、たったいまふらふら起きてしたへ行った、かと思うとまた引返して来たのです。
694+「なんだ」
695+ 異様に殺気立ち、ふたり、屋上から二階へ降り、二階から、さらに階下の自分の部屋へ降りる階段の中途で堀木は立ち止り、
696+「見ろ!」
697+ と小声で言って指差します。
698+ 自分の部屋の上の小窓があいていて、そこから部屋の中が見えます。電気がついたままで、二匹の動物がいました。
699+ 自分は、ぐらぐら目まいしながら、これもまた人間の姿だ、これもまた人間の姿だ、おどろく事は無い、など劇《はげ》しい呼吸と共に胸の中で呟《つぶや》き、ヨシ子を助ける事も忘れ、階段に立ちつくしていました。
700+ 堀木は、大きい咳《せき》ばらいをしました。自分は、ひとり逃げるようにまた屋上に駈け上り、寝ころび、雨を含んだ夏の夜空を仰ぎ、そのとき自分を襲った感情は、怒りでも無く、嫌悪でも無く、また、悲しみでも無く、もの凄《すさ》まじい恐怖でした。それも、墓地の幽霊などに対する恐怖ではなく、神社の杉木立で白衣の御神体に逢った時に感ずるかも知れないような、四の五の言わさぬ古代の荒々しい恐怖感でした。自分の若白髪は、その夜からはじまり、いよいよ、すべてに自信を失い、いよいよ、ひとを底知れず疑い、この世の営みに対する一さいの期待、よろこび、共鳴などから永遠にはなれるようになりました。実に、それは自分の生涯に於いて、決定的な事件でした。自分は、まっこうから眉間《みけん》を割られ、そうしてそれ以来その傷は、どんな人間にでも接近する毎に痛むのでした。
701+「同情はするが、しかし、お前もこれで、少しは思い知ったろう。もう、おれは、二度とここへは来ないよ。まるで、地獄だ。……でも、ヨシちゃんは、ゆるしてやれ。お前だって、どうせ、ろくな奴じゃないんだから。失敬するぜ」
702+ 気まずい場所に、永くとどまっているほど間《ま》の抜けた堀木ではありませんでした。
703+ 自分は起き上って、ひとりで焼酎を飲み、それから、おいおい声を放って泣きました。いくらでも、いくらでも泣けるのでした。
704+ いつのまにか、背後に、ヨシ子が、そら豆を山盛りにしたお皿を持ってぼんやり立っていました。
705+「なんにも、しないからって言って、……」
706+「いい。何も言うな。お前は、ひとを疑う事を知らなかったんだ。お坐り。豆を食べよう」
707+ 並んで坐って豆を食べました。嗚呼、信頼は罪なりや? 相手の男は、自分に漫画をかかせては、わずかなお金をもったい振って置いて行く三十歳前後の無学な小男の商人なのでした。
708+ さすがにその商人は、その後やっては来ませんでしたが、自分には、どうしてだか、その商人に対する憎悪よりも、さいしょに見つけたすぐその時に大きい咳ばらいも何もせず、そのまま自分に知らせにまた屋上に引返して来た堀木に対する憎しみと怒りが、眠られぬ夜などにむらむら起って呻《うめ》きました。
709+ ゆるすも、ゆるさぬもありません。ヨシ子は信頼の天才なのです。ひとを疑う事を知らなかったのです。しかし、それゆえの悲惨。
710+ 神に問う。信頼は罪なりや。
711+ ヨシ子が汚されたという事よりも、ヨシ子の信頼が汚されたという事が、自分にとってそののち永く、生きておられないほどの苦悩の種になりました。自分のような、いやらしくおどおどして、ひとの顔いろばかり伺い、人を信じる能力が、ひび割れてしまっているものにとって、ヨシ子の無垢《むく》の信頼心は、それこそ青葉の滝のようにすがすがしく思われていたのです。それが一夜で、黄色い汚水に変ってしまいました。見よ、ヨシ子は、その夜から自分の一顰《いっぴん》一笑にさえ気を遣うようになりました。
712+「おい」
713+ と呼ぶと、ぴくっとして、もう眼のやり場に困っている様子です。どんなに自分が笑わせようとして、お道化を言っても、おろおろし、びくびくし、やたらに自分に敬語を遣うようになりました。
714+ 果して、無垢の信頼心は、罪の原泉なりや。
715+ 自分は、人妻の犯された物語の本を、いろいろ捜して読んでみました。けれども、ヨシ子ほど悲惨な犯され方をしている女は、ひとりも無いと思いました。どだい、これは、てんで物語にも何もなりません。あの小男の商人と、ヨシ子とのあいだに、少しでも恋に似た感情でもあったなら、自分の気持もかえってたすかるかも知れませんが、ただ、夏の一夜、ヨシ子が信頼して、そうして、それっきり、しかもそのために自分の眉間は、まっこうから割られ声が嗄れて若白髪がはじまり、ヨシ子は一生おろおろしなければならなくなったのです。たいていの物語は、その妻の「行為」を夫が許すかどうか、そこに重点を置いていたようでしたが、それは自分にとっては、そんなに苦しい大問題では無いように思われました。許す、許さぬ、そのような権利を留保している夫こそ幸いなる哉《かな》、とても許す事が出来ぬと思ったなら、何もそんなに大騒ぎせずとも、さっさと妻を離縁して、新しい妻を迎えたらどうだろう、それが出来なかったら、所謂《いわゆる》「許して」我慢するさ、いずれにしても夫の気持一つで四方八方がまるく収るだろうに、という気さえするのでした。つまり、そのような事件は、たしかに夫にとって大いなるショックであっても、しかし、それは「ショック」であって、いつまでも尽きること無く打ち返し打ち寄せる波と違い、権利のある夫の怒りでもってどうにでも処理できるトラブルのように自分には思われたのでした。けれども、自分たちの場合、夫に何の権利も無く、考えると何もかも自分がわるいような気がして来て、怒るどころか、おこごと一つも言えず、また、その妻は、その所有している稀《まれ》な美質に依って犯されたのです。しかも、その美質は、夫のかねてあこがれの、無垢の信頼心というたまらなく可憐《かれん》なものなのでした。
716+ 無垢の信頼心は、罪なりや。
717+ 唯一のたのみの美質にさえ、疑惑を抱き、自分は、もはや何もかも、わけがわからなくなり、おもむくところは、ただアルコールだけになりました。自分の顔の表情は極度にいやしくなり、朝から焼酎を飲み、歯がぼろぼろに欠けて、漫画もほとんど猥画《わいが》に近いものを画くようになりました。いいえ、はっきり言います。自分はその頃から、春画のコピイをして密売しました。焼酎を買うお金がほしかったのです。いつも自分から視線をはずしておろおろしているヨシ子を見ると、こいつは全く警戒を知らぬ女だったから、あの商人といちどだけでは無かったのではなかろうか、また、堀木は? いや、或いは自分の知らない人とも? と疑惑は疑惑を生み、さりとて思い切ってそれを問い正す勇気も無く、れいの不安と恐怖にのたうち廻る思いで、ただ焼酎を飲んで酔っては、わずかに卑屈な誘導|訊問《じんもん》みたいなものをおっかなびっくり試み、内心おろかしく一喜一憂し、うわべは、やたらにお道化て、そうして、それから、ヨシ子にいまわしい地獄の愛撫《あいぶ》を加え、泥のように眠りこけるのでした。
718+ その年の暮、自分は夜おそく泥酔して帰宅し、砂糖水を飲みたく、ヨシ子は眠っているようでしたから、自分でお勝手に行き砂糖壺を捜し出し、ふたを開けてみたら砂糖は何もはいってなくて、黒く細長い紙の小箱がはいっていました。何気なく手に取り、その箱にはられてあるレッテルを見て愕然《がくぜん》としました。そのレッテルは、爪で半分以上も掻《か》きはがされていましたが、洋字の部分が残っていて、それにはっきり書かれていました。DIAL。
719+ ジアール。自分はその頃もっぱら焼酎で、催眠剤を用いてはいませんでしたが、しかし、不眠は自分の持病のようなものでしたから、たいていの催眠剤にはお馴染《なじ》みでした。ジアールのこの箱一つは、たしかに致死量以上の筈でした。まだ箱の封を切ってはいませんでしたが、しかし、いつかは、やる気で[#「やる気で」に傍点]こんなところに、しかもレッテルを掻きはがしたりなどして隠していたのに違いありません。可哀想に、あの子にはレッテルの洋字が読めないので、爪で半分掻きはがして、これで大丈夫と思っていたのでしょう。(お前に罪は無い)
720+ 自分は、音を立てないようにそっとコップに水を満たし、それから、ゆっくり箱の封を切って、全部、一気に口の中にほうり、コップの水を落ちついて飲みほし、電燈を消してそのまま寝ました。
721+ 三昼夜、自分は死んだようになっていたそうです。医者は過失と見なして、警察にとどけるのを猶予してくれたそうです。覚醒《かくせい》しかけて、一ばんさきに呟いたうわごとは、うちへ帰る、という言葉だったそうです。うちとは、どこの事を差して言ったのか、当の自分にも、よくわかりませんが、とにかく、そう言って、ひどく泣いたそうです。
722+ 次第に霧がはれて、見ると、枕元にヒラメが、ひどく不機嫌な顔をして坐っていました。
723+「このまえも、年の暮の事でしてね、お互いもう、目が廻るくらいいそがしいのに、いつも、年の暮をねらって、こんな事をやられたひには、こっちの命がたまらない」
724+ ヒラメの話の聞き手になっているのは、京橋のバアのマダムでした。
725+「マダム」
726+ と自分は呼びました。
727+「うん、何? 気がついた?」
728+ マダムは笑い顔を自分の顔の上にかぶせるようにして言いました。
729+ 自分は、ぽろぽろ涙を流し、
730+「ヨシ子とわかれさせて」
731+ 自分でも思いがけなかった言葉が出ました。
732+ マダムは身を起し、幽かな溜息をもらしました。
733+ それから自分は、これもまた実に思いがけない滑稽とも阿呆らしいとも、形容に苦しむほどの失言をしました。
734+「僕は、女のいないところに行くんだ」
735+ うわっはっは、とまず、ヒラメが大声を挙げて笑い、マダムもクスクス笑い出し、自分も涙を流しながら赤面の態《てい》になり、苦笑しました。
736+「うん、そのほうがいい」
737+ とヒラメは、いつまでもだらし無く笑いながら、
738+「女のいないところに行ったほうがよい。女がいると、どうもいけない。女のいないところとは、いい思いつきです」
739+ 女のいないところ。しかし、この自分の阿呆くさいうわごとは、のちに到って、非常に陰惨に実現せられました。
740+ ヨシ子は、何か、自分がヨシ子の身代りになって毒を飲んだとでも思い込んでいるらしく、以前よりも尚《なお》いっそう、自分に対して、おろおろして、自分が何を言っても笑わず、そうしてろくに口もきけないような有様なので、自分もアパートの部屋の中にいるのが、うっとうしく、つい外へ出て、相変らず安い酒をあおる事になるのでした。しかし、あのジアールの一件以来、自分のからだがめっきり痩《や》せ細って、手足がだるく、漫画の仕事も怠けがちになり、ヒラメがあの時、見舞いとして置いて行ったお金(ヒラメはそれを、渋田の志です、と言っていかにもご自身から出たお金のようにして差出しましたが、これも故郷の兄たちからのお金のようでした。自分もその頃には、ヒラメの家から逃げ出したあの時とちがって、ヒラメのそんなもったい振った芝居を、おぼろげながら見抜く事が出来るようになっていましたので、こちらもずるく、全く気づかぬ振りをして、神妙にそのお金のお礼をヒラメに向って申し上げたのでしたが、しかし、ヒラメたちが、なぜ、そんなややこしいカラクリをやらかすのか、わかるような、わからないような、どうしても自分には、へんな気がしてなりませんでした)そのお金で、思い切ってひとりで南伊豆の温泉に行ってみたりなどしましたが、とてもそんな悠長な温泉めぐりなど出来る柄《がら》ではなく、ヨシ子を思えば侘《わ》びしさ限りなく、宿の部屋から山を眺めるなどの落ちついた心境には甚だ遠く、ドテラにも着換えず、お湯にもはいらず、外へ飛び出しては薄汚い茶店みたいなところに飛び込んで、焼酎を、それこそ浴びるほど飲んで、からだ具合いを一そう悪くして帰京しただけの事でした。
741+ 東京に大雪の降った夜でした。自分は酔って銀座裏を、ここはお国を何百里、ここはお国を何百里、と小声で繰り返し繰り返し呟くように歌いながら、なおも降りつもる雪を靴先で蹴散《けち》らして歩いて、突然、吐きました。それは自分の最初の喀血《かっけつ》でした。雪の上に、大きい日の丸の旗が出来ました。自分は、しばらくしゃがんで、それから、よごれていない個所の雪を両手で掬《すく》い取って、顔を洗いながら泣きました。
742+ こうこは、どうこの細道じゃ?
743+ こうこは、どうこの細道じゃ?
744+ 哀れな童女の歌声が、幻聴のように、かすかに遠くから聞えます。不幸。この世には、さまざまの不幸な人が、いや、不幸な人ばかり、と言っても過言ではないでしょうが、しかし、その人たちの不幸は、所謂世間に対して堂々と抗議が出来、また「世間」もその人たちの抗議を容易に理解し同情します。しかし、自分の不幸は、すべて自分の罪悪からなので、誰にも抗議の仕様が無いし、また口ごもりながら一言でも抗議めいた事を言いかけると、ヒラメならずとも世間の人たち全部、よくもまあそんな口がきけたものだと呆《あき》れかえるに違いないし、自分はいったい俗にいう「わがままもの」なのか、またはその反対に、気が弱すぎるのか、自分でもわけがわからないけれども、とにかく罪悪のかたまりらしいので、どこまでも自《おのずか》らどんどん不幸になるばかりで、防ぎ止める具体策など無いのです。
745+ 自分は立って、取り敢えず何か適当な薬をと思い、近くの薬屋にはいって、そこの奥さんと顔を見合せ、瞬間、奥さんは、フラッシュを浴びたみたいに首をあげ眼を見はり、棒立ちになりました。しかし、その見はった眼には、驚愕の色も嫌悪の色も無く、ほとんど救いを求めるような、慕うような色があらわれているのでした。ああ、このひとも、きっと不幸な人なのだ、不幸な人は、ひとの不幸にも敏感なものなのだから、と思った時、ふと、その奥さんが松葉杖《まつばづえ》をついて危かしく立っているのに気がつきました。駈け寄りたい思いを抑えて、なおもその奥さんと顔を見合せているうちに涙が出て来ました。すると、奥さんの大きい眼からも、涙がぽろぽろとあふれて出ました。
746+ それっきり、一言も口をきかずに、自分はその薬屋から出て、よろめいてアパートに帰り、ヨシ子に塩水を作らせて飲み、黙って寝て、翌る日も、風邪気味だと嘘をついて一日一ぱい寝て、夜、自分の秘密の喀血がどうにも不安でたまらず、起きて、あの薬屋に行き、こんどは笑いながら、奥さんに、実に素直に今迄のからだ具合いを告白し、相談しました。
747+「お酒をおよしにならなければ」
748+ 自分たちは、肉身のようでした。
749+「アル中になっているかも知れないんです。いまでも飲みたい」
750+「いけません。私の主人も、テーベのくせに、菌を酒で殺すんだなんて言って、酒びたりになって、自分から寿命をちぢめました」
751+「不安でいけないんです。こわくて、とても、だめなんです」
752+「お薬を差し上げます。お酒だけは、およしなさい」
753+ 奥さん(未亡人で、男の子がひとり、それは千葉だかどこだかの医大にはいって、間もなく父と同じ病いにかかり、休学入院中で、家には中風の舅《しゅうと》が寝ていて、奥さん自身は五歳の折、小児|痲痺《まひ》で片方の脚が全然だめなのでした)は、松葉杖をコトコトと突きながら、自分のためにあっちの棚、こっちの引出し、いろいろと薬品を取そろえてくれるのでした。
754+ これは、造血剤。
755+ これは、ヴィタミンの注射液。注射器は、これ。
756+ これは、カルシウムの錠剤。胃腸をこわさないように、ジアスターゼ。
757+ これは、何。これは、何、と五、六種の薬品の説明を愛情こめてしてくれたのですが、しかし、この不幸な奥さんの愛情もまた、自分にとって深すぎました。最後に奥さんが、これは、どうしても、なんとしてもお酒を飲みたくて、たまらなくなった時のお薬、と言って素早く紙に包んだ小箱。
758+ モルヒネの注射液でした。
759+ 酒よりは、害にならぬと奥さんも言い、自分もそれを信じて、また一つには、酒の酔いもさすがに不潔に感ぜられて来た矢先でもあったし、久し振りにアルコールというサタンからのがれる事の出来る喜びもあり、何の躊躇《ちゅうちょ》も無く、自分は自分の腕に、そのモルヒネを注射しました。不安も、焦燥《しょうそう》も、はにかみも、綺麗《きれい》に除去せられ、自分は甚だ陽気な能弁家になるのでした。そうして、その注射をすると自分は、からだの衰弱も忘れて、漫画の仕事に精が出て、自分で画きながら噴き出してしまうほど珍妙な趣向が生れるのでした。
760+ 一日一本のつもりが、二本になり、四本になった頃には、自分はもうそれが無ければ、仕事が出来ないようになっていました。
761+「いけませんよ、中毒になったら、そりゃもう、たいへんです」
762+ 薬屋の奥さんにそう言われると、自分はもう可成りの中毒患者になってしまったような気がして来て、(自分は、ひとの暗示に実にもろくひっかかるたちなのです。このお金は使っちゃいけないよ、と言っても、お前の事だものなあ、なんて言われると、何だか使わないと悪いような、期待にそむくような、へんな錯覚が起って、必ずすぐにそのお金を使ってしまうのでした)その中毒の不安のため、かえって薬品をたくさん求めるようになったのでした。
763+「たのむ! もう一箱。勘定は月末にきっと払いますから」
764+「勘定なんて、いつでもかまいませんけど、警察のほうが、うるさいのでねえ」
765+ ああ、いつでも自分の周囲には、何やら、濁って暗く、うさん臭い日蔭者の気配がつきまとうのです。
766+「そこを何とか、ごまかして、たのむよ、奥さん。キスしてあげよう」
767+ 奥さんは、顔を赤らめます。
768+ 自分は、いよいよつけ込み、
769+「薬が無いと仕事がちっとも、はかどらないんだよ。僕には、あれは強精剤みたいなものなんだ」
770+「それじゃ、いっそ、ホルモン注射がいいでしょう」
771+「ばかにしちゃいけません。お酒か、そうでなければ、あの薬か、どっちかで無ければ仕事が出来ないんだ」
772+「お酒は、いけません」
773+「そうでしょう? 僕はね、あの薬を使うようになってから、お酒は一滴も飲まなかった。おかげで、からだの調子が、とてもいいんだ。僕だって、いつまでも、下手くそな漫画などをかいているつもりは無い、これから、酒をやめて、からだを直して、勉強して、きっと偉い絵画きになって見せる。いまが大事なところなんだ。だからさ、ね、おねがい。キスしてあげようか」
774+ 奥さんは笑い出し、
775+「困るわねえ。中毒になっても知りませんよ」
776+ コトコトと松葉杖の音をさせて、その薬品を棚から取り出し、
777+「一箱は、あげられませんよ。すぐ使ってしまうのだもの。半分ね」
778+「ケチだなあ、まあ、仕方が無いや」
779+ 家へ帰って、すぐに一本、注射をします。
780+「痛くないんですか?」
781+ ヨシ子は、おどおど自分にたずねます。
782+「それあ痛いさ。でも、仕事の能率をあげるためには、いやでもこれをやらなければいけないんだ。僕はこの頃、とても元気だろう? さあ、仕事だ。仕事、仕事」
783+ とはしゃぐのです。
784+ 深夜、薬屋の戸をたたいた事もありました。寝巻姿で、コトコト松葉杖をついて出て来た奥さんに、いきなり抱きついてキスして、泣く真似をしました。
785+ 奥さんは、黙って自分に一箱、手渡しました。
786+ 薬品もまた、焼酎同様、いや、それ以上に、いまわしく不潔なものだと、つくづく思い知った時には、既に自分は完全な中毒患者になっていました。真に、恥知らずの極《きわみ》でした。自分はその薬品を得たいばかりに、またも春画のコピイをはじめ、そうして、あの薬屋の不具の奥さんと文字どおりの醜関係をさえ結びました。
787+ 死にたい、いっそ、死にたい、もう取返しがつかないんだ、どんな事をしても、何をしても、駄目になるだけなんだ、恥の上塗りをするだけなんだ、自転車で青葉の滝など、自分には望むべくも無いんだ、ただけがらわしい罪にあさましい罪が重なり、苦悩が増大し強烈になるだけなんだ、死にたい、死ななければならぬ、生きているのが罪の種なのだ、などと思いつめても、やっぱり、アパートと薬屋の間を半狂乱の姿で往復しているばかりなのでした。
788+ いくら仕事をしても、薬の使用量もしたがってふえているので、薬代の借りがおそろしいほどの額にのぼり、奥さんは、自分の顔を見ると涙を浮べ、自分も涙を流しました。
789+ 地獄。
790+ この地獄からのがれるための最後の手段、これが失敗したら、あとはもう首をくくるばかりだ、という神の存在を賭《か》けるほどの決意を以《もっ》て、自分は、故郷の父あてに長い手紙を書いて、自分の実情一さいを(女の事は、さすがに書けませんでしたが)告白する事にしました。
791+ しかし、結果は一そう悪く、待てど暮せど何の返事も無く、自分はその焦燥と不安のために、かえって薬の量をふやしてしまいました。
792+ 今夜、十本、一気に注射し、そうして大川に飛び込もうと、ひそかに覚悟を極めたその日の午後、ヒラメが、悪魔の勘で嗅《か》ぎつけたみたいに、堀木を連れてあらわれました。
793+「お前は、喀血したんだってな」
794+ 堀木は、自分の前にあぐらをかいてそう言い、いままで見た事も無いくらいに優しく微笑《ほほえ》みました。その優しい微笑が、ありがたくて、うれしくて、自分はつい顔をそむけて涙を流しました。そうして彼のその優しい微笑一つで、自分は完全に打ち破られ、葬り去られてしまったのです。
795+ 自分は自動車に乗せられました。とにかく入院しなければならぬ、あとは自分たちにまかせなさい、とヒラメも、しんみりした口調で、(それは慈悲深いとでも形容したいほど、もの静かな口調でした)自分にすすめ、自分は意志も判断も何も無い者の如く、ただメソメソ泣きながら唯々諾々と二人の言いつけに従うのでした。ヨシ子もいれて四人、自分たちは、ずいぶん永いこと自動車にゆられ、あたりが薄暗くなった頃、森の中の大きい病院の、玄関に到着しました。
796+ サナトリアムとばかり思っていました。
797+ 自分は若い医師のいやに物やわらかな、鄭重《ていちょう》な診察を受け、それから医師は、
798+「まあ、しばらくここで静養するんですね」
799+ と、まるで、はにかむように微笑して言い、ヒラメと堀木とヨシ子は、自分ひとりを置いて帰ることになりましたが、ヨシ子は着換の衣類をいれてある風呂敷包を自分に手渡し、それから黙って帯の間から注射器と使い残りのあの薬品を差し出しました。やはり、強精剤だとばかり思っていたのでしょうか。
800+「いや、もう要らない」
801+ 実に、珍らしい事でした。すすめられて、それを拒否したのは、自分のそれまでの生涯に於いて、その時ただ一度、といっても過言でないくらいなのです。自分の不幸は、拒否の能力の無い者の不幸でした。すすめられて拒否すると、相手の心にも自分の心にも、永遠に修繕し得ない白々しいひび割れが出来るような恐怖におびやかされているのでした。けれども、自分はその時、あれほど半狂乱になって求めていたモルヒネを、実に自然に拒否しました。ヨシ子の謂わば「神の如き無智」に撃たれたのでしょうか。自分は、あの瞬間、すでに中毒でなくなっていたのではないでしょうか。
802+ けれども、自分はそれからすぐに、あのはにかむような微笑をする若い医師に案内せられ、或る病棟にいれられて、ガチャンと鍵《かぎ》をおろされました。脳病院でした。
803+ 女のいないところへ行くという、あのジアールを飲んだ時の自分の愚かなうわごとが、まことに奇妙に実現せられたわけでした。その病棟には、男の狂人ばかりで、看護人も男でしたし、女はひとりもいませんでした。
804+ いまはもう自分は、罪人どころではなく、狂人でした。いいえ、断じて自分は狂ってなどいなかったのです。一瞬間といえども、狂った事は無いんです。けれども、ああ、狂人は、たいてい自分の事をそう言うものだそうです。つまり、この病院にいれられた者は気違い、いれられなかった者は、ノーマルという事になるようです。
805+ 神に問う。無抵抗は罪なりや?
806+ 堀木のあの不思議な美しい微笑に自分は泣き、判断も抵抗も忘れて自動車に乗り、そうしてここに連れて来られて、狂人という事になりました。いまに、ここから出ても、自分はやっぱり狂人、いや、癈人《はいじん》という刻印を額に打たれる事でしょう。
807+ 人間、失格。
808+ もはや、自分は、完全に、人間で無くなりました。
809+ ここへ来たのは初夏の頃で、鉄の格子の窓から病院の庭の小さい池に紅《あか》い睡蓮の花が咲いているのが見えましたが、それから三つき経ち、庭にコスモスが咲きはじめ、思いがけなく故郷の長兄が、ヒラメを連れて自分を引き取りにやって来て、父が先月末に胃潰瘍《いかいよう》でなくなったこと、自分たちはもうお前の過去は問わぬ、生活の心配もかけないつもり、何もしなくていい、その代り、いろいろ未練もあるだろうがすぐに東京から離れて、田舎で療養生活をはじめてくれ、お前が東京でしでかした事の後仕末は、だいたい渋田がやってくれた筈だから、それは気にしないでいい、とれいの生真面目な緊張したような口調で言うのでした。
810+ 故郷の山河が眼前に見えるような気がして来て、自分は幽かにうなずきました。
811+ まさに癈人。
812+ 父が死んだ事を知ってから、自分はいよいよ腑抜《ふぬ》けたようになりました。父が、もういない、自分の胸中から一刻も離れなかったあの懐しくおそろしい存在が、もういない、自分の苦悩の壺がからっぽになったような気がしました。自分の苦悩の壺がやけに重かったのも、あの父のせいだったのではなかろうかとさえ思われました。まるで、張合いが抜けました。苦悩する能力をさえ失いました。
813+ 長兄は自分に対する約束を正確に実行してくれました。自分の生れて育った町から汽車で四、五時間、南下したところに、東北には珍らしいほど暖かい海辺の温泉地があって、その村はずれの、間数は五つもあるのですが、かなり古い家らしく壁は剥《は》げ落ち、柱は虫に食われ、ほとんど修理の仕様も無いほどの茅屋《ぼうおく》を買いとって自分に与え、六十に近いひどい赤毛の醜い女中をひとり附けてくれました。
814+ それから三年と少し経ち、自分はその間にそのテツという老女中に数度へんな犯され方をして、時たま夫婦|喧嘩《げんか》みたいな事をはじめ、胸の病気のほうは一進一退、痩せたりふとったり、血痰《けったん》が出たり、きのう、テツにカルモチンを買っておいで、と言って、村の薬屋にお使いにやったら、いつもの箱と違う形の箱のカルモチンを買って来て、べつに自分も気にとめず、寝る前に十錠のんでも一向に眠くならないので、おかしいなと思っているうちに、おなかの具合がへんになり急いで便所へ行ったら猛烈な下痢で、しかも、それから引続き三度も便所にかよったのでした。不審に堪えず、薬の箱をよく見ると、それはヘノモチンという下剤でした。
815+ 自分は仰向けに寝て、おなかに湯たんぽを載せながら、テツにこごとを言ってやろうと思いました。
816+「これは、お前、カルモチンじゃない。ヘノモチン、という」
817+ と言いかけて、うふふふと笑ってしまいました。「癈人」は、どうやらこれは、喜劇名詞のようです。眠ろうとして下剤を飲み、しかも、その下剤の名前は、ヘノモチン。
818+ いまは自分には、幸福も不幸もありません。
819+ ただ、一さいは過ぎて行きます。
820+ 自分がいままで阿鼻叫喚で生きて来た所謂「人間」の世界に於いて、たった一つ、真理[#「真理」に傍点]らしく思われたのは、それだけでした。
821+ ただ、一さいは過ぎて行きます。
822+ 自分はことし、二十七になります。白髪がめっきりふえたので、たいていの人から、四十以上に見られます。
823+[#改頁]
824+
825+
826+
827+[#3字下げ]あとがき[#「あとがき」は大見出し]
828+
829+
830+ この手記を書き綴った狂人を、私は、直接には知らない。けれども、この手記に出て来る京橋のスタンド・バアのマダムともおぼしき人物を、私はちょっと知っているのである。小柄で、顔色のよくない、眼が細く吊《つ》り上っていて、鼻の高い、美人というよりは、美青年といったほうがいいくらいの固い感じのひとであった。この手記には、どうやら、昭和五、六、七年、あの頃の東京の風景がおもに写されているように思われるが、私が、その京橋のスタンド・バアに、友人に連れられて二、三度、立ち寄り、ハイボールなど飲んだのは、れいの日本の「軍部」がそろそろ露骨にあばれはじめた昭和十年前後の事であったから、この手記を書いた男には、おめにかかる事が出来なかったわけである。
831+ 然るに、ことしの二月、私は千葉県船橋市に疎開している或る友人をたずねた。その友人は、私の大学時代の謂わば学友で、いまは某女子大の講師をしているのであるが、実は私はこの友人に私の身内の者の縁談を依頼していたので、その用事もあり、かたがた何か新鮮な海産物でも仕入れて私の家の者たちに食わせてやろうと思い、リュックサックを背負って船橋市へ出かけて行ったのである。
832+ 船橋市は、泥海に臨んだかなり大きいまちであった。新住民たるその友人の家は、その土地の人に所番地を告げてたずねても、なかなかわからないのである。寒い上に、リュックサックを背負った肩が痛くなり、私はレコードの提琴の音にひかれて、或る喫茶店のドアを押した。
833+ そこのマダムに見覚えがあり、たずねてみたら、まさに、十年前のあの京橋の小さいバアのマダムであった。マダムも、私をすぐに思い出してくれた様子で、互いに大袈裟《おおげさ》に驚き、笑い、それからこんな時のおきまりの、れいの、空襲で焼け出されたお互いの経験を問われもせぬのに、いかにも自慢らしく語り合い、
834+「あなたは、しかし、かわらない」
835+「いいえ、もうお婆さん。からだが、がたぴしです。あなたこそ、お若いわ」
836+「とんでもない、子供がもう三人もあるんだよ。きょうはそいつらのために買い出し」
837+ などと、これもまた久し振りで逢った者同志のおきまりの挨拶を交し、それから、二人に共通の知人のその後の消息をたずね合ったりして、そのうちに、ふとマダムは口調を改め、あなたは葉ちゃんを知っていたかしら、と言う。それは知らない、と答えると、マダムは、奥へ行って、三冊のノートブックと、三葉の写真を持って来て私に手渡し、
838+「何か、小説の材料になるかも知れませんわ」
839+ と言った。
840+ 私は、ひとから押しつけられた材料でものを書けないたちなので、すぐにその場でかえそうかと思ったが、(三葉の写真、その奇怪さに就いては、はしがきにも書いて置いた)その写真に心をひかれ、とにかくノートをあずかる事にして、帰りにはまたここへ立ち寄りますが、何町何番地の何さん、女子大の先生をしているひとの家をご存じないか、と尋ねると、やはり新住民同志、知っていた。時たま、この喫茶店にもお見えになるという。すぐ近所であった。
841+ その夜、友人とわずかなお酒を汲《く》み交し、泊めてもらう事にして、私は朝まで一睡もせずに、れいのノートに読みふけった。
842+ その手記に書かれてあるのは、昔の話ではあったが、しかし、現代の人たちが読んでも、かなりの興味を持つに違いない。下手に私の筆を加えるよりは、これはこのまま、どこかの雑誌社にたのんで発表してもらったほうが、なお、有意義な事のように思われた。
843+ 子供たちへの土産の海産物は、干物《ひもの》だけ。私は、リュックサックを背負って友人の許《もと》を辞し、れいの喫茶店に立ち寄り、
844+「きのうは、どうも。ところで、……」
845+ とすぐに切り出し、
846+「このノートは、しばらく貸していただけませんか」
847+「ええ、どうぞ」
848+「このひとは、まだ生きているのですか?」
849+「さあ、それが、さっぱりわからないんです。十年ほど前に、京橋のお店あてに、そのノートと写真の小包が送られて来て、差し出し人は葉ちゃんにきまっているのですが、その小包には、葉ちゃんの住所も、名前さえも書いていなかったんです。空襲の時、ほかのものにまぎれて、これも不思議にたすかって、私はこないだはじめて、全部読んでみて、……」
850+「泣きましたか?」
851+「いいえ、泣くというより、……だめね、人間も、ああなっては、もう駄目ね」
852+「それから十年、とすると、もう亡くなっているかも知れないね。これは、あなたへのお礼のつもりで送ってよこしたのでしょう。多少、誇張して書いているようなところもあるけど、しかし、あなたも、相当ひどい被害をこうむったようですね。もし、これが全部事実だったら、そうして僕がこのひとの友人だったら、やっぱり脳病院に連れて行きたくなったかも知れない」
853+「あのひとのお父さんが悪いのですよ」
854+ 何気なさそうに、そう言った。
855+「私たちの知っている葉ちゃんは、とても素直で、よく気がきいて、あれでお酒さえ飲まなければ、いいえ、飲んでも、……神様みたいないい子でした」
benchmark/Streamly/Benchmark/Unicode/data/Korean.txtnew file+493
@@ -0,0 +1,493 @@
1+야구
2+위키백과, 우리 모두의 백과사전.
3+ 이동: 둘러보기, 찾기
4+
5+야구
6+일리노이 주 시카고의 리글리 필드 경기 장면
7+최고 기구 국제 야구 연맹
8+별칭 하드볼
9+기원 18세기 중반 잉글랜드 (초기 형태)
10+ 1846년 6월 19일 미국
11+뉴저지 주 호보컨 (공식 경기)
12+특징
13+팀 인원수 9명
14+분류 실외, 필드, 구기
15+장비 야구공, 야구 방망이, 글러브
16+경기장 야구장
17+올림픽 1992년~2008년
18+ 야구 경기
19+야구(野球, baseball)는 각각 아홉 또는 열 명으로 구성된 두 팀이 방망이와 공을 사용해 겨루는 구기 종목이다. 야구의 목표는 공을 방망이(배트)로 맞추어, 한 변이 27.432 미터(90 피트)인 정사각형의 각 꼭지점에 놓여 있는 루(壘, Base)를 밟은 뒤 마지막으로 본루(本壘, Home Plate)를 밟아서 득점하는 것이다.[1] [2]공격 팀은 아홉 타자가 순서대로 나와서 수비 팀의 투수가 던지는 공을 쳐서 다이아몬드의 각 루를 밟은 뒤 홈에 들어와야 하며, 동시에 수비 팀은 공격 팀의 타자들이나 주자들을 여러 가지 방법을 통해 아웃시켜서 공격 팀이 득점을 못 하도록 막아야 한다. 공격 팀의 타자들은 동료가 안타(간혹 2루타, 3루타를 치는 경우가 있으며 외야 펜스를 넘기거나 아웃 당하기 전에 홈으로 돌아오면 홈런이 된다)를 쳤을 경우 원하는 루에 멈춰서거나 홈으로 들어와 득점할 수 있다. 공격 팀이 아웃 세 번을 기록할 경우 수비 팀은 공격 팀으로, 공격 팀은 수비 팀으로 바뀐다. 이 세 번의 아웃을 이닝(Inning, 회)이라고 부르며, 프로 게임에서 한 경기는 아홉 개의 이닝으로 구성된다. 마지막 이닝이 끝날 때 더 많은 득점을 한 팀이 이기게 된다. 공격과 수비가 완전히 분리된 스포츠이다.
20+프로 야구, 아마추어 야구, 청소년 야구는 북아메리카, 중앙아메리카, 남아메리카, 카리브 제도의 여러 국가들, 동아시아, 동남아시아 국가들에서 인기가 있다. 야구의 근대적인 틀은 19세기 북아메리카에서 만들어졌다. 역사학자들은 야구의 원형은 북미 대륙에 건너 온 영국, 아일랜드 이민자들이 가지고 들어 온, 크리켓이나 라운더스와 같이 공과 방망이를 사용하는 구기 경기에서 시작되었다는 데 의견을 함께한다. 19세기 후반 야구는 미국의 국기(國技)로 널리 인정받게 되었다.목차 [숨기기]
21+1 야구의 명칭
22+2 야구의 역사
23+2.1 야구의 기원
24+2.2 미국에서의 발전
25+2.3 세계의 야구
26+2.3.1 한국
27+3 야구 규칙과 경기 진행
28+3.1 경기 용구
29+3.2 포지션
30+3.3 아웃
31+3.4 진루
32+4 야구의 인원
33+4.1 선수 명단
34+4.2 그 외
35+5 야구의 기본기와 전술
36+5.1 기본기
37+5.2 전술
38+6 야구의 고유한 스타일
39+6.1 시간적 요소
40+6.2 개인과 팀
41+7 경기장
42+8 기록
43+9 야구 단체 및 주요 대회
44+9.1 국제 야구 단체
45+9.2 야구 대회
46+9.3 야구 리그
47+10 같이 보기
48+11 참고 문헌
49+12 주석
50+13 바깥 고리
51+
52+[편집]
53+야구의 명칭
54+
55+ 주만 가나에
56+
57+야구의 명칭의 유래는 1894년 일본 제일고등중학교(현 도쿄 대학 교양학부)에서 재학중이던 주만 가나에가 'baseball'을 일본어 '野球(や-きゅう)'로 번역한 것이 대한민국으로 들어와 사용되고 있는 것이다. 그 외에도 일본의 문학가 마사오카 시키가 '배터(batter)', '러너(runner)', '베이스 온 볼스(base on balls)', '스트레이트(straight)', '쇼트스톱(shortstop)' 등의 미국식 야구용어를 '타자', '주자', '사구 (四球)대한민국에선 사구 대신 볼넷으로 사용)', '직구'(대한민국에서는 포심 속구, 투심, 컷 패스트볼로 부름.) '유격수'로 번역한 것이 대한민국에 들어와 쓰이고 있다.[3] 때때로 야구를 비슷한 경기인 소프트볼(softball)에 대비하여 하드볼(hardball)로 부르기도 한다.
58+[편집]
59+야구의 역사
60+ 이 부분의 본문은 야구의 역사입니다.
61+[편집]
62+야구의 기원
63+
64+야구의 기원은 확실하게 짚어내기가 힘들다. 1344년에 출간된 프랑스의 한 책에 성직자들이 야구와 흡사한 라 술(La soule)이라는 게임을 즐기는 모습을 담은 삽화가 실려있다.[4] 원래 야구는 미국의 애브너 더블데이라는 군인 출신의 인물이 1839년에 쿠퍼스타운에서 창안했다고 알려졌다. 하지만 그가 직접 야구를 창안했다는 구체적인 증거가 없으며, 광산 기술자 출신의 애브너 그레이브스의 증언이 있었으나 별로 신뢰하기 어렵기 때문에 야구는 유럽에서 미국으로 전해진 것으로 추측된다.[5]
65+
66+방망이와 공을 이용한 경기는 이미 오래 전부터 리디아인, 페르시아인, 인도인, 이집트인, 그리스인, 로마인 등에 의해 의식이나 오락으로 행해졌다. 이런 경기들은 정해진 규칙없이 여러 지역에서 행해졌다. 이런 여러가지 배트와 공을 이용하는 경기를 통해서 야구는 두드러진 발전을 할 수 있었다. 이런 발전을 통해서 1774년에 독일에서 프리드리히 구츠무츠가 존 뉴베리에서 출간한 《작고 귀여운 포켓북》(A Little Pretty Pocket-book)이라는 시집에서는 최초로 'Base-ball'이라는 단어가 들어가기도 했다.[6]
67+
68+방망이와 공을 이용해 하는 경기는 영국에서 여러 가지 종류로 발전하는데, 영국 동남부에서는 크리켓으로, 남서부에서는 원홀 캣(또는 원 오캣)의 이름으로 발전했으며, 야구와 흡사한 경기인 라운더스도 있었다. 이런 종류의 경기들은 아메리카 대륙으로 옮겨와 두가지 형태로 진화했는데, 뉴욕 주변에서 행해진 타운볼은 각각 9명의 선수로 이루어진 두 팀이 하는 경기로 정비되었다.
69+
70+ 알렉산더 카트라이트
71+
72+루셔스 애덤스등은 야구의 기본적인 규칙을 확립했다. 특히 1845년에는, 미국 뉴욕의 알렉산더 카트라이트가 니커보커 규칙을 만들었으며, 이 규칙은 오늘날 현대 야구의 규칙으로 진화하게 된다.[7] 그는 또한 라운더스에서 사용되었던 말랑말랑한 공을 더 작지만 딱딱한 공으로 교체했다.[8] 1953년 6월 3일, 미국 의회는 공식적으로 카트라이트가 근대 야구의 발명가임을 인정했다.
73+
74+카트라이트가 소속된 구단인 뉴욕 니커보커스 팀이 1845년에 경기를 했다는 기록이 있기는 하지만, 미국의 역사상 공식적인 첫 경기로 현재 알려지고 있는 것은 1846년 6월 19일 뉴저지 주의 '호보켄'에서,[9] '뉴욕 나인'[10]이 '니커보커스' 팀을 4이닝 동안 23 대 1로 이긴 경기이다.[11]
75+[편집]
76+미국에서의 발전
77+
78+1860년대 이미 미국에서는 야구가 대중적인 스포츠로 자리 잡았으며 선수들은 연봉을 받고 생활하는 프로 선수였으나 아마추어 선수처럼 생활해야 했다. 아마추어 시대는 1871년 3월 17일, 전미프로야구선수협회가 창설됨으로써 그 막을 내렸다. 1869년, 최초의 프로 야구 팀 신시내티 레드 스타킹스(Cincinnati Red Stockings)가 창단 되었으며 1875년에는 내셔널 리그(연봉 상한제 있음)가 창설되었다. 1882년에는 아메리칸 어소시에이션(American Association)이 창설되었고 1901년에는 이를 전신으로 하는 아메리칸 리그(연봉이 무제한임)가 창설되어 양대 리그체제를 갖추게 되었다. 1903년에는 양 리그의 우승 팀간의 승자를 겨루는 월드 시리즈(여기에서 월드(World)는 "월드신문사"의 이름으로써 신문사에서 스폰서를 해주기 때문에 월드시리즈라는 이름이 쓰인다고 한다)가 처음으로 치러졌으며, 1933년에는 올스타전이 처음으로 치러졌다.[12]
79+
80+이후 많은 제도의 발전이 있었다. 브랜치 리키는 1920년에 대규모의 팜 시스템(Farm System)을 도입했다[13] 1975년에는 커드 플러드 등 여러 선수들의 희생으로 자유 계약 제도가 도입 되었다. 1980년에는 선수협 위원들이 구단주를 상대로 고소를 함으로써 연봉 상한선이 폐지되는 등 선수들의 권익이 향상되었다.[14]
81+
82+ 재키 로빈슨
83+
84+메이저 리그 야구에서는 1947년 이전까지 흑인이 선수로 활동하지 못했다. 그 대신 흑인들은 1920년에 설립된 니그로 리그에서 선수로 뛰었고, 1924년에는 최초의 니그로 월드 시리즈가 치러졌다. 메이저 리그 야구에서 흑인이 최초로 선수로 뛴 것은 1947년으로, 재키 로빈슨은 로스앤젤레스 다저스에 입단해 10년간 팀에 몸담았으며, 1962년에는 명예의 전당에 헌액된 최초의 흑인이 되었다.[15]
85+
86+투수는 1960년대에서 1970년대 초반까지 경기에서 타석에 섰다. 1970년대 초반, 지명타자(designated hitter, DH) 규칙이 제안되었으며,[16] 아메리칸 리그에서는 1973년 이 규칙이 적용되기 시작해 투수가 타석에 서지 않게 되었고 지명타자는 타석에만 서면서 수비는 하지 않았다. 내셔널 리그에서는 지금도 투수가 타석에 선다.
87+
88+메이저 리그 야구는 1980년대 초반까지 불법이었던 약물 복용이 흔했고, 이 시기가 되어서야 알려졌다. 또한 여러 선수들이 약물로 인해 사망했다. 1990년대 초반부터는 선수들이 근육강화제를 사용했으며, 이 때문에 2005년 3월 17일, 미국 의회는 스테로이드 사용에 관한 청문회가 열렸다. 이 때문에 메이저 리그 야구는 2006년부터 약물 복용이 처음 발각 되었을 때에는 50경기, 두 번째에는 100경기, 세 번째로 발각이 되면 영구 제명이 된다는 '삼진 아웃' 제도를 적용하기 시작했다.[17]
89+
90+메이저 리그 야구는 점점 미국 전역으로 확대 되었는데, 팀이 미국 동부에서 서부로 많이 옮겨갔으며, 캐나다에서도 1969년 몬트리올 엑스포스(현 워싱턴 내셔널스)가, 1977년 토론토 블루제이스가 리그에 참가했다.[18] 현재는 내셔널 리그 16팀, 아메리칸 리그 14팀으로 팀 수 (목표는 모든 리그 16팀씩 32팀)가 유지가 되고 있으며, 경기 수는 한 시즌 당 162경기로 치러진다.
91+[편집]
92+세계의 야구
93+
94+ 야구의 픽토그램.
95+
96+야구는 미국의 대표적인 스포츠 중 하나며, 다른 여러 나라에서도 팬들의 지지에 기반한 야구 체계가 갖추어져 있다. 캐나다 야구의 역사는 미국과 밀접하게 관련이 있는데, 1877년 프로리그와 국제 협회에서 두 나라로 이루어진 특색있는 팀을 만들기도 했었다.
97+
98+세계적으로 미국과 캐나다가 아닌 다른 공식적 첫 야구 리그는 쿠바의 야구 리그이다. 쿠바는 오랜 전통을 유지하며 1930년대 후반부터 국제 경기에서 막강한 전력을 자랑하는 팀이라는 명예를 얻게 된다.
99+
100+쿠바의 야구 리그가 만들어진 후 프로 리그가 생긴 국가는 다음과 같다. 제1차 세계 대전 후에 프로 리그가 만들어진 국가는 1922년 네덜란드, 1934년 오스트레일리아, 1936년 일본, 1938년 푸에르토 리코이며, 제2차 세계대전 이후에 프로 리그가 만들어진 국가는 1948년 이탈리아, 많은 라틴 아메리카의 나라들 중 가장 두드러진 나라, 1945년 베네수엘라, 1945년 멕시코, 1951년 도미니카 공화국과 1982년 대한민국, 1990년 타이완, 2003년 중국 순으로 만들어졌다. 2009년 현재, 국제 야구 연맹에는 현재 117개국이 가입했다.[19]
101+
102+현재 야구는 미국, 일본, 대한민국 의 국가에서 가장 인기있는 스포츠 중 하나이다. MLB의 겨울 리그 프로그램으로 푸에르토 리코, 베네수엘라, 도미니카 공화국, 오스트레일리아에 겨울 리그가 존재하고, 멕시코는 MLB 하위 Triple-A 에서 리그 참여를 하고있다. MLB 는 푸에르토 리코, 베네수엘라, 도미니카 공화국,멕시코 가 참여하는 캐러비언 시리즈를 4년에 한번씩 개최하고 있다. 또한 이탈리아, 네덜란드, 중국, 타이완, 니카라과 에도 대회가 존재한다.
103+
104+공식적 첫 야구 리그 였던 쿠바의 야구 리그는 1961년 쿠바 혁명으로 폐지 되었다. 자세한 내용은 하위항목 야구 리그 참조.
105+
106+한편 2005년 7월 싱가포르에서 열린 2012년 하계 올림픽에 관한 117번째 회의에서 야구, 소프트볼 종목 삭제에 관한 투표가 진행되어 2012년 하계 올림픽에서 야구, 소프트볼 종목을 제외시키기로 결정했다. 이는 메이저 리거들이 출전하지 않기 때문이다.[20]. 또한 2009년 8월 회의에서 2016년 하계 올림픽 에도 야구 종목을 제외하기로 결정했다. 이 회의에서는 빅스타 선수가 참여하는 8팀, 짧은 5일 간의 경기 방식으로 바꾸라고 요구했다.[21]
107+[편집]
108+한국
109+
110+한국에 야구가 처음 들어온 것은 1905년으로, 당시 선교사로 온 미국인 질레트(P. L. Gillett)가 황성기독교청년회 회원들에게 야구를 가르친 것이 그 시초이다. 1906년 2월 11일 훈련원 터에서 YMCA팀 대 덕어(독일어)학교팀 사이에 최초의 야구경기가 열렸다. 《황성신문》1909년 3월 21일자엔 이러한 〈야구단 운동가〉라는 노래가 소개돼 있을 정도로 야구는 큰 인기를 누렸다: "무쇠 골격 돌 근육 소년 남아야/애국의 정신을 분발하여라/다달았네 다달았네 우리나라에/소년의 활동 시대 다달았네 /(후렴) 만인 대적(對敵) 연습하여 후일 전공 세우세/절세 영웅 대사업이 우리 목적이 아닌가" [22]
111+[편집]
112+야구 규칙과 경기 진행
113+
114+ 야구 경기장의 구조
115+ 이 부분의 본문은 야구 규칙입니다.
116+
117+야구 경기는 두 팀이 서로 겨루는데, 경기가 진행되는 동안에 두 팀은 공격과 수비를 번갈아 가면서 진행한다. 그리고 공격 팀이 공격을 진행하면서 세 번의 아웃을 기록하면 공격 팀은 수비 팀으로, 수비 팀은 공격 팀으로 바뀐다. 그리고 이 세 번의 아웃을 이닝(inning, 회)이라고 하며, 일반적인 경기는 9이닝으로 구성되어 진행된다. 그리고 한 이닝은 초(初, 선공)와 말(末, 후공)로 구성된다. 그리고 한 이닝에 두 팀은 공격과 수비를 번갈아 가면서 경기를 진행하는데, 한 팀, 주로 홈팀이 말에 공격하며, 다른 한 팀, 주로 원정팀이 초에 공격한다. 야구 경기의 목표는 경기를 치르면서 상대 팀보다 더 많은 점수(득점)를 얻어 승리하는 것이다. 공격하는 팀의 선수들은 사각형 형태의 내야 다이아몬드 꼭지점에 있는 네 개의 베이스를 돌면 득점을 할 수 있다. 타자는 홈플레이트에서 타격을 하며 누상에 출루하고서는 반드시 시계반대방향으로 1루, 2루, 3루, 그리고 홈플레이트를 거쳐야 하며, 홈을 밟으면 득점이 된다. 반면 필드에서 수비를 보는 다른 팀은 아웃을 잡고 공격 팀이 점수를 내는 것을 막아야 한다. 아웃을 잡힌 선수는 배팅 오더에 따라 자신의 차례가 돌아올 때까지 공격을 할 수 없다. 세 개의 아웃카운트가 채워지면, 양 팀은 공격과 수비 역할을 교대하는 공수교대를 하며, 경기는 초에서 말로, 말에서 초로 바뀌게 된다. 9이닝동안 경기가 진행되다가 9회가 다 끝나도 점수가 같을 경우에는 연장전을 치뤄 승부를 낸다. 어린이 야구에서는 9이닝보다 적은 이닝으로 경기가 이루어지는게 보통이다.[23]
118+[편집]
119+경기 용구
120+ 이 부분의 본문은 야구의 경기 용구입니다.
121+
122+야구를 하기 위해서 기본적으로 필요한 것은 방망이, 야구공, 글러브, 야구 경기를 치를 수 있는 경기장이 필요하다.
123+방망이는 공격을 할 때 필요한 도구로, 보통 알루미늄이나 목재로 만든다. 배트는 길고 딱딱한 나무 막대기이고, 손잡이 부분을 제외하고 지름은 약 2인치(5 센티미터)이다. 손잡이 부분은 지름이 약 1인치(2.5 센티미터)이다.
124+야구공은 한 주먹 정도의 크기이고 빨간색 실이 들어간 흰색(다른 색일 수도 있다) 공이다. 소프트볼의 경우, 보통 주먹 두 개 정도 크기의 흰색 줄무늬가 있는 흰색이나 노랑색 공을 사용한다.
125+글러브 또는 미트는 수비할 때 필요한 도구로, 가죽으로 만들어졌으며, 선수의 손에 착용한다. 글러브의 모양은 사용하는 선수의 포지션에 따라 조금씩 다르다.
126+야구의 경기장은 선수의 나이, 능력에 따라서 크기가 달라진다. 하지만 모든 야구장은 다이아몬드와 모서리, 베이스(루)
127+ 야구공
128+가 있으며, 같은 방식의 경기를 진행한다. 경기장은 크게 내야와 외야로 구별된다.
129+ 야구공
130+[편집]
131+포지션
132+ 이 부분의 본문은 야구의 포지션입니다.
133+
134+ 야구의 포지션
135+
136+이닝에서, 수비를 할 때 9명의 수비수들은 각자의 수비 위치에 선다. 다이아몬드의 중심의 투수판에 서 있는 선수를 투수라고 하며, 그리고 홈 플레이트 뒤에 앉아 있는 선수를 포수라고 하는데 이 둘을 배터리라고 부른다. 나머지 수비수들은 야수라고 부르는데 야수는 위치에 따라 내야수와 외야수로 분류되며 내야 안에 있는 4명의 수비수들을 내야수라고 한다. 내야수 중 3명은 1, 2, 3루에 서 있는데 이들은 각각 1루수, 2루수, 3루수라고 말하며 각 루와 그 주변을 수비하는 역할을 한다. 나머지 한명은 유격수로, 2루와 3루 사이의 서면서 그 사이를 수비한다. 그리고 나머지 3명의 선수는 외야에 서는데, 이들을 외야수라고 하며, 위치에 따라 좌익수(왼쪽), 중견수(가운데), 우익수(오른쪽)로 구분해서 부른다.
137+
138+지명타자는 공격만 하고 수비는 하지 않는데, 이는 투수를 보호하기 위해 고안된 규칙으로 지명타자는 투수 대신 공격을 한다.
139+
140+경기에서 홈플레이트 옆에 있는 타석에 서 공격을 하려는 선수를 '타자'라고 부르며, 타자는 배트를 잡고 있으며, 투수가 투수판에서 홈플레이트 쪽으로 공을 던지면 타자는 배트로 공을 쳐서 점수를 내려고 한다. 타자가 공을 치고 난 후에 타자는 배트를 놓고 1루를 향해 달려간다. 그리고 상황에 따라 2, 3루, 홈까지 갈 수 있다. 아웃이 된 경우에는 덕아웃으로 돌아간다.
141+
142+투수는 타자가 베이스에 나가지 못하게 막기 위해 투수판에서 공을 던지는데, 공을 어디에 던지느냐에 따라 '스트라이크'(strike)와 '볼'(ball)로 구별된다. 타자는 스트라이크가 3개가 되면 아웃되지만, 볼이 4개가 되면 1루로 나갈 수 있다.
143+
144+스트라이크를 던지는 방법은 다음과 같다.
145+투수가 공을 던졌는데 스트라이크 존(strike zone)을 통과한 경우.
146+타자가 공을 보고 방망이를 휘둘렀으나 맞지 않은 경우.(헛스윙)
147+타자가 공을 쳤으나 파울 라인이나 파울 폴(foul pole)을 기준으로 필드 바깥쪽으로 공이 날아간 경우. 이 경우를 파울(foul) 이라고 한다. 하지만 2 스트라이크 상태에서 파울이 된 경우에는 스트라이크가 추가되지 않는다.
148+[편집]
149+아웃
150+타자가 친 공이 노바운드(친 공이 땅에 떨어지지 않는상태)로 야수들의 글러브나 미트에 들어간 경우.
151+스트라이크를 3번 허용한 경우(스윙이나 그냥 보거만 있거나 스트라이크 존 안에서 몸에 맞거나).
152+2스트라이크 상황에서 번트가 파울이 된 경우(스리번트 아웃).
153+타자가 친 공을 야수가 잡은 후 타자가 1루에 닿기 전에 1루수에게 던진 후 잡은 경우.
154+타자가 친 공을 야수가 잡은 후 타자가 1루에 닿기 전에 1루수에게 던진 후 잡은 공으로 타자를 태그 하는 경우.
155+타자가 친 공을 야수가 잡은 후 주자를 태그한 경우.
156+타자가 친 공을 야수가 잡은 후 주자가 진루할 루로 가서 포스아웃 하는 경우
157+(단, 포스아웃 당할 주자의 원래의 루로 다음 주자 혹은 타자가 주루해야 하는 경우.).
158+타자가 친 공에 주자가 맞은 경우.
159+타자가 2루타 이상의 장타를 쳤는데 베이스를 밟지 않고 진루한 때 수비측이 그에 대해 어필(항의)을 한 경우(누의 공과).
160+2스트라이크 상황에서 타자가 공에 맞았지만 배트를 휘두른 경우.
161+타자가 친 공을 노바운드로 야수가 잡은 후, 주자가 원래의 루에 귀루하여 터치하지 않고 진루했을 때 주자나 베이스를 공으로 터치한 경우
162+(이 경우 포스아웃이 아닌 어필아웃이다).
163+타자가 친 공이 야수가 충분히 노바운드로 잡을 수 있다고 판단한 경우에 관중들이 공을 잡은 경우.
164+노아웃이나 1아웃 주자 1,2루나 만루일때, 타자가 친 공이 내야수들이 충분히 잡을 수 있는 내야안의 경우라 판단 될 경우 (인필드 플라이).
165+타자가 공을 쳤고 수비수가 충분히 잡을 수 있는데 주자 혹은 타자가 쳐서 수비방해한 경우.
166+타순이 엉켜서 상대편이 어필한 경우.(예를들어 3번타자가 나와야 할 때 4번타자가 나와서 타격을 해서 안타 등이 나왔는데 어필하면 3번타자는 아웃이고 4번타자는 다시 쳐야 한다.)
167+2스트라이크 이후에 투수가 던진 공이 스트라이크 선언되거나 타자가 헛스윙을 하였는데 포수가 노바운드로 잡지 못하여 공을 타자에게 태그하거나 타자가 1루 베이스를 밟기 전에 1루에 던진 경우. (스트라이크 아웃 낫아웃)
168+노아웃 혹은 1아웃에서 1루 주자가 있을때 제3스트라이크가 선언되었으면 스트라이크 아웃 낫아웃이 적용되지 않고 그대로 스트라이크 아웃이 된다.
169+주자가 선행주자를 추월한 경우
170+주자나 타자가 태그를 피하기 위해 루와 루사이를 연결하는 가상의 직선에서 91.4cm 이상 떨어져 주루했을때 (타구를 처리하는 야수를 피해 달린것은 상관없다.) (스리피트라인 아웃)
171+2스트라이크 상황에서 주자가 번트를 시도하여 친공이 파울라인밖으로 나갈경우
172+[편집]
173+진루
174+
175+타자 또는 주자가 자신의 다음 베이스(타자의 경우에는 1루) 또는 그 이상에서 세이프되는 것을 진루라고 한다.
176+안타 : 히트(Hit)라고도 한다. 인플레이 상황에서 타구가 수비수가 잡을 수 없는 곳으로 갔을 때 안타라고 하며, 잡을 수 있는 공을 놓칠 때는 실책이라고 한다. 타자가 친 공이 땅바닥에 튀기지 않고 담장을 넘어가면 전광판에 안타라고 표시되지만, 주로 홈런이라고 하며, 모든 루를 돌아 홈플레이트를 밟고 득점할 수 있다.
177+볼넷 : 몸쪽에서 나간 공(볼)이 4개일 경우 진루하는 것을 말한다.
178+야수 선택 (필더스 초이스) : 야수의 기술적 실책이 아니라 두뇌적 실책에 의해서 주자가 진루하는 경우이다. 평범한 땅볼이 된 공을 잡은 야수가 1루에 타자 주자를 아웃시키는 대신, 선행주자를 아웃시키려고 다른 루에 송구하여 타자 주자가 1개 또는 그이상을 진루한 경우에 타자에게 주어지는 기록을 말한다.
179+실책 : 에러(Error)라고도 한다. 수비수가 잡아서 타자를 아웃을 시킬 수 있는 타구를 놓칠 때 쓰이는 말이다. 폭투, 도루 견제 때는 실책으로 인정하지 않는다. 2 스트라이크에서 헛스윙 삼진이 될 때, 그 공을 포수가 놓쳐서 그 사이에 타자가 1루에 무사히 갈 때는 스트라이크아웃 낫아웃이라고 한다.
180+몸에 맞은 볼 (힛바이피치드볼) : 타자의 몸에 공이 맞았을 때 1루로 진출할 수 있다.(스윙을 하지 않았을 경우) 정식 명칭은 '몸에 맞은 볼'이나 '힛바이피치드볼'이지만 보통 '데드볼'이라고 부른다.
181+[편집]
182+야구의 인원
183+[편집]
184+선수 명단
185+
186+구원 투수가 몸을 풀고 있으며, 투수 코치가 그들을 살펴보고 있다.
187+
188+최대 선수 명단 수는 리그 또는 수준에 따라 다르다. 메이저 리그 야구 팀은 선수 명단을 25명으로 유지하고 있다.
189+8명의 포지션 선수(position players)는 포수, 4명의 내야수, 3명의 외야수로 구성 된다.
190+5명의 선발 투수(starting pitchers)는 선발 로테이션을 구성한다.(6인도 있다.)
191+6명의 구원 투수(relief pitcher)에는 마무리 투수가 포함되며, 팀의 불펜을 구성한다.
192+1명의 백업 포수
193+2명의 백업 내야수
194+2명의 백업 외야수
195+1명의 지명타자, 또는 2번째의 백업 포수, 또는 7번째 구원 투수(seventh reliever)
196+[편집]
197+그 외
198+
199+팀의 감독 또는 수석 코치는 선수 명단, 타순, 선발 투수를 정하고, 특히 구원 투수의 경기 중의 등판 시점과 같은 선수교체 등과 같은 팀의 중요한 전술을 구상한다. 감독은 2명 또는 그 이상의 코치들의 도움을 받는다. 코치들은 타격 코치, 야수 코치, 투수 코치, 트레이닝 코치로 전문적인 책임을 가지고 있다. 대부분의 경기에선 팀이 공격을 할 때 1루 코치와 3루 코치가 경기장에 서 있는데 그들은 파울선의 밖에 정해진 장소에 서서 경기 중에 주자의 방향에 조언하고 경기 중단시에 감독의 지시를 타자와 주자에게 전달한다.[24]
200+ 이 부분의 본문은 야구 심판입니다.
201+
202+ 야구의 주심
203+
204+야구 경기에서 심판은 4명인데, 주심, 1루심, 2루심, 3루심으로 구성되어 있다. 먼저 주심은 포수 뒤에 서 있는데, 스트라이크 존을 통해서 스트라이크와 볼을 판정한다. 주심은 본루에서 아웃인지 세이프인지 판단하기도 한다. 그리고 나머지 1루심, 2루심, 3루심은 루 근처에서 서 있으며, 아웃인지 세이프인지 판정한다. 또한 타자가 하프 스윙 시에 주심이 스트라이크를 선고하지 않았을 경우에는 감독 또는 포수는 누심에게 조언을 받을 것을 요청할 수 있다. 좌우측 선심이 없는 경우 1, 3루심은 타자가 친 공이 외야에서 파울인지 아닌지 판단하기도 한다. 보크나 타임의 선언은 4심이 모두 동등한 권한을 갖는다.
205+
206+메이저리그 야구에서는 보통 4명의 심판을 두는데, 올스타전이나 포스트 시즌 경기와 같이 중요한 시합의 경우 좌측 선심과 우측 선심을 추가하여 6명의 심판을 둔다. 그리고 2008년 8월부터는 비디오 판독제를 도입하기로 했다.[25]
207+[편집]
208+야구의 기본기와 전술
209+[편집]
210+기본기
211+
212+야구는 기본적으로 야구공을 통해 이루어지는 경기인데, 공을 처리하는 것은 투구, 타격, 주루, 포구, 생각과 같은 동작으로 이루어진다.[26] 이에 따른 신체의 동작도 손(어깨), 발(다리), 눈, 입, 귀, 머리를 통해서 행해진다.[26] 손과 발은 투구, 타격, 주루, 포구에 필요한 수단이며, 눈은 잘볼 수 있는 수단이다.[26] 또한 야구는 단체스포츠이기 때문에 서로의 기분을 이해하고 동료의 플레이가 쉽게 되도록 서로 협조하는 팀워크가 필요하다.[27]
213+
214+투구는 투수가 투수판을 밟고 타자에게 공을 던지는 행위를 뜻한다.[28] 투수는 좋은 투구를 위해서는 스피드와 제구가 좋은 공을 던져야 하고, 기본적인 속구 이외에도 커브, 포크볼과 같은 변화구를 던질줄 알아야 한다.[29] 또한 투수는 일반적인 와인드업 포지션과 주자 견제를 위한 세트 포지션을 사용한다.[28]
215+
216+타격은 타자가 투수가 던진 공을 쳐내는 행위를 뜻한다. 스윙의 각도에 따라서 다운 스윙, 레벨 스윙, 어퍼 스윙으로 나뉜다.[28] 다운 스윙은 위에서 밑으로 내려치는 타법이며,[30] 레벨 스윙은 수평으로 휘두르는 타법으로 가장 이상적이며,[31] 어퍼 스윙은 밑에서 위로 올려치는 타법으로 가장 비효율적이다.[31]
217+
218+주루는 루 상에 나간 주자의 플레이를 말한다. 일반적으로, 주루는 득점을 위해 홈으로 들어오기 위한 하나의 전략이다. 주루를 위해서는 주루 감각과 도루, 투수의 견제시 대비가 중요하다.
219+[편집]
220+전술
221+
222+야구 경기에서 팀은 승리하기 위해서 여러가지 전술을 사용한다. 예컨대, 일반적으로 우타자는 좌완 투수에게 강하며, 좌타자는 우완 투수에게 강하다.[32] 만약 상대 팀의 선발 투수가 좌완 투수일 때, 보통 좌타자 대신 우타자를 많이 기용하며, 좌타자는 기용되지 않거나 하위타선에 배치된다. 이런 점 때문에 우완 투수일 때는 좌타석, 좌완 투수일 때는 우타석에 서서 양손을 사용하는 스위치 히터가 생겨났다.[33]
223+
224+ 타자가 번트를 시도하고 있다.
225+
226+희생 번트는 루 상에 나가 있는 주자의 진루를 목표로 하는 전술으로, 주로 아웃 카운트가 유리한 무사 1루, 무사 2루, 무사 1·2루일 때 시도한다.[34] 스퀴즈 플레이는 주자가 3루에 있을 때, 번트를 대서 3루 주자가 득점하기 위한 전술이다.[35] 희생 플라이(일명 태그업)은 주자가 3루에 있을 때, 타자가 뜬공을 쳐 내면, 야수가 뜬공을 잡았을 때 3루주자는 득점하는 전술이다.[36] 도루는 투수가 투구를 하는 사이에 주자가 다음 루로 가려고 시도하는 것으로, 주로 발이 빠른 주자가 시도한다. 히트 앤 런(Hit and run)은 투수가 투구를 하는 사이 주자는 다음 루로 주루하며, 타자는 투수가 던진 공을 무조건 쳐서 최대한 많이 진루하려는 것이다. 런 앤 히트(Run and hit)는 투수가 투구를 하는 사이 주자가 다음 루로 주루하는 것은 같지만, 타자는 투수가 던진 공을 원하면 타격하는 전술이다. 런 앤 히트 작전이 시도됐을 때 타자가 타격하지 않았을 경우 주자의 도루 시도가 된다.
227+
228+고의사구는 경기의 승부처(클러치)일 때, 잘 치는 타자가 나왔을 경우 그 타자를 볼넷으로 거르고 다음 타자와 상대해 더 큰 실점을 막으려는 전술이다. 루 상에 발이 빠르고 도루 가능성이 높은 주자가 나가있을 경우에는 투수가 포수에게 공을 하나 완전히 빼서 투구를 하는데, 도루를 대비해 주자를 견제하기 위한 것이다. 투수가 투구 전 또는 포수가 투구 후에 주자를 견제하기 위해서 주자가 있는 루의 야수에게 견제구를 던지기도 한다. 주자가 3루에 있을 때 내야 땅볼을 홈에 송구하기 위해서, 또는 타자가 번트한 공을 효율적으로 처리하기 위해서 야수들이 홈플레이트 쪽으로 이동해 수비를 한다.[37] 수비 위치는 타자의 타격 성향의 따라서 이동될 수 있다. 타자가 장타를 쳤을 때, 외야수는 잡은 공을 베이스에 있는 야수에게 송구하지 않고 보통 2루수 또는 유격수에게 송구를 하는데, 이를 중계 플레이라고 하며, 주자의 득점이나 진루를 방지하는 플레이이다.
229+
230+전술의 지시는 보통 감독, 코칭스태프, 또는 선수간의 사인으로 전달되는데, 대부분 손짓으로 이루어진다. 사인의 종류에는 플래시 사인, 블록 사인, 키 사인 등이 있다.[38] 메이저 리그 야구에서는 9이닝을 기준으로 한 경기에 오가는 사인이 평균 1000여건 정도이다.[39]
231+
232+경기는 모두 전술대로 진행하는 것은 아니며, 선수가 혼자서 독단적으로 플레이하는 경우도 있다. 예를 들어, 발이 빠른 주자들은 덕아웃 에서의 사인 지시 없이 자신의 판단으로 도루를 시도하는데, 이를 '그린라이트'(green light)라고 한다.[40]
233+[편집]
234+야구의 고유한 스타일
235+
236+야구는 미국의 스포츠 중에서 여러가지 면에서 독특한 특징을 갖는 스포츠이다. 이러한 독특함이 오랜기간 지속해 올 수 있었던 매력이자 미국인의 정신에 강한 연대감을 갖게 하는 큰 요인이다. 또한 많은 미국인들은 야구가 기술과 타이밍 그리고 열정, 전략의 최상의 조합이라고 생각한다. 철학자였던 모리스 라파엘 코언은 야구를 국민적 종교라고 묘사하기도 했다.[41] 이 점에서, 야구는 그의 사촌격인 크리켓과 유사한데, 많은 영연방 국가에서 크리켓과 그것과 관련된 문화는 미국 문화에서의 야구의 역할과 비슷한 지위와 영향력을 가진다.
237+[편집]
238+시간적 요소
239+
240+농구, 아이스하키, 미식축구, 그리고 축구는 모두 경기 시간이 정해져 있고, 보통 상대 팀에 직접적으로 저항해서 경쟁하는 것보다 정해져 있는 시간에서 공격에서 많은 시간을 차지한 팀에 의해 끝난다. 이와 반대로 야구는 경기 시간이 정해져 있지 않다. 팀은 마지막 타자가 나가기 전까지는 이길 수 없고 반격은 시간 제한을 받지 않는다. 비록 단체 종목과 반대되는 개인 종목들 중에서 경기 시간제한이 없어서 미국의 전문직들에게 인기가 많은 다른 스포츠로는 테니스와 골프가 있다.
241+
242+최근 수십 년간, 관찰자들은 매년 야구 경기를 하는 데에 걸리는 시간이 꾸준히 증가한 것에 대한 정당성을 들어 프로 야구의 게임 길이를 비판해 왔다. 20세기에 들어서면서 게임 시간은 전형적으로 1시간 반 정도였다(1시간 반으로 정해졌다). 1920년대에는 평균 2시간 미만으로 변한 것이 1960년대에는 결국 2시간 38분으로 늘어났다.[42] 1975년에는 평균 2시간 25분으로 줄어 들었지만,[43] 21세기에 들어서면서 2003년 시즌 종료 직후 조사한 결과 평균 2시간 46분대가 되는 것으로 밝혀져 경기 시간이 더욱 길어지게 된 것으로 판명되었다.[42]
243+
244+경기 시간이 늘어나는 것은 하프 이닝(half inning; 공수교대시간) 사이의 TV 광고, 늘어나는 반칙과 투구 인터벌, 그리고 느린 경기 흐름 때문이었다. 결국 메이저 리그는 하프 이닝 사이의 쉬는 시간의 최대 시간을 정하는 반면 심판이 더욱 엄격하게 스트라이크 존과 시간 규칙을 선수들이 지키게 강요하도록 교육했다.[42] [43] 2008년, 일본의 프로 야구는 2007년부터 과거 10년간의 평균 경기 시간이었던 3시간 18분의 6%(교토 의정서의 온실가스 배출량 감축 목표에서 따온 것이다)인 12분 줄이는 것을 목표로 삼았다.[44]
245+
246+이러한 제한 시간이 없는 특징 때문에 야구계 일각에서는 승부가 연장으로 이어질 시에 빠르게 승부를 낼 수 있는 규칙으로서 이른바 승부치기를 도입하는 것이 논의되고 있기도 하다. 실제 베이징 올림픽에서는 승부치기 제도가 실시된 바 있으나, 승부치기 제도가 일반적인 것은 아니며 전 세계 거의 대부분의 프로 야구 리그에서는 아직 승부치기 제도를 도입하지 않고 있다.
247+
248+공식적인 규칙에 명기되어 있기는 하지만 루(Base) 상에 주자가 없을 경우 투수는 12초 안에 투구해야 하며 이를 어길 시 그 투구는 '볼(Ball)'로 판정이 된다는 경기 촉진룰의 적용은 매우 드물고 아주 만약의 상황에만 시행 된다. 그러나 2010년도 프로야구에서는 이 12초룰을 적용키로 하여 투수에 유리한 룰이 아니냐며 타자들이 반발하고 있는 추세다. 심판은 또한 주자가 있을 경우에도 투수의 투구 지연 행위를 볼(Ball)로 판정할 수 있는 권리도 가지고 있는데 이 규칙 또한 매우 드물고 만약의 상황에만 시행된다. 공식 규칙 중에는 또한 주심이 타자에게 타격행위가 끝나지 않았을 경우 타자석을 벗어나지 않도록 요청할 수 있는 규칙이 있다. 그 이외의 다른 규칙으로는 '규칙위반을 하는지 주시하라'가 있다.
249+[편집]
250+개인과 팀
251+
252+야구는 근본적으로 팀 스포츠이다. 명예의 전당에 들어갈 정도로 훌륭한 실력을 가졌으며 높은 연봉을 받는 두, 세 명 정도의 선수를 보유할 정도로 재정이 좋은 지역 연고 구단이라 하더라도 기량이 우수한 선수들이 반드시 성공을 기대할 수는 없으며, 여전히 선수 개인들은 강한 압박과 시험에 놓이게 된다. 투수는 반드시 훌륭한 투구를 해야하며 만약 그렇지 못할 경우 시합에 질 위험이 크고, 타자는 극히 짧은 순간에 어떤 구질인지, 스윙을 해야 할지, 말아야 할지를 결정해야 한다. 감독과 코치가 어떤 작전을 수행할지를 선수들에게 사인을 줄 수는 있지만, 그 어느 누구도 투수가 투구하는 것을, 타자가 타격하는 것을 도와 줄 수는 없다. 타자가 직선타구를 치게 되면, 최종 수비자인 외야수들은 볼을 잡아야 할지, 바운드 볼로 처리해야 할지를 혼자서 결정한다. 야구의 역사에서는 영웅적 대접을 받는 선수와 비난을 받는 선수들이 많다 - 시합의 승부처(클러치)에서 한 선수가 적시 안타를 치거나 또는 공을 잡아 플라이 아웃 시킬 수도 있지만, 또는 그 반대로 예상치 못한 삼진 아웃을 당하거나 수비에서 실책을 해서 모두에게 뚜렷이 각인되는 결과를 낳았다.
253+
254+또한 야구에서 모든 선수들이 주자로 뛸 수 있으며 이 때문에 야구에서는 단거리 달리기가 매우 중요하다. 굳이 주자가 아니더라도 포수를 제외한 모든 포지션에서 뛰어난 단거리 달리기 능력이 요구된다. 단거리를 빠른 속도로 달리는 능력이야말로 야구의 기본기이다.
255+[편집]
256+경기장
257+ 이 부분의 본문은 야구장입니다.
258+
259+리글리 필드의 득점판. 2005년 7월 27일, 시카고 컵스 - 플로리다 말린스의 경기.
260+
261+야구 규칙에 따르면 경기장에 대한 규정은 다음과 같다.[1][45]
262+본루에서 1루, 1루에서 2루, 2루에서 3루, 3루에서 본루까지의 거리는 각각 27.432m(90피트)이다. 내야의 중앙 부근에 본루로부터 25.4cm(10인치)의 높이가 되도록 흙을 쌓아 올려 그곳에 투수판을 놓고 투수판 앞 15.2cm(6인치)되는 지점으로부터 본루를 향해 182.8cm(6피트)되는 지점까지, 경사도는 12:1이여야한다. 본루로부터 백 스톱까지의 거리 및 루선으로부터 파울지역에 있는 펜스, 스탠드 또는 플레이에 방해가 되는 시설까지의 거리는 18.288m(60피트) 이상이 되어야 한다. 내야는 한 변이 27.432m(90피트)인 정사각형이고 외야는 1루선과 3루선을 연장한 파울 라인 사이의 지역이다. 본루부터 페어지역에 있는 펜스, 스탠드 또는 플레이에 방해가 되는 시설까지의 거리는 76.199m(250피트) 이상이어야 한다. 경계선을 포함한 내야 및 외야는 페어지역이고 다른 지역은 파울지역이다.
263+1958년 6월 1일 이후 프로야구를 위해 건설하는 경기장은 본부로부터 좌우의 펜스, 스탠드 또는 좌우의 페어지역 위에 있는 플레이에 방해가 되는 시설까지의 거리는 99.058m(325피트) 이상, 중견의 펜스까지의 거리는 121.918m(400피트) 이상이여야한다.
264+본루는 오각형의 흰색 고무판으로 표시한다. 이 오각형을 만들 때에는 먼저 한 변이 43.2cm(17인치)인 정사각형을 그려, 이 중 한 변을 골라 이에 이웃한 양쪽의 변을 21.6cm(8½인치)로 줄인다. 이 변에서 밑변의 중심으로 각 30.5cm(12인치)의 변을 2개 만든다. 30.5cm(12인치)의 두 변이 만나는 곳을 1루선과 3루선의 교차점에 두고, 43.2cm(17인치)의 변을 투수판 쪽으로 해서 그 표면이 지면과 수평이 되도록 고정시킨다.
265+1루, 2루, 3루는 흰색 캔버스 백으로 표시하고 땅에 올바르게 고정시킨다. 1루와 3루의 캔버스 백은 완전히 내야 안쪽으로 들어가게 설치하고, 2루의 캔버스 백은 2루지점에 그 중심이 놓이도록 설치한다. 캔버스 백은 그 속에 부드러운 재료를 넣어서 만들고 그 크기는 38.1cm(15인치) 평방, 두께는 7.6cm(3인치)에서 12.7cm(5인치)까지 허용된다.
266+투수판은 가로 61cm(24인치), 세로 15.2cm(6인치)의 직사각형 흰색 고무 평판으로 만든다. 투수판은 그 앞쪽면 중앙으로부터 본루까지의 거리가 18.44m(60피트 6인치)가 되게 한다.
267+본거지 구단은 1루선과 3루선으로부터 적어도 7.62m(25피트) 떨어진 곳에 본거지 구단 및 방문 구단용으로 각 1개씩의 선수용 벤치를 설치하여야 하며, 이 벤치는 양 옆과 뒷 쪽을 둘러싸고 지붕을 씌워야 한다.
268+[편집]
269+기록
270+ 이 부분의 본문은 야구의 기록입니다.
271+
272+많은 스포츠 중에서 혹은 그보다 휠씬 더, 야구에서의 기록은 대단히 중요한 의미를 갖는다. 야구 기록은 미국 프로 야구인 메이저 리그의 태동과 함께 유지되어 왔으며 생각컨대 이전보다 더 일반적인 것이 되었다. 단장, 스카우터, 감독 그리고 선수들은 자신이 속한 팀의 승리를 위한 다양한 전략선택에 도움을 주기 위해 기록을 연구한다.
273+
274+야구에서의 기록은 여러 가지 이유로 다른 스포츠들보다 더 중요한 의미를 갖는 가장 중요한 이유는 다른 운동 경기들에서의 플레이는 유동적이고 다양한 결과를 보여주지만, 야구에서의 플레이는 제한된 결과만을 갖기 때문이다.
275+
276+모든 세대의 야구팬은 다음과 같은 전통적인 야구 기록에 대해 알고 있으며 또한 그 내용에 관해 의견을 교환한다.
277+'타수'(打數, At-bats, AB)는 타자가 타석에서 타격행위를 완료한 총 횟수를 의미한다. 타수에는 타자가 타격행위를 완료하지 않은 타석은 제외하는데 볼넷과 몸에 맞는 볼이 그러한 경우이다.
278+타자의 '타율'(打率, Batting Average, AVG)은 '안타'의 수를 '타수'로 나눈 값이다.[46] 이것은 타자의 타격능력을 보여주는 가장 기본적인 통계수치이다.
279+투수의 '평균자책점'(Earned Run Average, ERA, 일본 야구에서는 '방어율'(防禦率)이란 용어를 사용)은 투수가 투구한 총 이닝과 허용한 자책점을 평균적으로 환산하여 9 이닝당 자책점(투구와 관련없는 수비행위로 인한 실점은 제외)으로 보여주는 통계수치이다. 약어로는 'ERA'로 표기한다.
280+투수의 '이닝'(Inning, IP(Inning Pitched))은 투구행동의 기본단위이다. 보통 양팀의 공수교대를 1이닝으로 표현하기도 하지만, 투수가 얼마나 던졌는지를 가늠하는 것도 이닝이다. 투구수와는 상관없이 1-아웃카운트를 잡았을 경우 ⅓(0.1)이닝 2-아웃카운트를 잡았을 경우 ⅔(0.2)이닝이라 표현, 3명의 타자를 아웃시키면 1이닝으로 표현된다. (또는 0.3, 0.7, 1로 표현) 연속성은 상관이 없이 기록된다. 투구에 의한 아웃이 아니라, 견제사에 의한 아웃도 인정되므로 투구수 없이 이닝을 기록할 수도 있다. 이것은 주로 투수의 내구력과, 지구력에 대한 척도가 되곤 한다.
281+'도루'(Stolen Bases, SB)는 투수의 투구행동시 다음 루로의 진루를 하는 행위이다. 얼마나 빠른지에 대한 수치적인 기준이 되며, 도루가 많을수록 공격의 효율성이 좋아진다.
282+세이버매트릭스(Sabermetrics)
283+
284+미국 야구 연구 협회(The Society for American Baseball Research, SABR)는 야구 선수의 성과와 팀 기여도를 보다 더 잘 측정하고 상대적 가치에 관한 좀 더 추상적인 질문에 대한 답을 제공하기 위해 혁신적인 통계 수치를 개발해왔다('세이버매트릭스'란 용어는 학문의 분야와 고안된 특정 통계수치를 의미한다).
285+
286+몇몇 세이버매트릭스 신봉자들이 야구계의 주류로 편입함에 따라 '세이버매트릭스'의 통계기록은 일반적으로 사용되기 시작했으며, 내용은 다음과 같다.
287+'OPS'(출루율과 장타율을 합한 것)는 타율보다 타자들의 성과를 더 잘 측정한다고 세이버매트릭스를 믿는 사람들이 말하는 다소 복잡한 공식이다. 타자의 '출루율 : (안타 + 볼넷 + 사구) / (타수+볼넷 +사구 + 희생플라이)'[46] 과 '장타율 : 총루타수 / 타수'[47]를 더한 값이다.[48]
288+'WHIP'(투구이닝 당 허용한 볼넷과 안타의 합)[49]은 투수의 능력을 잘 보여주는 통계수치이다.
289+특정 상황에 따른 통계기록
290+
291+특정 상황에서 좀 더 세밀한 통계수치는 더욱 중요해진다. 예를 들어, 좌완 투수의 공을 잘 치는 타자의 경우 감독은 왼손 투수를 상대하기 위해 그 선수에게 좀 더 많은 기회를 줄 것이다. 득점상황에서 더 잘 치는 타자들이 나왔을 경우 상대팀 감독은 득점권 타율이 낮은 타자와 승부하기 위해 그 타자를 고의사구로 내보내려고 할 것이다.
292+
293+다른 통계 기록들도 있는데 위에서 언급한 통계수치들보다 덜 중요할지도 모른다. 타자의 경우 타수, 안타수, 장타수 그리고 타점이고 투수의 경우는 투구 이닝수, 9이닝 당 삼진수, 볼넷, 투구 수 등이다.
294+[편집]
295+야구 단체 및 주요 대회
296+[편집]
297+국제 야구 단체
298+
299+국제 야구 연맹에 가입된 국가.
300+
301+국제 야구 연맹은 1938년에 설립되었으며, 117개국이 가맹하고 있다.[19] 그리고 대륙별로도 연맹이 조직되어 있어 있으며, 다음과 같이 소속되어 있다.
302+
303+ 아프리카 야구·소프트볼 협회(ABSA) - 16개국
304+
305+ 팬아메리칸 야구 연맹(COPABE, 스페인어: Confederación Panamericana de Béisbol) - 26개국
306+
307+ 아시아 야구 연맹 (BFA) - 20개국
308+
309+ 유럽 야구 연맹 (CEB, 프랑스어: Confédération Européenne de Baseball) - 40개국
310+
311+ 오세아니아 야구 연맹 (BCO) - 15개국
312+[편집]
313+야구 대회
314+
315+세계의 주요 야구 대회에는 야구 월드컵, 대륙간컵 등이 있다. 하지만 이런 대회들은 아마추어 선수들만 참가하고 메이저 리그 야구 선수는 참여하지 않는다. 올림픽 야구 또한 메이저 리그 야구 선수들은 참여하지 않는데, 이 때문에 2012년 하계 올림픽에서 야구와 소프트볼이 제외된 이유가 되기도 한다. 유니버시아드 야구, 세계 청소년 야구 선수권 대회, 유스 베이스볼 월드 챔피언십은 대학, 청소년을 위한 대회이다. 여자 야구 대회로는 여자 야구 월드컵이 있다.
316+
317+메이저 리그 야구 사무국은 야구의 열기 확대를 위해서 메이저 리그 야구 선수들도 참가하는 프로 야구 대회인 WBC(월드 베이스볼 클래식)을 2006년에 개최했다. 이 대회는 2009년에 열린 후 그 이후로는 4년마다 열릴 예정이다.[50]
318+
319+각 대륙별 대회는 다음과 같다.
320+아프리카 - 올아프리카 게임 야구
321+아메리카 - 팬아메리칸 게임 야구
322+아시아 - 아시아 야구 선수권 대회
323+유럽 - 유럽 야구 선수권 대회
324+오세아니아 - 오세아니아 야구 선수권 대회
325+[편집]
326+야구 리그
327+
328+세계 야구에서 가장 큰 규모의 프로 야구 리그는 미국의 메이저 리그 야구로, 내셔널 리그 16팀, 아메리칸 리그 14팀, 총 30개의 팀으로 각각 서부, 중부, 동부 지구로 나뉘어 있다.
329+
330+메이저 리그 야구 밑으로는 트리플A, 더블A, 싱글A, 루키 등의 하위 리그들이 각 연고지마다 분포되있다. 그리고 메이저리그와는 별개로 독립리그들이 북중미권에 여럿 있다.
331+
332+또한 네덜란드, 이탈리아, 오스트레일리아, 푸에르토리코, 도미니카 공화국, 파나마, 콜롬비아, 베네수엘라, 니카라과, 캐나다 등에도 리그가 있으며, 특히 카리브해 국가들의 리그는 기후상 겨울에도 리그를 연다. 쿠바는 공산국가 특유상 프로리그는 없지만 아마추어 국제대회에서는 상당한 실력을 보인다.
333+
334+아시아에선 일본의 센트럴 리그와 퍼시픽 리그와 독립리그들이 있으며, 그 외에 대한민국, 타이완, 필리핀 등이 대표적이다.
335+
336+또한 야구 리그는 난이도에 따라, 예를 들어서 아마추어, 프로에 따라서, 또는 성별에 따라, 나이에 따라서 리그가 다르다. 어린이 프로그램은 야구 규칙에 보다 더 쉬운 규칙을 적용하고 더 작은 구장에서 경기를 치르며, 코치나 기계로부터 보다 더 쉬운 투구를 한다. 또한 아마추어, 논-프로도 공식 야구 규칙에서 변형된 규칙을 사용한다.
337+
338+야구 리그는 아메리카, 아시아, 유럽, 오세아니아 등에 존재한다. 특히 아시아의 경우 일본에서는 센트럴 리그와 퍼시픽 리그라는 양대 리그가 있다.
339+
340+대한민국에서는 1982년 한국야구위원회 창설로 프로야구가 설립되었으며 롯데 자이언츠, 삼성 라이온즈, 해태 타이거즈, MBC 청룡, OB 베어스, 삼미 슈퍼스타즈 등 6개 팀으로 시작 2013년 현재는 삼성 라이온즈, SK 와이번스, 롯데 자이언츠, 두산 베어스, KIA 타이거즈. 넥센 히어로즈, LG 트윈스, 한화 이글스, NC 다이노스 등 9개 팀으로 리그가 진행중이다. 현재 대한민국 프로야구는 10구단 창설 논의가 진행중이며, 2013년에 10구단의 모기업이 결정될 예정이다. 10구단에 관심이 있는 지역과 모기업은 수원시와 KT의 연합과 전라북도와 부영의 연합이다.
341+[편집]
342+같이 보기야구 규칙/경기 진행
343+야구의 경기 용구
344+야구의 포지션
345+야구의 기록
346+야구의 점수 기록
347+야구장 야구 문화
348+분류:야구 문화
349+분류:야구 영화
350+분류:야구 게임
351+분류:야구상
352+야구 은어
353+야구 카드
354+야구 명예의 전당
355+스피드건(en:Speed gun)
356+
357+ 야구 관련 스포츠
358+방망이와 공을 이용하는 경기
359+마운드볼
360+오이나
361+소프트볼
362+크리켓
363+스틱볼
364+원 홀캣
365+타운볼
366+라프타
367+스툴볼
368+티볼
369+
370+[편집]
371+참고 문헌
372+조지 벡시. 《야구의 역사》. 을유문화사. 8932430799
373+설리번 딘. 《Early Innings: A Documentary History of Baseball, 1825-1908》. U of Nebraska Press. 0803292449
374+설리번 딘. 《Late Innings: A Documentary History of Baseball, 1945-1972》. U of Nebraska Press. 0803292856
375+잭 스탈링스, 밥 베넷 (2003). 《Baseball Strategies: Your Guide to the Game Within the Game》. American Baseball Coaches Association/Human Kinetics. ISBN 0-7360-4218-0, OCLC 50203866
376+하일성. 《최신 야구교실》. 국일미디어. ISBN 978-89-7425-228-1
377+[편집]
378+주석
379+↑ 가 나 한국야구위원회. 한국야구위원회 : 경기규칙. 2012년 2월 23일에 확인.
380+↑ Major League Baseball. Major League Baseball: Official Baseball Rules. 2012년 2월 23일에 확인.
381+↑ 박동희. “SK 와이번스의 ‘야큐(野球)’ 실험”, 《스포츠 2.0》, 2007년 3월 23일 작성. 2009년 1월 1일 확인.
382+↑ Block (2005년), p.106~108.
383+↑ 야구의 역사, 조지 벡시 p. 59
384+↑ 야구의 역사, 조지 벡시 p.36
385+↑ Early Innings: A Documentary History of Baseball, 1825-1908, 설리번 p.292
386+↑ 쥘 티곌 (2002년). Past Time: Baseball as History. 《NINE: a Journal of Baseball History and Culture》 10: 170–171. doi:10.1353/nin.2002.0012. 2008년 6월 25일에 확인.
387+↑ Early Innings: A Documentary History of Baseball, 1825-1908, 설리번 p.80
388+↑ 야구의 역사, 조지 벡시 p. 32
389+↑ Early Innings: A Documentary History of Baseball, 1825-1908, 설리번 p.95
390+↑ “메이저리그”. 두산백과사전. 2008년 12월 14일에 읽어봄.
391+↑ 야구의 역사, 조지 벡시 p. 106
392+↑ 야구의 역사, 조지 벡시 p. 249
393+↑ Late Innings: A Documentary History of Baseball, 1945-1972, 설리번 p.162
394+↑ Late Innings: A Documentary History of Baseball, 1945-1972, 설리번 p.239
395+↑ 야구의 역사, 조지 벡시 p. 257
396+↑ “토론토 블루 제이스”. 두산백과사전. 2009년 4월 23일에 읽어봄.
397+↑ 가 나 국제 야구 연맹 (대륙 연맹/회원국 연맹). IBAF. 2009년 2월 3일에 확인.
398+↑ “They'rrre out! Baseball, softball out of Olympics”, 《NBCSports.com》, 2005년 7월 9일 작성.
399+↑ “IOC: Add golf, rugby to 2016 Olympics”, 《NBCSports.com》, 2009년 8월 13일 작성.
400+↑ 강준만 (2007). 《한국 근대사 산책4(러일전쟁에서 한국군 해산까지)》. 인물과사상사, 198쪽. ISBN 978-89-5906-074-0 “한국에 야구가 처음 들어온 것은 1905년으로, 당시 선교사로 온 미국인 질레트(P. L. Gillett)가 황성기독청년회 회원들에게 야구를 가르친 것이 그 시초이다. 1906년 2월 11일 훈련원 터에서 YMCA팀 대 덕어(독일어)학교팀 사이에 최초의 야구경기가 열렸다. 20) 『황성신문』1909년 3월 21일자엔 다음과 같은 〈야구단 운동가〉라는 노래가 소개돼 있을 정도로 야구는 큰 인기를 누렸다. "무쇠 골격 돌 근육 소년 남아야/애국의 정신을 분발하여라/다달았네 다달았네 우리나라에/소년의 활동 시대 다달았네 /(후렴) 만인 대적(對敵) 연습하여 후일 전공 세우세/절세 영웅 대사업이 우리 목적이 아닌가"21)”
401+↑ Thurston (2000), p. 15; Official Rules/Foreword. Major League Baseball. 2009년 2월 2일에 확인. Official Rules/1.00—Objectives of the Game (Rules 1.01–1.03). Major League Baseball. 2009년 2월 2일에 확인. Official Rules/2.00—Definitions of Terms. Major League Baseball. 2009년 2월 2일에 확인. Official Rules/4.00—Starting and Ending a Game (Rule 4.10). Major League Baseball. 2009년 2월 2일에 확인.
402+↑ 클레온 왈푸드 "Most 'Signs' Given by Coaches Are Merely Camouflage", Baseball Digest, 1960년 12월 ~ 1961년 1월, pp. 47–49.
403+↑ 허진우. “메이저리그, 오는 8월 비디오 판독제 도입 추진”, 《일간스포츠》, 2008년 6월 15일 작성.
404+↑ 가 나 다 하일성 (1995년 5월 1일). 《최신 야구교실》. 국일미디어, 19쪽. ISBN 978-89-7425-228-1
405+↑ 야구교실, 하일성 p.23
406+↑ 가 나 다 “전진수비”. 두산백과사전. 2010년 11월 30일에 읽어봄.
407+↑ 야구교실, 하일성 p.46
408+↑ “다운스윙”. 두산백과사전. 2010년 11월 30일에 읽어봄.
409+↑ 가 나 (한국어) 조해연 (2007). 《조해연의 우리말 야구용어 풀이》. 지성사, 49쪽. ISBN 8978891489
410+↑ 앤드류 배스트 (2008년 7월 18일). Southpaw’s Revenge. 2009년 2월 8일에 확인.
411+↑ 이상주. “'내 맘대로 타격' 스위치 타자의 세계”, 《스포츠서울》, 2008년 9월 26일 작성. 2009년 2월 24일 확인.
412+↑ 최민규. “무사 1루, 희생 번트 대지 말라”, 《스포츠 2.0》, 2006년 12월 27일 작성. 2009년 2월 24일 확인.
413+↑ Baseball Strategies: Your Guide to the Game Within the Game, 스탤링스, 베넷, 42–43, 47–48.
414+↑ Baseball Strategies: Your Guide to the Game Within the Game, 스탤링스, 베넷, p. 45.
415+↑ “전진수비”. 두산백과사전. 2009년 2월 24일에 읽어봄.
416+↑ 야구교실, 하일성 p.306
417+↑ 송재우. “사인, 또 하나의 야구 묘미”, 《송재우 칼럼》, 2007년 6월 1일 작성. 2009년 2월 24일 확인.
418+↑ “그린라이트”. 표준국어대사전. 2009년 2월 23일에 읽어봄.
419+↑ Cohen, Morris Raphael, "Baseball as a National Religion" (1919), in Cohen, The Faith of a Liberal (Transaction, 1993 [1946]), pp. 334–336: p. 334.
420+↑ 가 나 다 할 보드레이, "Baseball wants just a few more minutes", USA투데이, 2004년 2월 26일
421+↑ 가 나 제프 그린필드, "Midnight Baseball", 타임, 1998년 7월 13일
422+↑ 신인하. “경기시간 단축운동을 벌이고 있는 일본 야구계”, 《야큐 리포트》, 2008년 5월 8일 작성. 2009년 2월 26일 확인.
423+↑ MLB 공식 웹사이트.
424+↑ 가 나 문상열. “타율 〉출루율 진기록 나왔다”, 《동아일보》, 2008년 5월 16일 작성. 2008년 1월 2일 확인.
425+↑ “장타율”. 두산백과사전. 2009년 1월 3일에 읽어봄.
426+↑ 김형준. “마이리그 Tip - 타율 대비 최고 생산성의 타자는?”, 《김형준 칼럼》, 2008년 9월 3일 작성. 2009년 1월 3일 확인.
427+↑ 이호영. “롯데 자이언츠, 가을에도 야구한다”, 《스포츠 2.0》, 2008년 12월 16일 작성. 2009년 1월 2일 확인.
428+↑ 유해길. “WBC '파란 태풍' 야구 세계화 초석되다”, 《세계일보》, 2006년 3월 20일 작성.
429+[편집]
430+바깥 고리 위키미디어 공용에 관련 미디어 분류가 있습니다.
431+야구
432+ 위키낱말사전에 이 문서와 관련된 글이 있습니다.
433+야구
434+
435+야구 조직/리그
436+(영어) 메이저 리그 야구 공식 홈페이지
437+(영어) 마이너 리그 야구 공식 홈페이지
438+(영어) 국제 야구 연맹
439+(영어) 영국 야구 연맹
440+(한국어) 대한 야구 협회
441+야구 기록
442+(영어) 위키아 야구
443+(영어) 베이스볼-레퍼런스 공식 홈페이지
444+(영어) 더베이스볼큐브 공식 홈페이지
445+(영어) 야구-연감 공식 홈페이지
446+야구 뉴스/그 외
447+(영어) 초기 야구 온라인 박물관 홈페이지
448+(영어) 스팔딩 가이드 회의 도서관 공식 홈페이지
449+(영어) 야구 신문 기록 홈페이지
450+(영어) 중국의 야구
451+(영어) 온라인 야구 뉴스/잡지
452+(영어) 야구 경기장 구조, 설계
453+(영어) 유럽 야구 및 소프트볼 뉴스·정보[보이기]
454+ 야구와 관련된 항목
455+
456+
457+분류: 야구
458+둘러보기 메뉴
459+계정 만들기
460+로그인
461+연습장
462+문서
463+토론
464+읽기
465+편집
466+역사
467+
468+대문
469+사용자 모임
470+요즘 화제
471+최근 바뀜
472+모든 문서 보기
473+임의 문서로
474+도움말
475+기부
476+도구모음
477+여기를 가리키는 문서
478+가리키는 글의 바뀜
479+공용에 올리기
480+특수 문서 목록
481+고유링크
482+문서 정보
483+이 문서 인용하기
484+인쇄/내보내기
485+다른 언어
486+
487+ 이 문서는 2013년 1월 9일 (수) 14:40에 마지막으로 바뀌었습니다.
488+모든 문서는 크리에이티브 커먼즈 저작자표시-동일조건변경허락 3.0에 따라 사용할 수 있습니다. 추가적인 조건이 적용될 수 있습니다. 자세한 내용은 이용 규약을 참고하십시오.
489+Wikipedia®는 미국 및 다른 국가에 등록되어 있는, Wikimedia Foundation, Inc. 소유의 등록 상표입니다.
490+개인정보 정책
491+위키백과 소개
492+면책 조항
493+모바일판에서 보기
benchmark/Streamly/Benchmark/Unicode/data/Vietnamese.txtnew file+402

This diff is too big to show here.

benchmark/bench-runner/Main.hsnew file+183

This diff is too big to show here.

benchmark/bench-runner/bench-runner.cabalnew file+42

This diff is too big to show here.

benchmark/bench-runner/cabal.projectnew file+4

This diff is too big to show here.

benchmark/bench-runner/default.nixnew file+164

This diff is too big to show here.

benchmark/lib/Streamly/Benchmark/Common.hsnew file+257

This diff is too big to show here.

benchmark/lib/Streamly/Benchmark/Common/Handle.hsnew file+228

This diff is too big to show here.

benchmark/lib/Streamly/Benchmark/Prelude.hsnew file+597

This diff is too big to show here.

benchmark/streamly-benchmarks.cabalnew file+778

This diff is too big to show here.

bin/ghc.shnew file+45

This diff is too big to show here.

bin/mk-hscope.shnew file+46

This diff is too big to show here.

bin/mk-tags.shnew file+25

This diff is too big to show here.

bin/replnew file+3

This diff is too big to show here.

bin/run-ci.shnew file+334

This diff is too big to show here.

bin/run-repl-quick.shnew file+113

This diff is too big to show here.

cabal.projectnew file+5

This diff is too big to show here.

cabal.project.O0new file+24

This diff is too big to show here.

cabal.project.Werrornew file+17

This diff is too big to show here.

cabal.project.Werror-nocodenew file+21

This diff is too big to show here.

cabal.project.coveragenew file+14

This diff is too big to show here.

cabal.project.doctestnew file+24

This diff is too big to show here.

cabal.project.ghc-headnew file+35

This diff is too big to show here.

cabal.project.hpc-coverallsnew file+9

This diff is too big to show here.

cabal.project.packdiffnew file+9

This diff is too big to show here.

cabal.project.reportnew file+30

This diff is too big to show here.

cabal.project.streamlynew file+10

This diff is too big to show here.

configurenew file+4317

This diff is too big to show here.

configure.acnew file+23

This diff is too big to show here.

core/Changelog.mdnew file+1

This diff is too big to show here.

core/LICENSEnew file+322

This diff is too big to show here.

core/Setup.hsnew file+6

This diff is too big to show here.

core/configurenew file+4349

This diff is too big to show here.

core/configure.acnew file+17

This diff is too big to show here.

core/docs/ApiChangelogs/0.1.0-0.2.0.txtnew file+1471

This diff is too big to show here.

core/docs/ApiChangelogs/0.1.0.txtnew file+405

This diff is too big to show here.

core/docs/ApiChangelogs/0.2.0-0.2.2.txtnew file+306

This diff is too big to show here.

core/docs/Changelog.mdnew file+97

This diff is too big to show here.

core/docs/Readme.mdnew file+1

This diff is too big to show here.

core/jsbits/clock.jsnew file+31

This diff is too big to show here.

core/src/DocTestDataArray.hsnew file+22

This diff is too big to show here.

core/src/DocTestDataFold.hsnew file+27

This diff is too big to show here.

core/src/DocTestDataMutArray.hsnew file+10

This diff is too big to show here.

core/src/DocTestDataMutArrayGeneric.hsnew file+10

This diff is too big to show here.

core/src/DocTestDataParser.hsnew file+20

This diff is too big to show here.

core/src/DocTestDataParserK.hsnew file+15

This diff is too big to show here.

core/src/DocTestDataStream.hsnew file+39

This diff is too big to show here.

core/src/DocTestDataStreamK.hsnew file+21

This diff is too big to show here.

core/src/DocTestDataUnfold.hsnew file+12

This diff is too big to show here.

core/src/DocTestFileSystemHandle.hsnew file+15

This diff is too big to show here.

core/src/DocTestUnicodeParser.hsnew file+9

This diff is too big to show here.

core/src/DocTestUnicodeStream.hsnew file+12

This diff is too big to show here.

core/src/DocTestUnicodeString.hsnew file+5

This diff is too big to show here.

core/src/Streamly/Console/Stdio.hsnew file+30

This diff is too big to show here.

core/src/Streamly/Data/Array.hsnew file+167

This diff is too big to show here.

core/src/Streamly/Data/Array/Generic.hsnew file+51

This diff is too big to show here.

core/src/Streamly/Data/Fold.hsnew file+415

This diff is too big to show here.

core/src/Streamly/Data/MutArray.hsnew file+110

This diff is too big to show here.

core/src/Streamly/Data/MutArray/Generic.hsnew file+70

This diff is too big to show here.

core/src/Streamly/Data/MutByteArray.hsnew file+106

This diff is too big to show here.

core/src/Streamly/Data/Parser.hsnew file+247

This diff is too big to show here.

core/src/Streamly/Data/ParserK.hsnew file+139

This diff is too big to show here.

core/src/Streamly/Data/Stream.hsnew file+746

This diff is too big to show here.

core/src/Streamly/Data/StreamK.hsnew file+194

This diff is too big to show here.

core/src/Streamly/Data/Unfold.hsnew file+233

This diff is too big to show here.

core/src/Streamly/FileSystem/Dir.hsnew file+23

This diff is too big to show here.

core/src/Streamly/FileSystem/File.hsnew file+60

This diff is too big to show here.

core/src/Streamly/FileSystem/Handle.hsnew file+117

This diff is too big to show here.

core/src/Streamly/Internal/BaseCompat.hsnew file+37

This diff is too big to show here.

core/src/Streamly/Internal/Console/Stdio.hsnew file+228

This diff is too big to show here.

core/src/Streamly/Internal/Control/Exception.hsnew file+38

This diff is too big to show here.

core/src/Streamly/Internal/Control/ForkIO.hsnew file+50

This diff is too big to show here.

core/src/Streamly/Internal/Control/Monad.hsnew file+26

This diff is too big to show here.

core/src/Streamly/Internal/Data/Array.hsnew file+1018

This diff is too big to show here.

core/src/Streamly/Internal/Data/Array/ArrayMacros.hnew file+43

This diff is too big to show here.

core/src/Streamly/Internal/Data/Array/Generic.hsnew file+342

This diff is too big to show here.

core/src/Streamly/Internal/Data/Array/Stream.hsnew file+725

This diff is too big to show here.

core/src/Streamly/Internal/Data/Array/Type.hsnew file+1148

This diff is too big to show here.

core/src/Streamly/Internal/Data/Binary/Parser.hsnew file+399

This diff is too big to show here.

core/src/Streamly/Internal/Data/Binary/Stream.hsnew file+383

This diff is too big to show here.

core/src/Streamly/Internal/Data/Builder.hsnew file+82

This diff is too big to show here.

core/src/Streamly/Internal/Data/Either/Strict.hsnew file+57

This diff is too big to show here.

core/src/Streamly/Internal/Data/Fold.hsnew file+33

This diff is too big to show here.

core/src/Streamly/Internal/Data/Fold/Chunked.hsnew file+379

This diff is too big to show here.

core/src/Streamly/Internal/Data/Fold/Combinators.hsnew file+2452

This diff is too big to show here.

core/src/Streamly/Internal/Data/Fold/Container.hsnew file+783

This diff is too big to show here.

core/src/Streamly/Internal/Data/Fold/Step.hsnew file+83

This diff is too big to show here.

core/src/Streamly/Internal/Data/Fold/Tee.hsnew file+184

This diff is too big to show here.

core/src/Streamly/Internal/Data/Fold/Type.hsnew file+2099

This diff is too big to show here.

core/src/Streamly/Internal/Data/Fold/Window.hsnew file+357

This diff is too big to show here.

core/src/Streamly/Internal/Data/IOFinalizer.hsnew file+101

This diff is too big to show here.

core/src/Streamly/Internal/Data/IORef/Unboxed.hsnew file+101

This diff is too big to show here.

core/src/Streamly/Internal/Data/IsMap.hsnew file+60

This diff is too big to show here.

core/src/Streamly/Internal/Data/List.hsnew file+234

This diff is too big to show here.

core/src/Streamly/Internal/Data/Maybe/Strict.hsnew file+57

This diff is too big to show here.

core/src/Streamly/Internal/Data/MutArray.hsnew file+207

This diff is too big to show here.

core/src/Streamly/Internal/Data/MutArray/Generic.hsnew file+947

This diff is too big to show here.

core/src/Streamly/Internal/Data/MutArray/Stream.hsnew file+145

This diff is too big to show here.

core/src/Streamly/Internal/Data/MutArray/Type.hsnew file+3318

This diff is too big to show here.

core/src/Streamly/Internal/Data/MutByteArray.hsnew file+251

This diff is too big to show here.

core/src/Streamly/Internal/Data/MutByteArray/Type.hsnew file+321

This diff is too big to show here.

core/src/Streamly/Internal/Data/Parser.hsnew file+3621

This diff is too big to show here.

core/src/Streamly/Internal/Data/Parser/Tee.hsnew file+617

This diff is too big to show here.

core/src/Streamly/Internal/Data/Parser/Type.hsnew file+1452

This diff is too big to show here.

core/src/Streamly/Internal/Data/ParserK.hsnew file+16

This diff is too big to show here.

core/src/Streamly/Internal/Data/ParserK/Type.hsnew file+752

This diff is too big to show here.

core/src/Streamly/Internal/Data/Pipe.hsnew file+273

This diff is too big to show here.

core/src/Streamly/Internal/Data/Pipe/Type.hsnew file+443

This diff is too big to show here.

core/src/Streamly/Internal/Data/Producer.hsnew file+81

This diff is too big to show here.

core/src/Streamly/Internal/Data/Producer/Source.hsnew file+303

This diff is too big to show here.

core/src/Streamly/Internal/Data/Producer/Type.hsnew file+186

This diff is too big to show here.

core/src/Streamly/Internal/Data/Refold/Type.hsnew file+251

This diff is too big to show here.

core/src/Streamly/Internal/Data/Ring.hsnew file+619

This diff is too big to show here.

core/src/Streamly/Internal/Data/Ring/Generic.hsnew file+185

This diff is too big to show here.

core/src/Streamly/Internal/Data/SVar/Type.hsnew file+540

This diff is too big to show here.

core/src/Streamly/Internal/Data/Serialize/TH.hsnew file+530

This diff is too big to show here.

core/src/Streamly/Internal/Data/Serialize/TH/Bottom.hsnew file+475

This diff is too big to show here.

core/src/Streamly/Internal/Data/Serialize/TH/Common.hsnew file+70

This diff is too big to show here.

core/src/Streamly/Internal/Data/Serialize/TH/RecHeader.hsnew file+411

This diff is too big to show here.

core/src/Streamly/Internal/Data/Serialize/Type.hsnew file+317

This diff is too big to show here.

core/src/Streamly/Internal/Data/Stream.hsnew file+42

This diff is too big to show here.

core/src/Streamly/Internal/Data/Stream/Container.hsnew file+310

This diff is too big to show here.

core/src/Streamly/Internal/Data/Stream/Eliminate.hsnew file+849

This diff is too big to show here.

core/src/Streamly/Internal/Data/Stream/Exception.hsnew file+501

This diff is too big to show here.

core/src/Streamly/Internal/Data/Stream/Generate.hsnew file+1191

This diff is too big to show here.

core/src/Streamly/Internal/Data/Stream/Lift.hsnew file+129

This diff is too big to show here.

core/src/Streamly/Internal/Data/Stream/Nesting.hsnew file+3024

This diff is too big to show here.

core/src/Streamly/Internal/Data/Stream/Step.hsnew file+39

This diff is too big to show here.

core/src/Streamly/Internal/Data/Stream/StreamD.hsnew file+16

This diff is too big to show here.

core/src/Streamly/Internal/Data/Stream/Top.hsnew file+480

This diff is too big to show here.

core/src/Streamly/Internal/Data/Stream/Transform.hsnew file+1971

This diff is too big to show here.

core/src/Streamly/Internal/Data/Stream/Transformer.hsnew file+183

This diff is too big to show here.

core/src/Streamly/Internal/Data/Stream/Type.hsnew file+2220

This diff is too big to show here.

core/src/Streamly/Internal/Data/StreamK.hsnew file+1730

This diff is too big to show here.

core/src/Streamly/Internal/Data/StreamK/Alt.hsnew file+244

This diff is too big to show here.

core/src/Streamly/Internal/Data/StreamK/Transformer.hsnew file+79

This diff is too big to show here.

core/src/Streamly/Internal/Data/StreamK/Type.hsnew file+2153

This diff is too big to show here.

core/src/Streamly/Internal/Data/Time/Clock.hsnew file+180

This diff is too big to show here.

core/src/Streamly/Internal/Data/Time/Clock/Darwin.cnew file+36

This diff is too big to show here.

core/src/Streamly/Internal/Data/Time/Clock/Type.hscnew file+252

This diff is too big to show here.

core/src/Streamly/Internal/Data/Time/Clock/Windows.cnew file+115

This diff is too big to show here.

core/src/Streamly/Internal/Data/Time/Clock/config-clock.hnew file+11

This diff is too big to show here.

core/src/Streamly/Internal/Data/Time/TimeSpec.hscnew file+152

This diff is too big to show here.

core/src/Streamly/Internal/Data/Time/Units.hsnew file+411

This diff is too big to show here.

core/src/Streamly/Internal/Data/Tuple/Strict.hsnew file+46

This diff is too big to show here.

core/src/Streamly/Internal/Data/Unbox.hsnew file+908

This diff is too big to show here.

core/src/Streamly/Internal/Data/Unbox/TH.hsnew file+498

This diff is too big to show here.

core/src/Streamly/Internal/Data/Unfold.hsnew file+1077

This diff is too big to show here.

core/src/Streamly/Internal/Data/Unfold/Enumeration.hsnew file+543

This diff is too big to show here.

core/src/Streamly/Internal/Data/Unfold/Type.hsnew file+999

This diff is too big to show here.

core/src/Streamly/Internal/FileSystem/Dir.hsnew file+510

This diff is too big to show here.

core/src/Streamly/Internal/FileSystem/File.hsnew file+678

This diff is too big to show here.

core/src/Streamly/Internal/FileSystem/Handle.hsnew file+704

This diff is too big to show here.

core/src/Streamly/Internal/FileSystem/Path.hsnew file+515

This diff is too big to show here.

core/src/Streamly/Internal/System/IO.hsnew file+58

This diff is too big to show here.

core/src/Streamly/Internal/Unicode/Array.hsnew file+104

This diff is too big to show here.

core/src/Streamly/Internal/Unicode/Parser.hsnew file+627

This diff is too big to show here.

core/src/Streamly/Internal/Unicode/Stream.hsnew file+1123

This diff is too big to show here.

core/src/Streamly/Internal/Unicode/String.hsnew file+158

This diff is too big to show here.

core/src/Streamly/Unicode/Parser.hsnew file+69

This diff is too big to show here.

core/src/Streamly/Unicode/Stream.hsnew file+110

This diff is too big to show here.

core/src/Streamly/Unicode/String.hsnew file+30

This diff is too big to show here.

core/src/assert.hsnew file+6

This diff is too big to show here.

core/src/config.h.innew file+57

This diff is too big to show here.

core/src/inline.hsnew file+27

This diff is too big to show here.

core/streamly-core.cabalnew file+534

This diff is too big to show here.

default.nixnew file+150

This diff is too big to show here.

docs/Developer/Benchmarks.mdnew file+342

This diff is too big to show here.

docs/Developer/Contributing.mdnew file+271

This diff is too big to show here.

docs/Developer/Github.linknew file+1

This diff is too big to show here.

docs/Developer/MAINTAINING.mdnew file+422

This diff is too big to show here.

docs/Developer/Tests.mdnew file+139

This diff is too big to show here.

docs/Developer/ci-tests.mdnew file+64

This diff is too big to show here.

docs/Developer/container-api.mdnew file+124

This diff is too big to show here.

docs/Developer/cps-vs-direct.rstnew file+328

This diff is too big to show here.

docs/Developer/dfa-bytes.pngnew file

Binary file not shown.

docs/Developer/dfa-classes.pngnew file

Binary file not shown.

docs/Developer/dfa-rearr.pngnew file

Binary file not shown.

docs/Developer/linked-lists.mdnew file+32

This diff is too big to show here.

docs/Developer/module-organization.mdnew file+250

This diff is too big to show here.

docs/Developer/optimization-guidelines.mdnew file+370

This diff is too big to show here.

docs/Developer/overview.mdnew file+24

This diff is too big to show here.

docs/Developer/paths.rstnew file+253

This diff is too big to show here.

docs/Developer/related-packages.mdnew file+71

This diff is too big to show here.

docs/Developer/resources.mdnew file+45

This diff is too big to show here.

docs/Developer/roadmap.mdnew file+36

This diff is too big to show here.

docs/Developer/unicode.mdnew file+224

This diff is too big to show here.

docs/Developer/utf8-decoder.mdnew file+603

This diff is too big to show here.

docs/Documentation.mdnew file+5

This diff is too big to show here.

docs/Setup.hsnew file+6

This diff is too big to show here.

docs/User/Explanatory/Overview.mdnew file+468

This diff is too big to show here.

docs/User/Explanatory/design.mdnew file+42

This diff is too big to show here.

docs/User/Explanatory/monad-transformers.mdnew file+65

This diff is too big to show here.

docs/User/Explanatory/performance.mdnew file+7

This diff is too big to show here.

docs/User/Explanatory/streaming-pradigms.rstnew file+117

This diff is too big to show here.

docs/User/Explanatory/unified-abstractions.mdnew file+275

This diff is too big to show here.

docs/User/HowTo/Compiling.mdnew file+145

This diff is too big to show here.

docs/User/HowTo/Examples.linknew file+1

This diff is too big to show here.

docs/User/HowTo/faq.mdnew file+94

This diff is too big to show here.

docs/User/HowTo/interoperation.mdnew file+11

This diff is too big to show here.

docs/User/HowTo/optimizing.mdnew file+98

This diff is too big to show here.

docs/User/HowTo/streamly-vs-async.mdnew file+237

This diff is too big to show here.

docs/User/HowTo/streamly-vs-list-time.svgnew file+3

This diff is too big to show here.

docs/User/HowTo/streamly-vs-lists.mdnew file+267

This diff is too big to show here.

docs/User/Project/ApiChangelogs/0.8.3-0.9.0.txtnew file+175

This diff is too big to show here.

docs/User/Project/ApiChangelogs/0.8.3.txtnew file+261

This diff is too big to show here.

docs/User/Project/ApiChangelogs/0.9.0-0.10.0.txtnew file+424

This diff is too big to show here.

docs/User/Project/CONTRIBUTORS.mdnew file+164

This diff is too big to show here.

docs/User/Project/Changelog.mdnew file+662

This diff is too big to show here.

docs/User/Project/Credits.mdnew file+43

This diff is too big to show here.

docs/User/Project/Github.linknew file+1

This diff is too big to show here.

docs/User/Project/README.mdnew file+141

This diff is too big to show here.

docs/User/Project/Roadmap.linknew file+1

This diff is too big to show here.

docs/User/Project/Upgrading-0.8-to-0.9.mdnew file+384

This diff is too big to show here.

docs/User/Tutorials/ConcurrentStreams.hsnew file+771

This diff is too big to show here.

docs/User/Tutorials/Examples.linknew file+1

This diff is too big to show here.

docs/User/Tutorials/ReactiveProgramming.hsnew file+126

This diff is too big to show here.

docs/User/Tutorials/Tutorial.hsnew file+521

This diff is too big to show here.

docs/User/Tutorials/before-you-begin.mdnew file+77

This diff is too big to show here.

docs/User/Tutorials/getting-started.mdnew file+225

This diff is too big to show here.

docs/User/Tutorials/haskell-lazy-evaluation.mdnew file+215

This diff is too big to show here.

docs/User/Tutorials/quick-overview.mdnew file+517

This diff is too big to show here.

docs/User/Tutorials/why-haskell-streamly.mdnew file+91

This diff is too big to show here.

docs/User/resources.mdnew file+18

This diff is too big to show here.

docs/streamly-docs.cabalnew file+49

This diff is too big to show here.

examples/README.md+2−5

This diff is too big to show here.

examples/circle-mouse.hsdeleted−86

This diff is too big to show here.

examples/echo-loop.hsdeleted−18

This diff is too big to show here.

examples/fastest.hsdeleted−20

This diff is too big to show here.

examples/game.hsdeleted−42

This diff is too big to show here.

examples/listdir.hsdeleted−19

This diff is too big to show here.

examples/loops.hsdeleted−88

This diff is too big to show here.

examples/map-reduce.hsdeleted−6

This diff is too big to show here.

examples/mergesort.hsdeleted−38

This diff is too big to show here.

examples/nested-loops.hsdeleted−22

This diff is too big to show here.

examples/parallel-loops.hsdeleted−20

This diff is too big to show here.

hie.yamlnew file+177

This diff is too big to show here.

src/Asyncly.hsdeleted−172

This diff is too big to show here.

src/Asyncly/AsyncT.hsdeleted−760

This diff is too big to show here.

src/Asyncly/Time.hsdeleted−64

This diff is too big to show here.

src/Streamly/Data/Array/Foreign.hsnew file+119

This diff is too big to show here.

src/Streamly/Data/Fold/Prelude.hsnew file+65

This diff is too big to show here.

src/Streamly/Data/Fold/Tee.hsnew file+16

This diff is too big to show here.

src/Streamly/Data/SmallArray.hsnew file+34

This diff is too big to show here.

src/Streamly/Data/Stream/MkType.hsnew file+115

This diff is too big to show here.

src/Streamly/Data/Stream/Prelude.hsnew file+232

This diff is too big to show here.

src/Streamly/Internal/Control/Concurrent.hsnew file+77

This diff is too big to show here.

src/Streamly/Internal/Control/ForkLifted.hsnew file+66

This diff is too big to show here.

src/Streamly/Internal/Data/Atomics.hsnew file+80

This diff is too big to show here.

src/Streamly/Internal/Data/Channel.hsnew file+19

This diff is too big to show here.

src/Streamly/Internal/Data/Channel/Dispatcher.hsnew file+294

This diff is too big to show here.

src/Streamly/Internal/Data/Channel/Types.hsnew file+817

This diff is too big to show here.

src/Streamly/Internal/Data/Channel/Worker.hsnew file+375

This diff is too big to show here.

src/Streamly/Internal/Data/Cont.hsnew file+36

This diff is too big to show here.

src/Streamly/Internal/Data/Fold/Async.hsnew file+133

This diff is too big to show here.

src/Streamly/Internal/Data/Fold/Concurrent.hsnew file+57

This diff is too big to show here.

src/Streamly/Internal/Data/Fold/Concurrent/Channel.hsnew file+112

This diff is too big to show here.

src/Streamly/Internal/Data/Fold/Concurrent/Channel/Type.hsnew file+331

This diff is too big to show here.

src/Streamly/Internal/Data/Fold/Prelude.hsnew file+19

This diff is too big to show here.

src/Streamly/Internal/Data/Fold/SVar.hsnew file+79

This diff is too big to show here.

src/Streamly/Internal/Data/IOFinalizer/Lifted.hsnew file+74

This diff is too big to show here.

src/Streamly/Internal/Data/IsMap/HashMap.hsnew file+42

This diff is too big to show here.

src/Streamly/Internal/Data/SVar.hsnew file+537

This diff is too big to show here.

src/Streamly/Internal/Data/SVar/Dispatch.hsnew file+739

This diff is too big to show here.

src/Streamly/Internal/Data/SVar/Pull.hsnew file+164

This diff is too big to show here.

src/Streamly/Internal/Data/SVar/Worker.hsnew file+544

This diff is too big to show here.

src/Streamly/Internal/Data/SmallArray.hsnew file+195

This diff is too big to show here.

src/Streamly/Internal/Data/SmallArray/Type.hsnew file+760

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Ahead.hsnew file+776

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Async.hsnew file+1064

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Common.hsnew file+105

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Concurrent.hsnew file+903

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Concurrent/Channel.hsnew file+109

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Concurrent/Channel/Append.hsnew file+1046

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Concurrent/Channel/Consumer.hsnew file+127

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Concurrent/Channel/Dispatcher.hsnew file+417

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Concurrent/Channel/Interleave.hsnew file+252

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Concurrent/Channel/Operations.hsnew file+294

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Concurrent/Channel/Type.hsnew file+172

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Instances.hsnew file+168

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/IsStream.hsnew file+56

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/IsStream/Combinators.hsnew file+236

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/IsStream/Common.hsnew file+747

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/IsStream/Eliminate.hsnew file+1035

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/IsStream/Enumeration.hsnew file+594

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/IsStream/Exception.hsnew file+284

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/IsStream/Expand.hsnew file+1158

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/IsStream/Generate.hsnew file+640

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/IsStream/Lift.hsnew file+150

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/IsStream/Reduce.hsnew file+1627

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/IsStream/Top.hsnew file+749

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/IsStream/Transform.hsnew file+1595

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/IsStream/Type.hsnew file+783

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Lifted.hsnew file+335

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/MkType.hsnew file+641

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Parallel.hsnew file+546

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Prelude.hsnew file+19

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/SVar.hsnew file+18

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/SVar/Eliminate.hsnew file+405

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/SVar/Generate.hsnew file+294

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Serial.hsnew file+456

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Time.hsnew file+950

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/Zip.hsnew file+174

This diff is too big to show here.

src/Streamly/Internal/Data/Stream/ZipAsync.hsnew file+134

This diff is too big to show here.

src/Streamly/Internal/Data/Unfold/Exception.hsnew file+214

This diff is too big to show here.

src/Streamly/Internal/Data/Unfold/Prelude.hsnew file+17

This diff is too big to show here.

src/Streamly/Internal/Data/Unfold/SVar.hsnew file+161

This diff is too big to show here.

src/Streamly/Internal/FileSystem/Event.hsnew file+245

This diff is too big to show here.

src/Streamly/Internal/FileSystem/Event/Darwin.hnew file+63

This diff is too big to show here.

src/Streamly/Internal/FileSystem/Event/Darwin.hsnew file+1086

This diff is too big to show here.

src/Streamly/Internal/FileSystem/Event/Darwin.mnew file+294

This diff is too big to show here.

src/Streamly/Internal/FileSystem/Event/Linux.hsnew file+1294

This diff is too big to show here.

src/Streamly/Internal/FileSystem/Event/Windows.hsnew file+640

This diff is too big to show here.

src/Streamly/Internal/FileSystem/FD.hsnew file+585

This diff is too big to show here.

src/Streamly/Internal/FileSystem/FDIO.hsnew file+216

This diff is too big to show here.

src/Streamly/Internal/Network/Inet/TCP.hsnew file+494

This diff is too big to show here.

src/Streamly/Internal/Network/Socket.hsnew file+545

This diff is too big to show here.

src/Streamly/Internal/System/IOVec.hsnew file+132

This diff is too big to show here.

src/Streamly/Internal/System/IOVec/Type.hscnew file+83

This diff is too big to show here.

src/Streamly/Internal/Unicode/Char.hsnew file+328

This diff is too big to show here.

src/Streamly/Internal/Unicode/Utf8.hsnew file+73

This diff is too big to show here.

src/Streamly/Network/Inet/TCP.hsnew file+92

This diff is too big to show here.

src/Streamly/Network/Socket.hsnew file+155

This diff is too big to show here.

src/Streamly/Prelude.hsnew file+1247

This diff is too big to show here.

src/assert.hsnew file+6

This diff is too big to show here.

src/config.h.innew file+43

This diff is too big to show here.

src/inline.hsnew file+27

This diff is too big to show here.

stack.yaml+14−6

This diff is too big to show here.

streamly.cabalnew file+559

This diff is too big to show here.

targets/Targets.hsnew file+213

This diff is too big to show here.

targets/cabal.projectnew file+1

This diff is too big to show here.

targets/default.nixnew file+163

This diff is too big to show here.

targets/streamly-targets.cabalnew file+12

This diff is too big to show here.

test/Main.hsdeleted−464

This diff is too big to show here.

test/README.mdnew file+1

This diff is too big to show here.

test/Streamly/Test/Data/Array.hsnew file+276

This diff is too big to show here.

test/Streamly/Test/Data/Array/Common.hsnew file+101

This diff is too big to show here.

test/Streamly/Test/Data/Array/CommonImports.hsnew file+13

This diff is too big to show here.

test/Streamly/Test/Data/Array/Generic.hsnew file+65

This diff is too big to show here.

test/Streamly/Test/Data/Array/Stream.hsnew file+113

This diff is too big to show here.

test/Streamly/Test/Data/Fold.hsnew file+815

This diff is too big to show here.

test/Streamly/Test/Data/Fold/Window.hsnew file+67

This diff is too big to show here.

test/Streamly/Test/Data/List.hsnew file+220

This diff is too big to show here.

test/Streamly/Test/Data/MutArray.hsnew file+152

This diff is too big to show here.

test/Streamly/Test/Data/Parser.hsnew file+1379

This diff is too big to show here.

test/Streamly/Test/Data/ParserK.hsnew file+841

This diff is too big to show here.

test/Streamly/Test/Data/Ring/Unboxed.hsnew file+53

This diff is too big to show here.

test/Streamly/Test/Data/Serialize.hsnew file+306

This diff is too big to show here.

test/Streamly/Test/Data/Serialize/CompatV0.hsnew file+46

This diff is too big to show here.

test/Streamly/Test/Data/Serialize/CompatV1.hsnew file+48

This diff is too big to show here.

test/Streamly/Test/Data/Serialize/TH.hsnew file+82

This diff is too big to show here.

test/Streamly/Test/Data/SmallArray.hsnew file+29

This diff is too big to show here.

test/Streamly/Test/Data/Stream.hsnew file+33

This diff is too big to show here.

test/Streamly/Test/Data/Stream/Concurrent.hsnew file+363

This diff is too big to show here.

test/Streamly/Test/Data/Unbox.hsnew file+347

This diff is too big to show here.

test/Streamly/Test/Data/Unbox/TH.hsnew file+146

This diff is too big to show here.

test/Streamly/Test/Data/Unfold.hsnew file+701

This diff is too big to show here.

test/Streamly/Test/FileSystem/Event.hsnew file+28

This diff is too big to show here.

test/Streamly/Test/FileSystem/Event/Common.hsnew file+422

This diff is too big to show here.

test/Streamly/Test/FileSystem/Event/Darwin.hsnew file+86

This diff is too big to show here.

test/Streamly/Test/FileSystem/Event/Linux.hsnew file+163

This diff is too big to show here.

test/Streamly/Test/FileSystem/Event/Windows.hsnew file+51

This diff is too big to show here.

test/Streamly/Test/FileSystem/Handle.hsnew file+228

This diff is too big to show here.

test/Streamly/Test/Network/Inet/TCP.hsnew file+144

This diff is too big to show here.

test/Streamly/Test/Network/Socket.hsnew file+160

This diff is too big to show here.

test/Streamly/Test/Prelude.hsnew file+188

This diff is too big to show here.

test/Streamly/Test/Prelude/Ahead.hsnew file+137

This diff is too big to show here.

test/Streamly/Test/Prelude/Async.hsnew file+147

This diff is too big to show here.

test/Streamly/Test/Prelude/Concurrent.hsnew file+507

This diff is too big to show here.

test/Streamly/Test/Prelude/Fold.hsnew file+201

This diff is too big to show here.

test/Streamly/Test/Prelude/Parallel.hsnew file+121

This diff is too big to show here.

test/Streamly/Test/Prelude/Rate.hsnew file+248

This diff is too big to show here.

test/Streamly/Test/Prelude/Serial.hsnew file+741

This diff is too big to show here.

test/Streamly/Test/Prelude/Top.hsnew file+224

This diff is too big to show here.

test/Streamly/Test/Prelude/WAsync.hsnew file+222

This diff is too big to show here.

test/Streamly/Test/Prelude/WSerial.hsnew file+184

This diff is too big to show here.

test/Streamly/Test/Prelude/ZipAsync.hsnew file+70

This diff is too big to show here.

test/Streamly/Test/Prelude/ZipSerial.hsnew file+73

This diff is too big to show here.

test/Streamly/Test/Serialize/Serializable.hsnew file+237

This diff is too big to show here.

test/Streamly/Test/Unicode/Char.hsnew file+133

This diff is too big to show here.

test/Streamly/Test/Unicode/Parser.hsnew file+231

This diff is too big to show here.

test/Streamly/Test/Unicode/Stream.hsnew file+190

This diff is too big to show here.

test/Streamly/Test/Unicode/extra/NormalizationTest.txtnew file+9

This diff is too big to show here.

test/Streamly/Test/Unicode/ucd/NormalizationTest.txt+18908

This diff is too big to show here.

test/lib/Streamly/Test/Common.hs+66

This diff is too big to show here.

test/lib/Streamly/Test/Prelude/Common.hs+1757

This diff is too big to show here.

test/streamly-tests.cabal+593

This diff is too big to show here.

test/test-runner/Main.hs+33

This diff is too big to show here.

test/test-runner/cabal.project+4

This diff is too big to show here.

test/test-runner/default.nix+164

This diff is too big to show here.

test/test-runner/test-runner.cabal+41

This diff is too big to show here.

test/version-bounds.hs+4

This diff is too big to show here.