|
Revision 11293, 412 bytes
(checked in by Darren_Duncan, 3 years ago)
|
|
replaced all 'use v6;' lines with 'use v6-alpha;' in 330 files (examples/, ext/, t/, t_disabled/) ... more remain to do
|
-
Property svn:mime-type set to
text/plain; charset=UTF-8
-
Property svn:eol-style set to
native
|
| Line | |
|---|
| 1 | # Please remember to update examples/output/vmethods/num if you change this |
|---|
| 2 | # file so its output will change. |
|---|
| 3 | # |
|---|
| 4 | |
|---|
| 5 | use v6-alpha; |
|---|
| 6 | |
|---|
| 7 | multi sub zeros ( Int $value ) { |
|---|
| 8 | return '0' x $value; |
|---|
| 9 | } |
|---|
| 10 | |
|---|
| 11 | multi sub spaces ( Int $value ) { |
|---|
| 12 | return ' ' x $value; |
|---|
| 13 | } |
|---|
| 14 | |
|---|
| 15 | multi sub fill_with ( Int $value; Int $string ) { |
|---|
| 16 | return substr( $string ~ $value, -$string.chars ); |
|---|
| 17 | } |
|---|
| 18 | |
|---|
| 19 | say 7.fill_with(3.zeros); |
|---|
| 20 | say 7.fill_with(3.spaces); |
|---|
