ser1zw’s gists

ser1zw / prime-factorization-test.lisp

Last active August 29, 2015 14:15

	;; -- mode: lisp; coding: utf-8 --

	;; --------------------------------------------------------------------------------
	;; 問題：
	;; 　210 = 2×3×5×7
	;; 整数を素因数分解したとき、上のような、元の数の「各桁の和」と
	;; 素因数分解した「×の個数」が等しくなる整数を求めるプログラムを
	;; 書いてください
	;; https://codeiq.jp/ace/joboffer_apli/q1237?dspn=RHuDm3lalVgWKiDtlJz7oTn0beWgAuPxV4vDWcWiBCBKvMnuVBMQcJTdHL8vKXSh
	;; --------------------------------------------------------------------------------

ser1zw / poh_vol4_1.rb

Created December 20, 2014 19:02

paiza online hackathon vol.4 Lite https://paiza.jp/poh/enkoi

	# https://paiza.jp/poh/enkoi-second/a19c27e5
	s = 0
	gets
	s += $_.to_i while gets
	puts s

ser1zw / poh_vol1.rb

Created December 20, 2014 18:57

paiza online hackathon vol.1 https://paiza.jp/poh/ec-campaign

	# http://paiza.jp/poh/ec-campaign/result/56d00e8d56e2c7b998e1f766a04e9acf
	data = $stdin.read.split(/\s/).map(&:to_i)
	num_items, campaign_days = data.shift, data.shift
	item_prices, target_prices = data.shift(num_items).sort!, data
	target_prices.each { \|target_price\|
	h = 0
	l = num_items - 1
	nearest_price = 0
	while h < l
	s = item_prices[h] + item_prices[l]

ser1zw / memcached-manipulator.sh

Created July 28, 2014 20:01

memcached-manipulator.sh - Memcached manipulation tool

	#!/bin/bash
	#
	# memcached manipulator
	#

	MEMCACHED_SERVER=localhost:11211

	# echo CMD \| memcached_send_cmd
	memcached_send_cmd() {
	if [ -p /dev/stdin ]; then

ser1zw / imap-test.go

Created June 2, 2014 12:53

Go IMAP sample

	package main

	import (
	"fmt"
	"log"
	"os"
	"strings"
	"time"
	"io/ioutil"
	"strconv"

ser1zw / Q7

Created April 5, 2014 11:13

for f1 in `ls * | sort`; do for f2 in `ls * | grep -v $f1`; do echo $f1 $f2; done; done | awk '{if(TABLE[$1$2]!=1&&TABLE[$2$1]!=1) { TABLE[$1$2]=1; TABLE[$2$1]=1; print $0} }'

ser1zw / remove_contours.rb

Created March 23, 2014 08:19

	require 'opencv'
	include OpenCV

	w1 = GUI::Window.new("All")
	w2 = GUI::Window.new("Removed")
	# https://github.com/ruby-opencv/ruby-opencv/blob/master/examples/contours/rotated-boxes.jpg
	out1 = CvMat.load("rotated-boxes.jpg", 1)
	out2 = out1.clone

	gray = out1.BGR2GRAY.threshold(200, 255, :binary)

ser1zw / FaceDetection.cpp

Created March 23, 2014 07:18

	#include <iostream>

	#include "opencv2/objdetect/objdetect.hpp"
	#include "opencv2/highgui/highgui.hpp"
	#include "opencv2/imgproc/imgproc.hpp"

	int main(int argc, char *argv[]) {
	cv::String faceCascadeFileName = "./cascade.xml";
	cv::String windowName = "Face detection";
	cv::String imageFileName = "./lenna.png";

ser1zw / extconf.rb

Created January 24, 2014 11:28

	#!/usr/bin/env ruby
	require "mkmf"

	def cv_version_suffix(incdir)
	major, minor, subminor = nil, nil, nil
	open("#{incdir}/opencv2/core/version.hpp", 'r') { \|f\|
	f.read.lines.each { \|line\|
	major = $1.to_s if line =~ /\A#define\s+(?:CV_VERSION_EPOCH\|CV_MAJOR_VERSION)\s+(\d+)\s*\Z/
	minor = $1.to_s if line =~ /\A#define\s+(?:CV_VERSION_MAJOR\|CV_MINOR_VERSION)\s+(\d+)\s*\Z/
	subminor = $1.to_s if line =~ /\A#define\s+(?:CV_VERSION_MINOR\|CV_SUBMINOR_VERSION)\s+(\d+)\s*\Z/

ser1zw / find_contours_sample.rb

Created November 5, 2013 16:47

A sample code of CvMat#find_contours to get multiple polygons in an image.

	require 'opencv'

	# Prepare a sample image (I used an image in this article: http://opencv-srf.blogspot.se/2011/09/object-detection-tracking-using-contours.html)
	# $ wget http://4.bp.blogspot.com/-r36OpIdjPWE/UDPMJ2kPFZI/AAAAAAAAAPs/-eO4W_XeDo0/s1600/FindingContours.png
	cvMat = OpenCV::CvMat.load('FindingContours.png', 0)
	img = cvMat.GRAY2BGR

	polygons = []

	# CvMat#find_contours returns CvChain when the mode is CV_CHAIN_CODE, or returns CvContour when the mode is one of the others.

	#!/usr/bin/env ruby
	require "mkmf"

	def cv_version_suffix(incdir)
	major, minor, subminor = nil, nil, nil
	open("#{incdir}/opencv2/core/version.hpp", 'r') { \|f\|
	f.read.lines.each { \|line\|
	major = $1.to_s if line =~ /\A#define\s+(?:CV_VERSION_EPOCH\|CV_MAJOR_VERSION)\s+(\d+)\s*\Z/
	minor = $1.to_s if line =~ /\A#define\s+(?:CV_VERSION_MAJOR\|CV_MINOR_VERSION)\s+(\d+)\s*\Z/
	subminor = $1.to_s if line =~ /\A#define\s+(?:CV_VERSION_MINOR\|CV_SUBMINOR_VERSION)\s+(\d+)\s*\Z/

ser1zw ser1zw