prakashk

#!/usr/bin/perl

use feature qw{ say state };
use strict;
use warnings;
use Benchmark qw{:all};
use Carp;

my $str = "state declares a lexically scoped variable, just like my. However, those variables will never be reinitialized, contrary to lexical variables that are reinitialized each time their enclosing block is entered.";
my $len = length($str);

prakashk

#!/usr/bin/env perl

use Benchmark qw/:all :hireswallclock/;
use Math::BigFloat;
use Math::Pari;

my $count = shift || 10_000;

my $pressure_bf = Math::BigFloat->new(1011.4598);
my $pressure_pari = Math::Pari::PARI(1011.4598);

prakashk

#!/usr/bin/env perl

use v5.14;
use mop;

class Foo {
    has $!sentence is ro;

    method new($class: @words) {
        $class->next::method(words => \@words);

prakashk

#!/usr/bin/env perl

use v5.14;
use mop;
use Data::Printer;

class Foo {
    has $!foo is ro;

    method new($class: $foo) {

prakashk

;; set font interactively
;; from https://news.ycombinator.com/item?id=6773670

(defun set-font (font-family height)
  (interactive "sFont family: \nnHeight: ")
  (set-face-attribute 'default nil :family font-family :height height)
  (set-fontset-font "fontset-default" 'unicode font-family))

prakashk

#!/usr/bin/env perl

## look for files in case-insensitive manner

use strict;
use warnings;
use feature 'say';
use File::Glob ":glob";

my $filename = shift or die "Missing filename";

prakashk

-- rename Project Euler files in git lost-found directory

-- get the file type and the problem number from the initial comments
-- in each file

import System.Directory
import Text.Regex.Posix
import Control.Monad (forM_)

lostFilesDir = ".git/lost-found/other"

prakashk

-- rename Project Euler files in git lost-found directory

-- get the file type and the problem number from the initial comments
-- in each file

import System.Directory
import Text.Regex.Posix
import Control.Monad (forM_)

lostFilesDir = ".git/lost-found/other"

prakashk

-- rename Project Euler files in git lost-found directory

-- get the file type and the problem number from the initial comments
-- in each file

import System.Environment
import System.Directory
import Text.Regex.Posix
import Control.Monad (forM_)

prakashk

-- https://questhub.io/realm/haskell/quest/537bb4e2bbd0bed61d00007d

head :: [a] -> a
head [] = error "head: empty list"
head (x:xs) = x

tail :: [a] -> [a]
tail [] = error "tail: empty list"
tail (x:xs) = xs