ultraist

// http://twitter.com/ultraistter/statuses/851812566
// gcc unlinktest.c -o unlinktest
// ./ulinktest &
// rm foobar
#include <sys/file.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <unistd.h>
#include <stdlib.h>

ultraist

// MNIST: bag of keypoints
#include "nv_core.h"
#include "nv_ml.h"
#include "nv_io.h"
#include "nv_num.h"
#include "cxcore.h"
#include "cv.h"
#include "highgui.h"
#include "nv_face_feature.h"

ultraist

# bou_imouto_crawler
use strict;
use warnings;
use Web::Scraper;
use URI;
use Data::Dumper;
use LWP::UserAgent;
use constant {
  TAG_FILE => './tags.txt',   # 手動で用意
  MAX_PAGE => 10

ultraist

# アニメ顔切り取りスクリプト
use strict;
use warnings;
use Imager;
use Imager::AnimeFace;
use File::Spec::Functions;
use List::Util qw/min max/;
use Storable qw/nstore/;
use constant {
  FACE_THRESHOLD => 0.7,            # 顔検出の閾値(0.5～1.0) 高いほど厳しい

ultraist

// モノクロ画像なら0を返すコマンド
#include <stdio.h>
#if 0
#include "opencv/cv.h"
#include "opencv/cxcore.h"
#include "opencv/highgui.h"
#else
#include "cv.h"
#include "cxcore.h"
#include "highgui.h"

ultraist

# モノクロ画像だけ移動させるコマンド
use strict;
use warnings;
use File::Copy qw/move/;
use File::Spec::Functions qw/catfile/;

my($src_dir, $move_dir) = @ARGV;
unless (defined($src_dir) && defined($move_dir)) {
  die "usage $0 src_dir mono_dir\n";
}

ultraist

// WB No.8のサンプルコード
/*
  TCPを使ったリモートログイン用バックドア -- trbp --

  動作確認は、x86 LinuxとMacOS X上で行っています

  Linux  : gcc trbp.c -lutil -Wall -o trbp
  MacOS X: gcc trbp.c -Wall -o trbp

  実行すると常駐するので消し忘れに注意してください

ultraist

#include "nv_core.h"
#include "nv_ml.h"
#include "nv_num.h"

// k-means

// 初期値選択
static void 
nv_kmeans_init(nv_matrix_t *means, int k,
			   const nv_matrix_t *data)

ultraist

#include "nv_core.h"
#include "nv_num_distance.h"
#if NV_ENABLE_SSE2
#include <emmintrin.h>
#include <xmmintrin.h>
#endif

// ユークリッド距離
float nv_euclidean(const nv_matrix_t *vec1, int m1, const nv_matrix_t *vec2, int m2)
{

ultraist

#
# twitterのfriendsのアイコンを
# アニメアイコンとアニメアイコン以外にフォルダわけするスクリプト
#
# 使い方
#   1. 必要なモジュールをcpan(windowsならppm)でインストール
#
#      AnimeFaceはCPANに無いのでhttp://anime.udp.jp/imager-animeface.html#downloadinstall参考
#      Windowsの場合は
#        http://www.microsoft.com/downloads/details.aspx?FamilyID=a5c84275-3b97-4ab7-a40d-3802b2af5fc2&displaylang=en