Import hs-plugins cvs
This commit is contained in:
37
examples/printf/000/Main.hs
Normal file
37
examples/printf/000/Main.hs
Normal file
@ -0,0 +1,37 @@
|
||||
import Printf
|
||||
|
||||
main = do printf "%d\n" $> (42::Int) ! []
|
||||
printf "%u\n" $> (42::Int) ! []
|
||||
printf "0%o\n" $> (42::Int) ! []
|
||||
printf "0x%x\n" $> (42::Int) ! []
|
||||
printf "0x%X\n" $> (42::Int) ! []
|
||||
|
||||
printf "%e\n" $> (42.1234 :: Double) ! []
|
||||
printf "%E\n" $> (42.1234 :: Double) ! []
|
||||
printf "%g\n" $> (42.1234 :: Double) ! []
|
||||
printf "%G\n" $> (42.1234 :: Double) ! []
|
||||
printf "%f\n" $> (42.1234 :: Double) ! []
|
||||
|
||||
printf "%c:%c:%c\n" $> 'a' ! 'b' ! 'c' ! []
|
||||
printf "%s\n" $> "printf" ! []
|
||||
|
||||
printf "%+d\n" $> (42::Int) ! []
|
||||
printf "%+0d\n" $> (42::Int) ! []
|
||||
printf "%0+d\n" $> (42::Int) ! []
|
||||
printf "%10d\n" $> (42::Int) ! []
|
||||
printf "%-010d\n" $> (42::Int) ! []
|
||||
printf "%-010.2d\n" $> (42::Int) ! []
|
||||
|
||||
printf "%+f\n" $> (42.1234 :: Double) ! []
|
||||
printf "%+0f\n" $> (42.1234 :: Double) ! []
|
||||
printf "%0+f\n" $> (42.1234 :: Double) ! []
|
||||
printf "%10f\n" $> (42.1234 :: Double) ! []
|
||||
printf "%-010f\n" $> (42.1234 :: Double) ! []
|
||||
printf "%-010.2f\n" $> (42.1234 :: Double) ! []
|
||||
|
||||
printf "%10s\n" $> "printf" ! []
|
||||
printf "%-10s\n" $> "printf" ! []
|
||||
printf "%10.2s\n" $> "printf" ! []
|
||||
printf "%2.10s\n" $> "printf" ! []
|
||||
printf "%-2.10s\n" $> "printf" ! []
|
||||
printf "%-10.2s\n" $> "printf" ! []
|
2
examples/printf/000/Makefile
Normal file
2
examples/printf/000/Makefile
Normal file
@ -0,0 +1,2 @@
|
||||
TOP=../../..
|
||||
include ../../eval.mk
|
30
examples/printf/000/expected
Normal file
30
examples/printf/000/expected
Normal file
@ -0,0 +1,30 @@
|
||||
42
|
||||
42
|
||||
052
|
||||
0x2a
|
||||
0x2A
|
||||
4.212340e1
|
||||
4.212340E1
|
||||
42.123400
|
||||
42.123400
|
||||
42.123400
|
||||
a:b:c
|
||||
printf
|
||||
+42
|
||||
+42
|
||||
+42
|
||||
42
|
||||
42
|
||||
42
|
||||
+42.123400
|
||||
+42.123400
|
||||
+42.123400
|
||||
42.123400
|
||||
42.123400
|
||||
42.12
|
||||
printf
|
||||
printf
|
||||
pr
|
||||
printf
|
||||
printf
|
||||
pr
|
36
examples/printf/000/printf.sh
Normal file
36
examples/printf/000/printf.sh
Normal file
@ -0,0 +1,36 @@
|
||||
#!/bin/sh
|
||||
printf "%d\n" 42
|
||||
printf "%u\n" 42
|
||||
printf "0%o\n" 42
|
||||
printf "0x%x\n" 42
|
||||
printf "0x%X\n" 42
|
||||
|
||||
printf "%e\n" 42.1234
|
||||
printf "%E\n" 42.1234
|
||||
printf "%g\n" 42.1234
|
||||
printf "%G\n" 42.1234
|
||||
printf "%f\n" 42.1234
|
||||
|
||||
printf "%c:%c:%c\n" 'a' 'b' 'c'
|
||||
printf "%s\n" "printf"
|
||||
|
||||
printf "%+d\n" 42
|
||||
printf "%+0d\n" 42
|
||||
printf "%0+d\n" 42
|
||||
printf "%10d\n" 42
|
||||
printf "%-010d\n" 42
|
||||
printf "%-010.2d\n" 42
|
||||
|
||||
printf "%+f\n" 42.1234
|
||||
printf "%+0f\n" 42.1234
|
||||
printf "%0+f\n" 42.1234
|
||||
printf "%10f\n" 42.1234
|
||||
printf "%-010f\n" 42.1234
|
||||
printf "%-010.2f\n" 42.1234
|
||||
|
||||
printf "%10s\n" "printf"
|
||||
printf "%-10s\n" "printf"
|
||||
printf "%10.2s\n" "printf"
|
||||
printf "%2.10s\n" "printf"
|
||||
printf "%-2.10s\n" "printf"
|
||||
printf "%-10.2s\n" "printf"
|
Reference in New Issue
Block a user