Image

head

code

root

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

README

unit class Int::polydiv;
use MONKEY-TYPING;
augment class Int {
    method polydiv(Int:D: +@divs --> Seq:D){
        fail X::OutOfRange.new(
          :what('invocant to polydiv'), :got(self), :range<0..^Inf>
        ) if self < 0;
    
        gather {
            my $more = self;
            if @divs.is-lazy {
                for @divs -> $div {
                    $more
                      ?? $div
                        ?? take $more div $div
                        !! X::Numeric::DivideByZero.new(
                             using => 'polydiv', numerator => $more
                           ).Failure
                      !! last;
                    $more mod= $div;
                }
                .take if .so given $more;
            }
            else {
                for @divs -> $div {
                    $div
                      ?? take $more div $div
                      !! X::Numeric::DivideByZero.new(
                           using => 'polydiv', numerator => $more
                         ).Failure;
                    $more mod= $div;
                }
                take $more;
            }
        }
    }
}




Int::polydiv - the counterpart of the polymod method


=begin code :lang<raku>

use Int::polydiv;

my $amount = 596; # 596 dollars
my @denominations = (1, 2, 5, 10, 20, 50, 100); # the denominations used to pay
$amount.polydiv(@denominations.skip.reverse) Z @denominations.reverse andthen .map({ "$_[0]x$_[1]\$" }).join(' ').say;
# 5x100$ 1x50$ 2x20$ 0x10$ 1x5$ 0x2$ 1x1$

=end code


Int::polydiv is a module that adds the `polydiv` method on Int itself.


It is a proof-of-concept for a method that I'd like to see in the core language as a natural counterpart of the `polymod` method.
For both methods, the user has to provide a list of divisors. In the case of `polymod`, the dividends are obtained by performing integer division on the previous dividend, starting from `self`, and the return value is a sequence of the corresponding remainders. `polydiv` is the opposite: the dividends are obtained as the remainders and the return value elements are obtained as the quotient.


This approach allows for distributing an amount into units that don't include each other perfectly - but it also means that the sizes of the units must be provided relative to the base unit instead of the next unit.


This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.


polydiv

# We need to be naughty because we have to to provide this functionality
use nqp;

my sub does-not-exist(
  IO::Path:D $io,
  Str:D $trying
--> Failure) is hidden-from-backtrace {
    Failure.new:
      X::IO::DoesNotExist.new:
        :path(nqp::getattr(nqp::decont($io),IO::Path,'$!os-path')),
        :$trying
}

my sub inode(IO::Path:D $io --> Int:D) is export {
    Rakudo::Internals.FILETEST-E($io.absolute)  # sets $!os-path
      ?? nqp::stat(
           nqp::getattr(nqp::decont($io),IO::Path,'$!os-path'),
           nqp::const::STAT_PLATFORM_INODE
         )
      !! does-not-exist($io, "inode")
}

my sub dev(IO::Path:D $io --> Int:D) is export {
    Rakudo::Internals.FILETEST-E($io.absolute)  # sets $!os-path
      ?? nqp::stat(
           nqp::getattr(nqp::decont($io),IO::Path,'$!os-path'),
           nqp::const::STAT_PLATFORM_DEV
         )
      !! does-not-exist($io, "dev")
}

my sub devtype(IO::Path:D $io --> Int:D) is export {
    Rakudo::Internals.FILETEST-E($io.absolute)  # sets $!os-path
      ?? nqp::stat(
           nqp::getattr(nqp::decont($io),IO::Path,'$!os-path'),
           nqp::const::STAT_PLATFORM_DEVTYPE
         )
      !! does-not-exist($io, "devtype")
}



inode-dev-devtype - Provide inode / dev / devtype for older Rakudos


=begin code :lang<raku>

use inode-dev-devtype;

my $io = "foo".IO;
say "inode of foo is: &inode($io)";

my $inode = $io.&inode;

=end code


inode-dev-devtype is a module intended to be used by Rakudo versions
before the 2202.07 release.  It provides sub versions of the C<inode>,
C<dev> and C<devtype> methods that were added to the C<IO::Path> class
in that release.


Source can be located at: https://github.com/lizmat/inode-dev-devtype .
Comments and Pull Requests are welcome.


If you like this module, or what I’m doing more generally, committing to a
L<small sponsorship|https://github.com/sponsors/lizmat/>  would mean a great
deal to me!


inode-dev-devtype

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


README

NAME

SYNOPSIS

DESCRIPTION

AUTHOR

COPYRIGHT AND LICENSE

inode-dev-devtype v0.0.1

Authors

License

Dependencies

Test Dependencies

Provides

Documentation