labster

labster

function toggleSection(toggleObj, id, showtext, hidetext) {
  var e = document.getElementById('sectionblock'+id);
  if(toggleObj.innerHTML == showtext) {
    toggleObj.innerHTML = hidetext;
    e.style.display = 'block';
  }
  else {
    toggleObj.innerHTML = showtext;
    e.style.display = 'none';
  }

labster

use strict;
use warnings;
use feature 'say';

package Promise {

    my $STATE; # = 'PENDING';

    my $fulfillvalue;
    my $rejectreason;

labster

use v6;
use Test;

plan 10;

#bare sigils

lives_ok { my $ }, 'basic bare sigil $';
lives_ok { my @ }, 'basic bare sigil @';
lives_ok { my % }, 'basic bare sigil %';

labster

proto infix:<=>($, $) is rw { * }
multi infix:<=>(Mu \a, Mu \b) is rw {
    nqp::p6store(a, b)
}
multi infix:<=>(Mu \a, Nil \b) is rw {
    if nqp::iscont(a) {
        nqp::p6store(a, a.VAR.of);
    }
    else { X::Assignment::RO.new.throw; }
}

labster

#!/usr/bin/perl

use 5.10.0;
use strict;
use warnings;
use Tie::File;
 
my $MAX_LINES = 100_000;
my @FIELDS = (7, 8, 9, 14, 17, 18, 19, 25, 30, 31, 35, 36, 37, 43, 44, 46, 47, 50, 52, 55, 62, 63, 66, 67, 68, 75, 76, 77, 81);

labster

#!/usr/bin/perl

use 5.10.0;
use strict;
use warnings;
 
my $MAX_LINES = 100_000;
my @FIELDS = (7, 8, 9, 14, 17, 18, 19, 25, 30, 31, 35, 36, 37, 43, 44, 46, 47, 50, 52, 55, 62, 63, 66, 67, 68, 75, 76, 77, 81);

sub nextfilename {

labster

program 1
perl6 -n -e '.split(" ")[2].say' 1.txt

program 2
perl6 -e 'say [+] $*ARGFILES.lines' 2.txt

program 3
perl6 -n -e 'say $_, "\n"' 3.txt

program 4

labster

use v6;
sub uq(*@vals) { so @vals.bag.values.all == 1 }
sub rowN($n, *@vals) {
    return say "[{@vals.join(',')}]" if $n > 8;
    for 1..8 -> $new {
        my @vnew = @vals, $new;
        my ($i1, $i2) = 0, 0;
        next if !uq(@vnew)
             or !uq(@vnew.map: { $_ - ++$i1 })
             or !uq(@vnew.map: { $_ + ++$i2 });

labster

use v6;
use Lingua::Number;

my &to_roman = &roman-numeral;

use Test;

is to_roman(3), "III", "3 gets converted to III";