Skip to content

Instantly share code, notes, and snippets.

View kunst1080's full-sized avatar

kunst1080 kunst1080

13 followers · 8 following
View GitHub Profile
@kunst1080
kunst1080 / ans1.c
Created January 8, 2015 13:07
Answers for POH4 (パイザオンラインハッカソン4・Lite エン恋 POH4Lite : https://paiza.jp/poh/enkoi)
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
int main() {
char buf[15], *token1;
int i, count, n, sum;
sum = 0;
fgets(buf, sizeof(buf), stdin);
@kunst1080
kunst1080 / server
Last active August 29, 2015 14:15
simple server
#!/usr/local/bin/python
import socket
import os
from subprocess import Popen, PIPE
PORT_NO = 8080
HOSTNAME = ''
SCRIPT = "listen"
def main():
@kunst1080
kunst1080 / packages.config
Last active August 29, 2015 14:18
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="lhaplus" />
<package id="windowslivemail" />
<package id="adobereader" />
<package id="googlejapaneseinput" />
<package id="git" />
<package id="google-chrome-x64 " />
<package id="firefox" />
@kunst1080
kunst1080 / gist:388fdea590b7bbf99e7f
Last active October 20, 2015 05:29
PlayFramework学習のための関連のリンクまとめ
@kunst1080
kunst1080 / FizzBuzz1Liner.bat
Last active December 14, 2015 03:39
コマンドプロンプトワンライナーでFizzBuzz ( ref: http://kunst1080.hatenablog.com/entry/2013/02/24/140748 ) （コマンドプロンプト芸）
for /f "usebackq tokens=1,2" %a in (`"for /L %n in (1,1,100) do @set /a (10-%n%3)/10 && set/a (10-%n%5)/10 && echo %n && echo."`) do @(if %a==11 (echo FizzBuzz) else if %a==10 (echo Fizz) else if %a==01 (echo Buzz) else (echo %b))
@kunst1080
kunst1080 / FizzBuzz2.bat
Last active December 14, 2015 05:49
余剰計算なしのFizzBuzz ( ref: http://kunst1080.hatenablog.com/entry/2013/02/26/224615 )
@echo off
REM dels
del Seq.txt Fizz.txt Buzz.txt FizzBuzz.txt
del merge.txt merge.pass.txt merge.pass.sort.txt
del out.txt
REM sequences
for /L %%i in (1,1,100) do @echo %%i 4 %%i>>Seq.txt
for /L %%i in (3,3,100) do @echo %%i 3 Fizz>>Fizz.txt
@kunst1080
kunst1080 / PrintScreen.vbs
Last active December 14, 2015 14:19
VBScriptから Printscreen・Alt+Printscreen するサンプル
Set SHELL = WScript.CreateObject("WScript.Shell")
Set Excel = WScript.CreateObject("Excel.Application")
'KEY CODE
Const VK_SNAPSHOT = &H2C
Const VK_MENU = &H12
Sub PrintScreen
'PrintScreen On
Call API_keybd_event(VK_SNAPSHOT,0,1,0)
@kunst1080
kunst1080 / def-concat_commands.sh
Last active December 14, 2015 21:29
シェルスクリプトで、複数コマンドの実行結果を結合（AND OR XOR)するシェル関数
#!/bin/bash
soniq(){
sort | uniq $*
}
concat_commands() {
# $1 … method ( and | or | xor )
# $2 … command
# $3 … command
local _arg=""
@kunst1080
kunst1080 / stat.sh
Last active December 15, 2015 04:39
ざっくり、statのようなものを作成。 Solaris環境でタイムスタンプの確認にstatしたかった。
#!/bin/sh
Usage(){
cat << __EOT__ >&2
ファイルのステータスを確認します。
Usage:`basename $0` ファイル名
【使用例】
$ `basename $0` file.txt
@kunst1080
kunst1080 / JSArray2VBArray.js
Last active December 15, 2015 10:28
JScriptにて、VBArrayを生成する関数。 JScriptからExcelを操作する際に使用するとよいかも。
function JSArray2VBArray(arr) {
var vbs = new ActiveXObject("ScriptControl");
vbs.Language = "VBScript";
vbs.AddCode(
"Function makeArray\n"
+ "makeArray = Array(" + arr + ")\n"
+ "End Function\n");
var ret = vbs.Run("makeArray");
return ret;
}