This file contains 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
# Solving dailyprogrammer exercise: https://www.reddit.com/r/dailyprogrammer/comments/98ufvz/20180820_challenge_366_easy_word_funnel_1/ | |
sub funnel-bonus($word, $set) { | |
my $index = 0; | |
my %words; | |
my $temp; | |
while $index < $word.chars { | |
$temp = $word.substr(0..^$index) ~ $word.substr($index+1..*); | |
%words{$temp} = 1 if ($temp (elem) $set); | |
$index++; |
This file contains 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
extern crate regex; | |
extern crate rss; | |
use std::fs::File; | |
use std::io::BufReader; | |
use rss::Channel; | |
use regex::Regex; | |
fn main() { | |
let file = File::open("data.xml").unwrap(); |
This file contains 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
use v6; | |
sub MAIN($text, $file-name) { | |
say "Searching for $text"; | |
say "In file $file-name"; | |
my @search-results = search($text, $file-name); | |
for @search-results -> $result { | |
say $result[0], " ", $result[1]; | |
} |
This file contains 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
PS C:\Users\Herby> zef install Archive::SimpleZip | |
===> Searching for: Archive::SimpleZip | |
===> Updated cpan mirror: https://raw.githubusercontent.com/ugexe/Perl6-ecosystems/master/cpan.json | |
===> Updated p6c mirror: http://ecosystem-api.p6c.org/projects.json | |
No such method 'subst' for invocant of type 'Any' | |
in method ver at C:\rakudo\share\perl6\site\sources\3B17D1AC8E611912925579FB966E543AF50C4AC1 (Zef::Distribution) line 125 | |
in method hash at C:\rakudo\share\perl6\site\sources\3B17D1AC8E611912925579FB966E543AF50C4AC1 (Zef::Distribution) line 21 | |
in method hash at C:\rakudo\share\perl6\site\sources\3B17D1AC8E611912925579FB966E543AF50C4AC1 (Zef::Distribution) line 112 | |
in code at C:\rakudo\share\perl6\site\sources\3B17D1AC8E611912925579FB966E543AF50C4AC1 (Zef::Distribution) line 91 | |
in method provides-spec-matcher at C:\rakudo\share\perl6\site\sources\3B17D1AC8E611912925579FB966E543AF50C4AC1 (Zef::Distribution) line 102 |