Skip to content

Instantly share code, notes, and snippets.

@zoffixznet

zoffixznet/gist:a6f8bd97c94214048d4e36b2ce6fedd6

Created September 14, 2016 21:04
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save zoffixznet/a6f8bd97c94214048d4e36b2ce6fedd6 to your computer and use it in GitHub Desktop.
Save zoffixznet/a6f8bd97c94214048d4e36b2ce6fedd6 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
<Zoffix> m: my $re = '(\d(\d(\d)))'; my @caps = deepmap *.values, 'a123' ~~ /<$re>/;
<camelia> rakudo-moar 0cf712: ( no output )
<Zoffix> m: my $re = '(\d(\d(\d)))'; my @caps = deepmap *.values, 'a123' ~~ /<$re>/; dd @caps
<camelia> rakudo-moar 0cf712: OUTPUT«Array @caps = []␤»
<Zoffix> m: my $re = '(\d(\d(\d)))'; my @caps = deepmap *».values, 'a123' ~~ /<$re>/; dd @caps
<camelia> rakudo-moar 0cf712: OUTPUT«Array @caps = []␤»
<Zoffix> m: my $re = '(\d(\d(\d)))'; my @caps = map ».values, 'a123' ~~ /<$re>/; dd @caps
<camelia> rakudo-moar 0cf712: OUTPUT«===SORRY!=== Error while compiling <tmp>␤Missing « or »␤at <tmp>:1␤------> $re = '(\d(\d(\d)))'; my @caps = map ».⏏values, 'a123' ~~ /<$re>/; dd @caps␤»
<Zoffix> m: my $re = '(\d(\d(\d)))'; my @caps = map *».values, 'a123' ~~ /<$re>/; dd @caps
<camelia> rakudo-moar 0cf712: OUTPUT«Array @caps = [(),]␤»
<Zoffix> m: my $re = '(\d(\d(\d)))'; my @caps = deepmap *».values, 'a123' ~~ /<$re>/; dd @caps
<camelia> rakudo-moar 0cf712: OUTPUT«Array @caps = []␤»
<Zoffix> m: my $re = '(\d(\d(\d)))'; my @caps = deepflat *».values, 'a123' ~~ /<$re>/; dd @caps
<camelia> rakudo-moar 0cf712: OUTPUT«===SORRY!=== Error while compiling <tmp>␤Undeclared routine:␤ deepflat used at line 1. Did you mean 'deepmap'?␤␤»
<Zoffix> m: my $re = '(\d(\d(\d)))'; my @caps = 'a123' ~~ /<$re>/; dd @caps
<camelia> rakudo-moar 0cf712: OUTPUT«Array @caps = [Match.new(ast => Any, list => (), hash => Map.new(()), orig => "a123", to => 4, from => 1)]␤»
<Zoffix> m: my $re = '(\d(\d(\d)))'; my @caps = 'a123' ~~ /<$re>/».list; dd @caps
<camelia> rakudo-moar 0cf712: OUTPUT«Array @caps = [Bool::False]␤»
<Zoffix> m: my $re = '(\d(\d(\d)))'; my @caps = 'a123' ~~ /<$re>/».values; dd @caps
<camelia> rakudo-moar 0cf712: OUTPUT«Array @caps = [Bool::False]␤»
<Zoffix> m: my $re = '(\d(\d(\d)))'; my @caps = deepmap *.list, 'a123' ~~ /<$re>/; dd @caps
<camelia> rakudo-moar 0cf712: OUTPUT«Array @caps = []␤»
<Zoffix> m: my $re = '(\d\d\d)'; my @caps = deepmap *.list, 'a123' ~~ /<$re>/; dd @caps
<camelia> rakudo-moar 0cf712: OUTPUT«Array @caps = []␤»
<Zoffix> m: my $re = '(\d\d\d)'; my @caps = 'a123' ~~ /<$re>/; dd @caps
<camelia> rakudo-moar 0cf712: OUTPUT«Array @caps = [Match.new(ast => Any, list => (), hash => Map.new(()), orig => "a123", to => 4, from => 1)]␤»
<Zoffix> m: my $re = '(\d\d\d)'; my @caps = 'a123' ~~ /<$re>/; dd @caps».values
<camelia> rakudo-moar 0cf712: OUTPUT«(().Seq,)␤»
<Zoffix> m: my $re = '(\d\d\d)'; dd 'a123' ~~ /<$re>/;
<camelia> rakudo-moar 0cf712: OUTPUT«Match.new(ast => Any, list => (), hash => Map.new(()), orig => "a123", to => 4, from => 1)␤»
<Zoffix> m: my $re = '(\d\d\d)'; say 'a123' ~~ /<$re>/;
<camelia> rakudo-moar 0cf712: OUTPUT«｢123｣␤»
<Zoffix> m: my $re = '(\d\d\d)'; say 'a123' ~~ /<$re>/».values
<camelia> rakudo-moar 0cf712: OUTPUT«False␤»
<Zoffix> m: my $re = '(\d\d\d)'; say ('a123' ~~ /<$re>/)».values
<camelia> rakudo-moar 0cf712: OUTPUT«()␤»
<Zoffix> m: my $re = '(\d\d\d)'; say ('a123' ~~ /<$re>/)».list
<camelia> rakudo-moar 0cf712: OUTPUT«()␤»
<Zoffix> m: my $re = '(\d\d\d)'; say ('a123' ~~ /<$re>/)».matches
<camelia> rakudo-moar 0cf712: OUTPUT«()␤»
<Zoffix> m: my $re = '(\d\d\d)'; say ('a123' ~~ /<$re>/)».flat
<camelia> rakudo-moar 0cf712: OUTPUT«()␤»
<Zoffix> m: my $re = '(\d\d\d)'; say ('a123' ~~ /(\d\d\d)/)».flat
<camelia> rakudo-moar 0cf712: OUTPUT«(())␤»
<Zoffix> m: my $re = '(\d\d\d)'; say ('a123' ~~ /(\d\d\d)/)».matches
<camelia> rakudo-moar 0cf712: OUTPUT«Method 'matches' not found for invocant of class 'Match'␤ in block <unit> at <tmp> line 1␤␤»
<Zoffix> m: my $re = '(\d\d\d)'; say ('a123' ~~ /(\d\d\d)/)».values
<camelia> rakudo-moar 0cf712: OUTPUT«(())␤»
<Zoffix> m: my $re = '(\d\d\d)'; say ('a123' ~~ /(\d\d\d)/)».[*]
<camelia> rakudo-moar 0cf712: OUTPUT«(())␤»
<Zoffix> m: my $re = '(\d\d\d)'; say ('a123' ~~ /(\d\d\d)/)».[0]
<camelia> rakudo-moar 0cf712: OUTPUT«(Nil)␤»
<Zoffix> m: my $re = '(\d\d\d)'; say ('a123' ~~ /(\d\d\d)/)[0]
<camelia> rakudo-moar 0cf712: OUTPUT«｢123｣␤»
<Zoffix> m: my $re = '(\d\d\d)'; say ('a123' ~~ /(\d\d\d)/).flat
<camelia> rakudo-moar 0cf712: OUTPUT«(｢123｣)␤»
<Zoffix> m: my $re = '(\d\d\d)'; say ('a123' ~~ /(\d(\d\d))/)flat
<camelia> rakudo-moar 0cf712: OUTPUT«===SORRY!=== Error while compiling <tmp>␤Two terms in a row␤at <tmp>:1␤------> '(\d\d\d)'; say ('a123' ~~ /(\d(\d\d))/)⏏flat␤ expecting any of:␤ infix␤ infix stopper␤ postfix␤ statement end␤ …»
<Zoffix> m: my $re = '(\d\d\d)'; say ('a123' ~~ /(\d(\d\d))/).flat
<camelia> rakudo-moar 0cf712: OUTPUT«(｢123｣␤ 0 => ｢23｣)␤»
<Zoffix> m: my $re = '(\d\d\d)'; say deepmap *.flat, ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«((｢23｣))␤»
<Zoffix> m: my $re = '(\d\d\d)'; say deepmap {take $_}, ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«take without gather␤ in block <unit> at <tmp> line 1␤␤»
<Zoffix> m: my $re = '(\d\d\d)'; say gather deepmap {take $_}, ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«(｢123｣␤ 0 => ｢23｣)␤»
<Zoffix> m: my $re = '(\d\d\d)'; say gather deepmap .take, ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«Type check failed in binding to &block; expected Callable but got Any (Any)␤ in block <unit> at <tmp> line 1␤␤»
<Zoffix> m: my $re = '(\d\d\d)'; say gather deepmap *.take, ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«(｢123｣␤ 0 => ｢23｣)␤»
<Zoffix> m: my $re = '(\d\d\d)'; say gather deepmap { $_ ~~ Pair ?? .value.take !! .take }, ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«(｢123｣␤ 0 => ｢23｣)␤»
<Zoffix> m: my $re = '(\d\d\d)'; say gather deepmap { dd $_; $_ ~~ Pair ?? .value.take !! .take }, ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«Match.new(ast => Any, list => (Match.new(ast => Any, list => (), hash => Map.new(()), orig => "a123", to => 4, from => 2),), hash => Map.new(()), orig => "a123", to => 4, from => 1)␤(｢123｣␤ 0 => ｢23｣)␤»
<Zoffix> m: my $re = '(\d\d\d)'; say Match ~~ Iterable
<camelia> rakudo-moar 0cf712: OUTPUT«False␤»
<Zoffix> m: my $re = '(\d\d\d)'; say gather deepmap { .list.take }, ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«((｢23｣))␤»
<Zoffix> m: my $re = '(\d\d\d)'; say gather deepmap { .take }, deepmap *.list, ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«(｢23｣)␤»
<Zoffix> m: my $re = '(\d\d\d)'; say gather deepmap *.list, ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«()␤»
<Zoffix> m: my $re = '(\d\d\d)'; say gather deepmap *.list.take, ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«((｢23｣))␤»
<Zoffix> m: my $re = '(\d\d\d)'; say gather deepmap *.list.take, ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«((｢23｣))␤»
<Zoffix> m: my $re = '(\d\d\d)'; say flat ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«(｢123｣␤ 0 => ｢123｣␤ 0 => ｢23｣)␤»
<Zoffix> m: my $re = '(\d\d\d)'; say map *.values, flat ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«((｢123｣␤ 0 => ｢23｣))␤»
<Zoffix> m: my $re = '(\d\d\d)'; say map *.value, flat ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«Method 'value' not found for invocant of class 'Match'␤ in block <unit> at <tmp> line 1␤␤»
<Zoffix> m: my $re = '(\d\d\d)'; say map *.?value, flat ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«(Nil)␤»
<Zoffix> m: my $re = '(\d\d\d)'; say map *.?value, flat ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«(Nil)␤»
<Zoffix> m: my $re = '(\d\d\d)'; say map {.?value}, flat ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«(Nil)␤»
<Zoffix> m: my $re = '(\d\d\d)'; say map {.^name}, flat ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«(Match)␤»
<Zoffix> m: my $re = '(\d\d\d)'; say map {.list}, flat ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«((｢123｣␤ 0 => ｢23｣))␤»
<Zoffix> m: my $re = '(\d\d\d)'; say map flat ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«Cannot resolve caller map(Seq); none of these signatures match:␤ (&code, + is raw)␤ in block <unit> at <tmp> line 1␤␤»
<Zoffix> m: my $re = '(\d\d\d)'; say flat ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«(｢123｣␤ 0 => ｢123｣␤ 0 => ｢23｣)␤»
<Zoffix> m: my $re = '(\d\d\d)'; say ('a123' ~~ /(\d(\d\d))/)
<camelia> rakudo-moar 0cf712: OUTPUT«｢123｣␤ 0 => ｢123｣␤ 0 => ｢23｣␤»
<Zoffix> m: my $re = '(\d\d\d)'; say ('a123' ~~ /(\d(\d\d))/).^methods
<camelia> rakudo-moar 0cf712: OUTPUT«(new ast prematch postmatch caps chunks make Str Numeric Bool ACCEPTS perl gist orig from to CURSOR made elems Method+{<anon|61476784>}.new Method+{<anon|61476784>}.new list perl gist Method+{<anon|61476784>}.new hash FLATTENABLE_LIST FLATTENABLE_HASH Meth…»
<Zoffix> m: my $re = '(\d\d\d)'; say ('a123' ~~ /(\d(\d\d))/).chunks
<camelia> rakudo-moar 0cf712: OUTPUT«(0 => ｢123｣␤ 0 => ｢23｣)␤»
<Zoffix> m: my $re = '(\d\d\d)'; say ('a123' ~~ /(\d(\d\d))/).chunks».value
<camelia> rakudo-moar 0cf712: OUTPUT«(｢123｣␤ 0 => ｢23｣)␤»
<Zoffix> m: my $re = '(\d\d\d)'; put ('a123' ~~ /(\d(\d\d))/).chunks».value
<camelia> rakudo-moar 0cf712: OUTPUT«123␤»
<Zoffix> m: my $re = '(\d\d\d)'; put ('a123' ~~ /(\d(\d\d))/).chunks
<camelia> rakudo-moar 0cf712: OUTPUT«0 123␤»
<Zoffix> m: my $re = '(\d\d\d)'; put ('a123' ~~ /(\d(\d\d))/).flat
<camelia> rakudo-moar 0cf712: OUTPUT«123␤»
<Zoffix> m: my $re = '(\d\d\d)'; put ('a123' ~~ /(\d(\d\d))/).caps
<camelia> rakudo-moar 0cf712: OUTPUT«0 123␤»
<Zoffix> m: my $re = '(\d\d\d)'; put ('a123' ~~ /(\d(\d\d))/).caps».value
<camelia> rakudo-moar 0cf712: OUTPUT«123␤»
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment