iso2022jp

#!/bin/perl
#---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0

# $ perl gemstring.pl eagcdfbe 1 4 1 4 2 1 3

use v5.10;
use strict;
use integer;
# no Memoize; # :-)

iso2022jp

#define STRICT
#define WIN32_LEAN_AND_MEAN
#define VC_EXTRALEAN

#include <windows.h>
#include <winsafer.h>

void Zero(void *dest, size_t count) {
	char *p = (char *)dest;

iso2022jp

Option Explicit

Public Sub ConvertEncoding(ByRef SourcePath As String, ByRef DestinationPath As String, ByRef SourceEncoding As String, ByRef DestinationEncoding As String)

    Dim oWork As Object
    
    With CreateObject("ADODB.Stream")
    
        ' load source

iso2022jp

#!/usr/bin/perl

use strict;
use warnings;
use bmp_io;

sub compress_vcl_lzw ($$);

my $transparent = @ARGV ? $ARGV[0] : undef;

iso2022jp

perl convert.pl < shufflers.txt > shufflers-for-mysql.txt
mysql -N test < solve.sql > result.txt

iso2022jp

#!/bin/bash

#
# Query Dropbox Account Information
#

# $referral
# $name
# $uid
# $country

iso2022jp

/* ********************************************************************** */
/*
	矢印を逆転して見ると、隣接要素を交換しながらのソートになっている
	交差回数は、隣接交換に必要な最小回数を表している。

	隣接交換はどこから着手しても同じ結果になるし計算しやすいが
	単純なバブルソートでは時間がかかるのでマージソートを使う。
*/
/* ********************************************************************** */

iso2022jp

#!/bin/perl
#---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0
=pod

=encoding UTF-8

=head1 213個の単語からパングラムを作ろう - 解答

=head2 提出要件

iso2022jp

function $grep(o, v, p = '') {
  $grep.known = []
  return $grep.find(o, v, p)
}

$grep.match = function (e, v) {
  return v instanceof RegExp ? typeof e !== 'object' && typeof e !== 'function' && v.test(String(e)) : e === v
}

$grep.pandora = function (key) {

iso2022jp

DROP FUNCTION IF EXISTS FROM_BASE64;

DELIMITER ;;

CREATE FUNCTION FROM_BASE64 (base64 BLOB) RETURNS BLOB DETERMINISTIC SQL SECURITY INVOKER
BEGIN

  DECLARE plain BLOB DEFAULT '';
  DECLARE o INTEGER DEFAULT 0;