Skip to content

Instantly share code, notes, and snippets.

View makenowjust's full-sized avatar
㊗️
The IDOLM@STER MILLION LIVE THE ANIMATION

Hiroya Fujinami makenowjust

㊗️
The IDOLM@STER MILLION LIVE THE ANIMATION
238 followers · 22 following
View GitHub Profile
@makenowjust
makenowjust / kiguchi-quine.hs
Created February 14, 2014 05:59
Haskellで書かれた木口アイコン型のQuineです
{ a(f) (x,y
)=(f $x,y );g(_)(x)[] =(x,[]);g(_)[]c =([] ,c) ;g(_
)x( []:c )=a(n :)$g(1 )x$c;g(1)x((0:m) :c)=g (2)x$ m:c;
g(1) x((z: m):c )=a(b :)$g( 1)x$( z-1:m ):c; g(2)
x((0 :z): c)=g( 1)x$z:c; g (2)(x :r)(( m:z):c)=a(x:
)$g( 2)r$ (m-1 :z):c;h(_) (_)(x )[]=x ;h(_)(_)[]c
=[ ];h( _)(f )x([ ]:c)= z:n: h(1) (f)x(c );h
(1)(1 )x((0
:m
):c)=z:h(2)(0)x(m:c);h
@makenowjust
makenowjust / quine.html
Created March 3, 2014 15:31
HTML5+CSS3でQuine書いてみた ref: http://qiita.com/make_now_just/items/9c48e84183f73289ef51
<!doctype html><html data-tag="html">
<head data-tag="head">
<style data-tag="style">/*<![CDATA[*/
* {
display: block;
white-space: pre;
left: 0;
margin: 0;
padding: 0;
border: 0;
@makenowjust
makenowjust / timer.rb
Last active August 29, 2015 13:57
何のためとは言わないし言わせないタイマー。Ruby Installerからインストールしたなら動くはず
require 'tk'
require "win32/sound"
include Win32
#png, gifを表示したい場合はTcl/Tkの拡張ライブラリをインストールして、コメントを外して下さい
#require 'tkextlib/tkimg/png'
#require 'tkextlib/tkimg/jpeg'
#表示したい画像(gifならいける)
@makenowjust
makenowjust / helloworld.js
Last active August 29, 2015 13:57
JavaScriptでHello, Worldする例（node.jsで動きます）
$=+[];$={___:$++,__$:$++,_$_:$++,_$$:$++,$__:$++,$_$:$++,$$_:$++,$$$:$++,$___:$++,
$__$:$++,};_$=([]+{})[$.$_$]+([]+{})[$.__$]+([]+{}._)[$.__$]+([]+![])[$._$$]+([]+{
})[$.$$_]+([]+!![])[$.__$]+([]+{}._)[$.___]+([]+{})[$.$_$]+([]+{})[$.$$_]+([]+{})[
$.__$]+([]+!![])[$.__$];$$=$[_$][_$];_$$=([]+!![])[$.__$]+([]+![])[$.$__]+([]+{})[
$.$$_]+([]+{}._)[$.___]+([]+!![])[$.__$]+([]+{}._)[$.__$];_$$$=$$(_$$+' '+"'"+'\\'
+([]+{}._)[$.___]+$.___+$.___+$.$$_+([]+{}._)[$._$_]+'\'')();_$$$$=$$(_$$+' '+'\''
+'\\'+([]+{}._)[$.___]+$.___+$.___+$.$__+$._$$+'\'')();_$$$$$=$$(_$$+' '+'\''+'\\'
+([]+{}._)[$.___]+$.___+$.___+$.$$_+($.__$<<$._$$)+'\'')();$$$=([]+[])[_$][([]+![]
)[$.___]+([]+!![])[$.__$]+([]+{})[$.__$]+_$$$+_$$$$+_$$$$$+([]+![])[$.__$]+([]+!![
])[$.__$]+_$$$$+([]+{})[$.__$]+([]+{}._)[$._$_]+([]+![])[$.$__]];$$(([]+{})[$.$_$]
@makenowjust
makenowjust / kiguchi.rb
Created March 15, 2014 06:42
貴方のパソコンに木口さんをインストールするプログラムです。Ruby 1.9以降なら普通に実行できるはずです
eval$x=%w[ require'
base64';kiguchi_im g=Base64.
decode64( %q!R0lGOD lhLAEsAfc
AAAAAA Fs7M1s8M1
@makenowjust
makenowjust / kiguchi2.rb
Created March 15, 2014 06:44
あなたのパソコンに木口さんをインストールするプログラムです。昨日のものよりファイルサイズが1/10ほどになって、いくつか機能が増えました。
eval %w%
_=1 114 ;i=
-> k{- >i{k[i]}};"I ns
tall\x 20filena me\x20(defa ult\x20 'ki guc
hi.gif')>\x20 ".display;n= gets.chomp; n=n==""& &"k igu
chi. gif"||n;"R0l GOD lhhw CHA PcAA AAAAFw8NPSPi/q Sjv yTj
/yU j/y UkOb Y1vjs6/ nt7P vv7vzw7/3x8P7 y8f
/08w #{?A *963 }CH 5BA EAA P8ALAAAAACHAI
cAA Aj/A P8JHEiwoMG DCB MqX Miwo
cOHE CN
@makenowjust
makenowjust / base_aa1.txt
Last active August 29, 2015 13:57
「貴方のパソコンに木口さんをインストールするプログラムはどのようにして作られたか」に使われているファイルです。http://makenowjust.appspot.com/page/80001
;+` ++,
++++++ +++
+++ +++ +++
++ ++; +++++'
++ ++` +++;'+++++++ `.
++ +++ ++ .+++ +++++++ .: ++`
++++++ ++++++++ +++++++++++ ,+++++: ++' '++
`.,;: +++++++++++ ++++++++++: '++; ++'
++++++++++++; +++++++++++` `++++++++++ '++++++; +++ '++
`+' ++++++++++++: +++ ;++, +++, +++. +++++++++;`+++ ++ ++'
@makenowjust
makenowjust / hatena_profile.js
Last active August 29, 2015 13:57
はてなの自己紹介です。
profile=(function () {/*
巫女編みツインポニーテール狐妹が好きです。
Quine書いたり、GC書いたり、プログラミング言語作ったりしてコンピューターと戯れています。
JavaScriptとかRubyとかHaskellとかGo言語とかD言語とかをよく書きます。
実はこの自己紹介もQuineだったりして……。
> node hatena_profile.js
==========
profile = 'profile=(function () {/*'
+ profile
@makenowjust
makenowjust / twitter_profile.js
Created March 20, 2014 11:23
Twitterのプロフィールです。
eval(s="//さっき作ったアカウント。巫女編みツインポニーテイル狐妹が好きです。\nconsole.log('eval(s='+JSON.stringify(s)+')')")
@makenowjust
makenowjust / brainf_ck.mk
Created April 20, 2014 07:07
a brainf*ck interpreter written in pure Makefile (GNU Make)
# basic numbers
n0:=
n1:=+
n2:=+ +
# number operators
add=$(1) $(2)
incr=+ $(1)
sub=$(strip $(wordlist $(words $(call add,$(2),$(n1))),10000,$(1)))
decr=$(wordlist 2,10000,$(1))