sylints

# 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++;

sylints

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();

sylints

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];
     }

sylints

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