diff options
Diffstat (limited to 'hask-io')
| -rw-r--r-- | hask-io/Makefile | 46 | ||||
| -rw-r--r-- | hask-io/mini.c | 14 | ||||
| -rw-r--r-- | hask-io/mini.hs | 3 |
3 files changed, 0 insertions, 63 deletions
diff --git a/hask-io/Makefile b/hask-io/Makefile deleted file mode 100644 index e6e1da6..0000000 --- a/hask-io/Makefile +++ /dev/null @@ -1,46 +0,0 @@ -# -# Some GHC flags explained -# -# -v verbose mode -# -O2 level 2 optimizations -# -rtsopts allow +RTS flags -# -prof enable basic time and allocation profiling -# -auto-all cost centers on all top level functions -# (you can also add them via the SCC pragma) -# -caf-all generate data for CAFs (constant applicative forms) -# t -# -fforce-recomp force recompilation -# -# Notes: you will obtain the profiling versions of dependancies via: -# stack install --profile [libraryname] -# -# -fprof-auto replaced -auto-all -# -fprof-cafs replaced -caf-all -# - -build-prof: - stack ghc --profile -- -rtsopts -prof -fprof-auto -fprof-cafs -O2 base64.hs - -# -# Some +RTS flags -# -# -p profiling -# -K set stack limit -# -hc extract heap profile -# -hy allocation by type -# -hd allocation by constructor -# -iN sampling frequency in seconds. e.g. -i0.01 -# -ddump-simpl generate core version -# -# Note: render the heap profile as graph with: hp2ps -e8in -c file.hp -# - -run-prof: - cat random.bin | ./base64 +RTS -p -K100M > /dev/null - - -test-mini-hask: - #stack ghc -- -rtsopts -prof -fprof-auto -fprof-cafs -O mini.hs -o mini_hask_exe - stack ghc -- -O mini.hs -o mini_hask_exe -test-mini-c: - gcc -O3 mini.c -o mini_c_exe diff --git a/hask-io/mini.c b/hask-io/mini.c deleted file mode 100644 index eb5ba46..0000000 --- a/hask-io/mini.c +++ /dev/null @@ -1,14 +0,0 @@ -#include <stdio.h> -int main(){ - char buf[2048]; - int a=0; - while(1){ - size_t sz=fread(&buf,1,2048,stdin); - if(!sz)break; - for(size_t i=0;i<sz;i++){ - a+=buf[i]; - a%=256; - } - } - printf("%i\n",a); -} diff --git a/hask-io/mini.hs b/hask-io/mini.hs deleted file mode 100644 index 7d73bfe..0000000 --- a/hask-io/mini.hs +++ /dev/null @@ -1,3 +0,0 @@ -import qualified Data.ByteString.Lazy as B -main = B.getContents>>=print.show.f - where f = B.foldl1' (+) |
