Carl Mäsak masak
masak
/ gist:10589
Created
September 13, 2008 11:05
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <masak> perl6: my $b := &say; $b(5) | |
| <p6eval> elf 22235: | |
| OUTPUT[/home/evalenv/pugs/misc/elf/elf_f_src/STD_red/match.rb:141:in `block | |
| in to_dump0': undefined method `to_dump0' for true:TrueClass (NoMethodError) | |
| from /home/evalenv/pugs/misc/elf/elf_f_src/STD_red/match.rb:140:in `each' | |
| from | |
| <p6eval> ../home/evalenv/pugs/misc/elf/elf_f_src/STD_red/match.r... | |
| <p6eval> ..pugs, rakudo 31066: OUTPUT[5] | |
| <masak> perl6: my &b := &say; b(5) | |
| <p6eval> elf 22235: |
masak
/ gist:24637
Created
November 13, 2008 21:29
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| method format($text) { | |
| my @result_pars; | |
| for split(/\n ** 2..*/, $text) -> $paragraph { | |
| my $cleaned_of_whitespace = $paragraph.trans( | |
| [ /\s+/ => ' ' ] | |
| ); | |
| push @result_pars, "<p>$cleaned_of_whitespace</p>"; | |
| } |
masak
/ gist:24656
Created
November 13, 2008 22:16
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| method format($text) { | |
| my @result_pars; | |
| my @split = gather { | |
| my $text_copy = $text; | |
| while $text_copy.index("\n\n") -> $ix { | |
| take $text_copy.substr(0, $ix); | |
| $text_copy .= substr($ix); | |
| while $text_copy.substr(0,1) eq "\n" { | |
| $text_copy .= substr(1); |
masak
/ gist:24663
Created
November 13, 2008 22:32
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| method format($text) { | |
| my @result_pars; | |
| my @split; | |
| my $text_copy = $text; | |
| while $text_copy.index("\n\n") -> $ix { | |
| push @split, $text_copy.substr(0, $ix); | |
| $text_copy .= substr($ix); | |
| while $text_copy.substr(0,1) eq "\n" { |
masak
/ egonw, do you know that you can define subcommand aliases in git?
Created
November 20, 2008 15:59
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| $ cat .gitconfig | |
| [user] | |
| name = Carl Masak | |
| email = [email protected] | |
| [alias] | |
| ci = commit | |
| co = checkout | |
| di = diff | |
| st = status |
masak
/ `make test` on the lex4 branch
Created
November 20, 2008 16:56
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Test Summary Report | |
| ------------------- | |
| t/library/streams.t (Wstat: 256 Tests: 20 Failed: 1) | |
| Failed test: 12 | |
| Non-zero exit status: 1 | |
| t/stm/queue.t (Wstat: 256 Tests: 4 Failed: 1) | |
| Failed test: 1 | |
| Non-zero exit status: 1 | |
| Files=396, Tests=11658, 316 wallclock secs ( 7.08 usr 2.22 sys + 141.28 cusr 72.83 csys = 223.41 CPU) | |
| Result: FAIL |
masak
/ the second call definitely shouldn't scream "TROGDOR!"
Created
November 20, 2008 23:10
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| $ cat lingering-named-parameter.p6 | |
| use v6; | |
| class A { | |
| sub format_line($line is rw, :$link_maker) { | |
| my $result = $line; | |
| if defined $link_maker { | |
| my $link_regex = / \[\[ (<-[\]]>+) \]\] /; # / |
masak
/ example of how closures made the code in zarah.pl look better, for gilleain
Created
November 26, 2008 16:52
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| $ svn diff -r7551:7552 | |
| [...] | |
| sub oh_thank_you { | |
| - my ($sender, $attribute, $channel, $irc) = @_; | |
| + my ($dialogue) = @_; | |
| my @replies = (q[oh, thank you, thank you!], | |
| q[you want me to leave?], | |
| q[well, yeah. you're excused too.]); # ' | |
masak
/ and here's where $dialogue is created
Created
November 26, 2008 16:59
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| + my $dialogue = Dialogue->new( | |
| + 'person' => $nick, | |
| + 'channel' => $channel, | |
| + | |
| + 'reply' => sub { reply_to( $nick, shift, $channel, $irc ) }, | |
| + 'say' => sub { utter( shift, $channel, $irc ) }, | |
| + 'me' => sub { $irc->yield( ctcp => $channel | |
| + => 'ACTION ' . shift ) }, | |
| + ); | |
| + |
masak
/ logg till #seju-estraro
Created
November 27, 2008 22:59
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| '#seju-estraro' => [ | |
| '2008-11-27T19:27:18 <[email protected]> (en bot som jag har gjort)', | |
| '2008-11-27T19:27:23 <[email protected]> hi', | |
| '2008-11-27T19:27:23 <zarah> hi ca', | |
| '2008-11-27T19:27:37 <[email protected]> hon bits inte.', | |
| '2008-11-27T19:27:38 <[email protected]> Multlingvulo: vad menar du med "åstadkomma"? :)', | |
| '2008-11-27T19:28:06 <[email protected]> jag k?nner en bot, hon heter zarah, zarah heter hon...', | |
| '2008-11-27T19:28:24 <[email protected]> Multlingvulo: det är lite det som är grejen. det är lättare att nå ut till folk numera. så föreningar har lite förlorat sitt syfte.', | |
| '2008-11-27T19:28:37 <[email protected]> å, jag måste säga det här', | |
| '2008-11-27T19:28:49 <[email protected]> SEJU måste snaras byggas om/ut till en medlemslista', |
OlderNewer