ktnyt

import processing.video.*;

Capture camera;
PImage picture = null;

void setup() {
  size(640, 480);

  camera = new Capture(this, 640, 480, 30);
  camera.start();

ktnyt

import processing.video.*;

Capture camera;
PImage picture = null;

void setup() {
  size(640, 480);

  camera = new Capture(this, 640, 480, 30);
  camera.start();

ktnyt

perl -lane '$.-1?$h{$_}=$F[7]:print"(answer1)\n$_"}{print join"\n",sort{$h{$b}<=>$h{$a}}keys%h' datas

perl -F'\t' -lane '$.-1?$F[4]?push@{$h{$F[0]}},[$F[4],$F[2],$F[5]]:"":print"(answer2)"}{map{print"[$_]"and map{print join":",@$_ if@$_}(sort{$b->[0]<=>$a->[0]}sort{$a->[1]<=>$b->[1]}@{$h{$_}})[0..4]}sort{$a cmp$b}keys%h' datas

perl -lane '$.-1?sub{$h{$1}++while/https?:\/\/(.+?)\//g}->():print"(answer3)"}{print join"\n",(map{join":",@$_}sort{$b->[0]<=>$a->[0]}map{[$h{$_},$_]}sort{$a cmp$b}keys%h)[0..4]' datas;

ktnyt

SELECT DISTINCT *
WHERE {
  ?person rdf:type <http://dbpedia.org/ontology/Person> .
  ?person prop-ja:バスト ?b .
  ?person prop-ja:ウエスト ?w.
  ?person prop-ja:ヒップ ?h.
  ?person <http://ja.dbpedia.org/property/生年> ?birthYear .
  ?person rdfs:label ?label .
  ?person dbpedia-owl:wikiPageWikiLink dbpedia-ja:日本 .
  ?person dbpedia-owl:wikiPageWikiLink dbpedia-ja:ジュニアアイドル

ktnyt

use strict;
use warnings;

use G;

my $gb = load("ecoli", "no msg");

my $w_val = w_tai($gb, -output=>"f", -filename=>"/dev/null");

my $table;

ktnyt

use strict;
use warnings;

use utf8;
use Encode;

use Scalar::Util 'blessed';
use Net::Twitter;

my $username = shift;

ktnyt

#!/usr/bin/env perl
###############################################################################
#
# Modules
#
use strict;
use warnings;
use utf8;

use POSIX;

ktnyt

use strict;
use warnings;

print p([@ARGV]), "\n";

sub p {
    my $e = shift;
    my $s = shift @{$e};
    return p($e) + p($e) if $s eq "+";
    return p($e) - p($e) if $s eq "-";

ktnyt

use strict;
use warnings;

my @list = qw(1 2 3 4);
my @p = permute([@list], []);
foreach my $s (map{join("\t", @{$_})}@p) {
    printf("%s\n", $s);
}

sub permute {

ktnyt

#!/usr/bin/env perl
use strict;
use warnings;

my $base = "togows.dbcls.jp/entry/nucleotide";

my ($prefix, $from_id, $to_id) = (@ARGV);

if($from_id > $to_id) {
    ($from_id, $to_id) = ($to_id, $from_id);