ktnyt

#include <stdio.h>

int isPrime(int n) {
  int i;

  for(i = 2; i * i <= n; ++i) {
    if(n % i == 0) {
      return 0;
    }
  }

ktnyt

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define MAXLINE 256

int main() {
  char str1[MAXLINE];
  char str2[MAXLINE];
  char str3[MAXLINE];

ktnyt

while("STAP"ne$s){print$s=join("",map{qw(S T A P)[4*rand]}0..3),"\n"}print"陽性かくにん! よかった☆\n"

ktnyt

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

// struct listじゃなくてlistで定義できるおまじない
typedef struct _list {
  char* name;
  struct _list* next;
} list;

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

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;