TITLE

AUTHOR

code

=begin code :lang<raku>
#!/usr/bin/env perl6

use v6;



my @fibonacci = 1, 1, { $^a + $^b } ... *;
say @fibonacci[6];     # 13

# vim: expandtab shiftwidth=4 ft=perl6

=end code


root

Reading from a file


01-read-from-file.pl

Reading from the terminal


01-read-from-terminal.pl

Word-wrap paragraphs to a given length


01-word-wrap.pl

Write to a file


01-write-to-file.pl

para

L<Examples| file:../examples/index.podlite>


L<Download |file:../download/index.podlite>


React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


HEADER

FOOTER

Lazily evaluate items in a list


In Could I Get Your Phone Number? competitors are given a phone number and
then—using the letters found on a standard phone dial—construct a word in
which the letters correspond to the numbers in the phone number.


As you probably know, phone numbers can be difficult to remember; that’s why
many companies and organizations use mnemonic devices – such as acronyms and
jingles – to make their phone numbers a little more memorable.


What’s that? Can we give you an example of one of those mnemonic devices?
You bet we can. For example, suppose the Scripting Guys had the phone number
727-4787. That’s hard to remember; therefore, the Scripting Guys might tell
people to dial SCRIPTS instead. The word SCRIPTS – in which the letters in
the word correspond to the numbers in the phone number – is a mnemonic
device: it makes it easier for you to remember something.


Good question: how do you get SCRIPTS out of a phone number like 727-4787?
Well, on a standard phone dial, the digits 2 through 9 have all been
assigned letter values in addition to their numeric value:


table_head

table_row

table

=begin table
Digit   Letter Values
=====   =============
2       A B C
3       D E F
4       G H I
5       J K L
6       M N O
7       P R S
8       T U V
9       W X Y
=end table


It’s these corresponding letter values that enable us to derive the word
SCRIPTS from of the phone number 727-4787:


=begin table
7  S
2  C
7  R
4  I
7  P
8  T
7  S
=end table


That’s pretty cool; SCRIPTS is way easier to remember than 727-4787. On the
other hand, trying to figure out which word – if any – can be made from a
given phone number is kind of challenging. What would really be cool is
script that can convert a phone number to a word.


Now, try to guess what you need to do for Event 1 in the Advanced Division.


Good guess. Your task in Event 1 is this: given a seven-digit phone number
(e.g., 732-3464), create a seven-letter word corresponding to those digits.
Keep in mind that you can only use the three letter values that correspond
to each digit. For example, the word you create for 732-3464 must start with
the letter P, R, or S. Why? Because the phone number starts with the number
7, and, on the standard phone dial, those three letters are the only letters
associated with the number 7. In case you’re wondering, one possible
solution for 732-3464 is the word READING:


=begin table
7  3  2  3  4  6  4
=  =  =  =  =  =  =
R  E  A  D  I  N  G
=end table


To receive credit for this event you must come up with a seven-letter word;
any other use of the seven letters (for example, a four-letter word plus a
three-letter word) will not be accepted. In addition, the word must appear
in the file WordList.txt, an official word list that is included as part of
the Scripting Games’ Competitors Pack. On top of that, keep in mind that: 1)
although there might be multiple solutions for a given phone number your
script should only display one solution; and 2) the script should only
display a correct solution. Please don’t display all possible solutions; for
example, don’t do this:


If you do, we’ll have to disqualify your entry. Instead, display only a
single correct solution, like so:


Your script must prompt the user to enter a phone number (either via the
command line or using an Input box). When the scripts are tested, phone
numbers will be entered without the hyphen; thus the number 732-3464 will
actually be entered into the program like this:


In other words, you do not need to include code that removes the hyphen from
the phone number; the hyphen will never appear in the phone number. Oh, and
when your script reads from the file WordList.txt (trust us: your script
will need to do that) make sure this file is in the folder C:\Scripts. If
the file is in any other folder, your script will likely fail when we test
it.


L<http://web.archive.org/web/20080321224441/http://www.microsoft.com/technet/scriptcenter/funzone/games/games08/aevent1.mspx>


=begin code :lang<raku>
use v6;



sub MAIN(Bool :$verbose = False) {
    my $input-file = $*SPEC.catdir($*PROGRAM-NAME.IO.dirname, "wordlist.txt");
    my %dict = (($input-file.IO.lines.grep: {.chars == 7}) X 1).flat;

    my %digits = (
        2 => (<a b c>),
        3 => (<d e f>),
        4 => (<g h i>),
        5 => (<j k l>),
        6 => (<m n o>),
        7 => (<p r s>),
        8 => (<t u v>),
        9 => (<w x y>),
    );

    my $phone_number = 7323464;
    my @test_words;

    for $phone_number.comb {
        say $_, "->", %digits{$_}.join('-') if $verbose;
        if (@test_words.elems) {
            my @values = %digits{$_}.values;
            @test_words = @test_words X~ '' X~ @values;
        }
        else {
            @test_words = %digits{$_}.values;
        }
    }

    say "Comparing {@test_words.elems} words against a dictionary of {%dict.elems} entries"
        if $verbose;
    for @test_words -> $word {
        $word.uc.say if defined %dict{$word};
    }
}

# vim: expandtab shiftwidth=4 ft=perl6

=end code


Skating on Thin Ice


advanced-2008

You Call That a Strong Password?


Blackjack!


One of These Things is not Like the Others


beginner-2007

Pairing Off


beginner-2008

Pairing off


Let's Get Together


Coffee Break


Random Guess


Bowling


README.md

Could I Get Your Phone Number?


=begin code :lang<raku>
#!/usr/bin/env perl6



use v6;

my $tempfile = open('output.txt', :w);
$tempfile.print("Hello world\n");
$tempfile.close;

# vim: expandtab shiftwidth=4 ft=perl6

=end code


lazy-evaluation.pl

The Raku Knowledge Base


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


AUTHOR

See Also