あわせて読みたい

言語	リンク
Ruby	マイナンバーのチェックデジットを計算する
C++	C++でマイナンバーのチェックデジットを計算する
Python	Python マイナンバー検証用モジュールを公開
PHP	マイナンバーのチェックデジットを計算する PHP版
C#	C#でマイナンバーのチェックデジットを計算する
SQL	マイナンバーのチェックデジットを計算する（SQLで）
PowerShell	WindowsPowerShell & C#マイナンバーのチェックデジットを計算する
JavaScript, Groovy	JavaScriptとGroovyでマイナンバーのチェックデジットを計算する
Haskell	Haskellでマイナンバーのチェックデジットを計算する
Haskell	マイナンバー数字列の確認
Java	マイナンバーのチェックデジットを計算する（Java編）
C, Go, Bash, Excel etc...	マイナンバーのチェックデジットの検算をざっくり1割くらい高速化する(計ってないので知らんけど)
Go	マイナンバーのチェックデジットをGoで計算する
Swift	マイナンバーのチェックデジットをSwiftで計算する
Vim script	Vim からマイナンバーを検証出来るプラグイン書いた。
Gauche	Scheme(Gauche)でマイナンバーのチェックデジットを計算する
OCaml	OCaml でマイナンバーのチェックデジットを計算する
Rust	My Number validator for Rust

説明

流行に乗ってマイナンバーのチェックデジットを計算してみます。
Ruby 版を真似て書いています。

Perl5

mynumber_validate.pl

#!/usr/bin env perl

use v5.18;
use List::Util 'sum';
use feature qw(say switch);
no warnings 'experimental';

&main;exit;

sub main{
  say validate_my_number('123456789010'); #=> false
  say validate_my_number('123456789011'); #=> false
  say validate_my_number('123456789012'); #=> false
  say validate_my_number('123456789013'); #=> false
  say validate_my_number('123456789014'); #=> false
  say validate_my_number('123456789015'); #=> false
  say validate_my_number('123456789016'); #=> false
  say validate_my_number('123456789017'); #=> false
  say validate_my_number('123456789018'); #=> true
  say validate_my_number('123456789019'); #=> false
  say validate_my_number('023456789013'); #=> true (先頭が0の場合)
}

sub validate_my_number{
  # 整数列化
  my @digits = split'', $_[0];

  # 12桁しか認めない
  return 'false' unless @digits == 12;

  # チェックデジットを分離します
  my $check_digit = pop @digits;

  # P(n) 定義
  my $P = sub {
      my @digits = @_;
      return sub {
        my $n = $_[0];
        return $digits[ -$n ];
      };
  }->(@digits);

  # Q(n) 定義
  my $Q = sub {
        my $n = $_[0];
        return ($n<= 6) ? $n+1 : $n-5;
  };

  # 数列の和を11で割った余りを計算します
  my $remainder = ( sum map{ $P->($_) * $Q->($_) } 1..11 ) % 11;

  given( $remainder ){
    when ([0,1]){
      return $check_digit == 0 ? 'true' : 'false';
    }
    default{
      return $check_digit == 11 - $remainder ? 'true' : 'false';
    }
  }
}

Perl6

perl6_mynumber_validate.pl

use v6;

sub MAIN (){
  say validate_my_number('123456789010'); #=> false
  say validate_my_number('123456789011'); #=> false
  say validate_my_number('123456789012'); #=> false
  say validate_my_number('123456789013'); #=> false
  say validate_my_number('123456789014'); #=> false
  say validate_my_number('123456789015'); #=> false
  say validate_my_number('123456789016'); #=> false
  say validate_my_number('123456789017'); #=> false
  say validate_my_number('123456789018'); #=> true
  say validate_my_number('123456789019'); #=> false
  say validate_my_number('023456789013'); #=> true (先頭が0の場合)
}

sub validate_my_number( Str $mynumber ){
  # 整数列化
  my @digits = $mynumber.comb;

  # 12桁しか認めない
  return False unless @digits.elems == 12;

  # チェックデジットを分離します
  my $check_digit = @digits.pop;

  # P(n) 定義
  my $P = sub ( @digits ) {
      return sub ( Int $n ) {
        return @digits[ *-$n ];
      };
  }.(@digits);

  # Q(n) 定義
  my $Q = sub ( Int $n ) {
    return ($n <= 6) ?? $n + 1 !! $n - 5;
  };

  # 数列の和を11で割った余りを計算します
  my $remainder = ( [+] (1..11).map:{ $P.(+$_) * $Q.(+$_) } ) % 11;

  given $remainder {
    when 0|1 {
      return $check_digit == 0;
    }
    default {
      return $check_digit == (11 - $remainder);
    }
  }
}

おわりです。

参考や注釈