# -*- encoding: utf-8; indent-tabs-mode: nil -*-

unit class Arithmetic::PaperAndPencil::Action:ver<0.0.1>:auth<zef:jforget>;

has Int  $.level is rw;
has Str  $.label;
has Str  $.val1;
has Str  $.val2;
has Str  $.val3;
has Int  $.r1l;
has Int  $.r1c;
has Str  $.r1val;
has Bool $.r1str;
has Int  $.r2l;
has Int  $.r2c;
has Str  $.r2val;
has Bool $.r2str;
has Int  $.w1l;
has Int  $.w1c;
has Str  $.w1val;
has Int  $.w2l;
has Int  $.w2c;
has Str  $.w2val;


method new-from-csv(:$csv) {
  my ($levelx, $label, $val1, $val2, $val3, $r1lx, $r1cx, $r1val, $r1strx
                                          , $r2lx, $r2cx, $r2val, $r2strx
                                          , $w1lx, $w1cx, $w1val
                                          , $w2lx, $w2cx, $w2val) = $csv.split( / \s* ';' \s* / );
  my Int $level   = $levelx.Int;
  my Int $r1l     = $r1lx.Int;
  my Int $r1c     = $r1cx.Int;
  my Int $r2l     = $r2lx.Int;
  my Int $r2c     = $r2cx.Int;
  my Int $w1l     = $w1lx.Int;
  my Int $w1c     = $w1cx.Int;
  my Int $w2l     = $w2lx.Int;
  my Int $w2c     = $w2cx.Int;
  my Bool $r1str;
  if $r1strx eq 'False' | 'Bool::False' {
    $r1str = False
  }
  else {
    $r1str = $r1strx.Bool;
  }
  my Bool $r2str;
  if $r2strx eq 'False' | 'Bool::False' {
    $r2str = False
  }
  else {
    $r2str = $r2strx.Bool;
  }
  self.new(level => $level
         , label => $label
         , val1  => $val1
         , val2  => $val2
         , val3  => $val3
         , r1l   => $r1l
         , r1c   => $r1c
         , r1val => $r1val
         , r1str => $r1str
         , r2l   => $r2l
         , r2c   => $r2c
         , r2val => $r2val
         , r2str => $r2str
         , w1l   => $w1l
         , w1c   => $w1c
         , w1val => $w1val
         , w2l   => $w2l
         , w2c   => $w2c
         , w2val => $w2val
         );
}

multi method BUILD(Int  :$level
                 , Str  :$label
                 , Str  :$val1  = ''
                 , Str  :$val2  = ''
                 , Str  :$val3  = ''
                 , Int  :$r1l   = 0
                 , Int  :$r1c   = 0
                 , Str  :$r1val = ''
                 , Bool :$r1str = False
                 , Int  :$r2l   = 0
                 , Int  :$r2c   = 0
                 , Str  :$r2val = ''
                 , Bool :$r2str = False
                 , Int  :$w1l   = 0
                 , Int  :$w1c   = 0
                 , Str  :$w1val = ''
                 , Int  :$w2l   = 0
                 , Int  :$w2c   = 0
                 , Str  :$w2val = ''
                 ) {
  $!level   = $level;
  $!label   = $label;
  $!val1    = $val1;
  $!val2    = $val2;
  $!val3    = $val3;
  $!r1l     = $r1l;
  $!r1c     = $r1c;
  $!r1val   = $r1val;
  $!r1str   = $r1str;
  $!r2l     = $r2l;
  $!r2c     = $r2c;
  $!r2val   = $r2val;
  $!r2str   = $r2str;
  $!w1l     = $w1l;
  $!w1c     = $w1c;
  $!w1val   = $w1val;
  $!w2l     = $w2l;
  $!w2c     = $w2c;
  $!w2val   = $w2val;

}

method csv(--> Str) {
  my Str ($r1str, $r2str);
  if $.r1str { $r1str = 'True'; } else { $r1str = 'False'; }
  if $.r2str { $r2str = 'True'; } else { $r2str = 'False'; }
  return join ';', $.level
                 , $.label
                 , $.val1
                 , $.val2
                 , $.val3
                 , $.r1l
                 , $.r1c
                 , $.r1val
                 , $r1str
                 , $.r2l
                 , $.r2c
                 , $.r2val
                 , $r2str
                 , $.w1l
                 , $.w1c
                 , $.w1val
                 , $.w2l
                 , $.w2c
                 , $.w2val
                 ;
}



head

Arithmetic::PaperAndPencil::Action - action when computing an arithmetic operation


code

=begin code :lang<raku>

use Arithmetic::PaperAndPencil::Action;

=end code


This lass  should not be  used directly. It is  meant to be  a utility
module for C<Arithmetic::PaperAndPencil>.


C<Arithmetic::PaperAndPencil::Action>  is  a   class  storing  various
actions  when computing  an operation:  writing digits  on the  paper,
drawing lines, reading previously written digits, etc.


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


root

Char

PaperAndPencil

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


=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


Action

NAME

SYNOPSIS

DESCRIPTION

AUTHOR

COPYRIGHT AND LICENSE

Arithmetic::PaperAndPencil v0.0.1

Authors

License

Dependencies

Test Dependencies

Provides

Documentation