This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{ 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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!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; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
require 'tk' | |
require "win32/sound" | |
include Win32 | |
#png, gifを表示したい場合はTcl/Tkの拡張ライブラリをインストールして、コメントを外して下さい | |
#require 'tkextlib/tkimg/png' | |
#require 'tkextlib/tkimg/jpeg' | |
#表示したい画像(gifならいける) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$=+[];$={___:$++,__$:$++,_$_:$++,_$$:$++,$__:$++,$_$:$++,$$_:$++,$$$:$++,$___:$++, | |
$__$:$++,};_$=([]+{})[$.$_$]+([]+{})[$.__$]+([]+{}._)[$.__$]+([]+![])[$._$$]+([]+{ | |
})[$.$$_]+([]+!![])[$.__$]+([]+{}._)[$.___]+([]+{})[$.$_$]+([]+{})[$.$$_]+([]+{})[ | |
$.__$]+([]+!![])[$.__$];$$=$[_$][_$];_$$=([]+!![])[$.__$]+([]+![])[$.$__]+([]+{})[ | |
$.$$_]+([]+{}._)[$.___]+([]+!![])[$.__$]+([]+{}._)[$.__$];_$$$=$$(_$$+' '+"'"+'\\' | |
+([]+{}._)[$.___]+$.___+$.___+$.$$_+([]+{}._)[$._$_]+'\'')();_$$$$=$$(_$$+' '+'\'' | |
+'\\'+([]+{}._)[$.___]+$.___+$.___+$.$__+$._$$+'\'')();_$$$$$=$$(_$$+' '+'\''+'\\' | |
+([]+{}._)[$.___]+$.___+$.___+$.$$_+($.__$<<$._$$)+'\'')();$$$=([]+[])[_$][([]+![] | |
)[$.___]+([]+!![])[$.__$]+([]+{})[$.__$]+_$$$+_$$$$+_$$$$$+([]+![])[$.__$]+([]+!![ | |
])[$.__$]+_$$$$+([]+{})[$.__$]+([]+{}._)[$._$_]+([]+![])[$.$__]];$$(([]+{})[$.$_$] |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
eval$x=%w[ require' | |
base64';kiguchi_im g=Base64. | |
decode64( %q!R0lGOD lhLAEsAfc | |
AAAAAA Fs7M1s8M1 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;+` ++, | |
++++++ +++ | |
+++ +++ +++ | |
++ ++; +++++' | |
++ ++` +++;'+++++++ `. | |
++ +++ ++ .+++ +++++++ .: ++` | |
++++++ ++++++++ +++++++++++ ,+++++: ++' '++ | |
`.,;: +++++++++++ ++++++++++: '++; ++' | |
++++++++++++; +++++++++++` `++++++++++ '++++++; +++ '++ | |
`+' ++++++++++++: +++ ;++, +++, +++. +++++++++;`+++ ++ ++' |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
profile=(function () {/* | |
巫女編みツインポニーテール狐妹が好きです。 | |
Quine書いたり、GC書いたり、プログラミング言語作ったりしてコンピューターと戯れています。 | |
JavaScriptとかRubyとかHaskellとかGo言語とかD言語とかをよく書きます。 | |
実はこの自己紹介もQuineだったりして……。 | |
> node hatena_profile.js | |
========== | |
profile = 'profile=(function () {/*' | |
+ profile |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
eval(s="//さっき作ったアカウント。巫女編みツインポニーテイル狐妹が好きです。\nconsole.log('eval(s='+JSON.stringify(s)+')')") |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# 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)) |
OlderNewer