I hereby claim:
- I am ekd123 on github.
- I am ekd123 (https://keybase.io/ekd123) on keybase.
- I have a public key whose fingerprint is EB9B 2ABA 008A B0C5 5590 A315 9BE0 1CF3 26ED A05F
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
| public class Rational { | |
| private long n; | |
| private long d; | |
| public Rational (long numerator, long denominator) { | |
| n = numerator; | |
| d = denominator; | |
| } | |
| public long gcd(long p, long q) { | |
| if (q == 0) return p; | |
| long r = p % q; |
| #!/usr/bin/env tcl | |
| package require Tk | |
| package require http | |
| set universes [encoding convertfrom utf-8 [http::data [http::geturl http://ekd123.org/map.tcl]]] | |
| set universe {} | |
| set lastIDs {} | |
| wm title . "地圖" | |
| ttk::combobox .switcher -values [dict keys $universes] -state readonly |
| package require Tk | |
| package require tkdnd | |
| pack [ttk::label .drop -text "拖放到此處"] -fill both -expand 1 | |
| pack [ttk::button .browse -text "或選擇文件" -command chooseFileToUpload] | |
| tkdnd::drop_target register .drop * | |
| bind .drop <<Drop>> { | |
| upload %D | |
| } |
| pack [text .input] -fill both -expand 1 | |
| pack [ttk::button .start -text "開始" -command { | |
| set contents [.input get 1.0 end] | |
| .input delete 1.0 {end -1c} | |
| .input insert 1.0 [join [lmap char [split $contents {}] { | |
| switch -exact -- $char { | |
| a {return -level 0 a} | |
| b {return -level 0 b} | |
| c {return -level 0 c} | |
| d {return -level 0 d} |
| set seconds {} | |
| set timetext 00:00:00 | |
| set id {} | |
| ttk::label .time -textvariable timetext -font {Arial 32} | |
| ttk::button .reset -text 清零 -command reset | |
| ttk::button .start -text 計時 -command { | |
| reset | |
| set seconds -1 | |
| setSeconds | |
| } |
| #!/usr/bin/env tclsh | |
| package require Tk | |
| pack [ttk::label .l1 -text "在下面的框中輸入要檢查的文本"] -fill x | |
| pack [text .input] -fill both -expand 1 | |
| pack [ttk::label .l2 -text "結果"] -fill x | |
| pack [text .output] -fill both -expand 1 | |
| pack [ttk::button .start -text "開始" -command startFind] -side right | |
| proc charIsChinese {ch} { |
| (setf cl-xmppgame:*domain* "xmppdomain.org") | |
| (setf cl-xmppgame:*username* "bot") | |
| (setf cl-xmppgame:*password* "your password here") | |
| (require :drakma) | |
| (require :cl-json) | |
| (require :bordeaux-threads) | |
| (cl-xmppgame:add-command-handler | |
| "喵" |
| #!/bin/sh | |
| echo Installing NekoVM for 64-bit users | |
| wget http://s.dropcanvas.com/1000000/173000/172490/nekovm-2.0.0-1.fc19.x86_64.rpm -O /tmp/nekovm.rpm | |
| yum localinstall /tmp/nekovm.rpm | |
| unlink /tmp/nekovm.rpm | |
| echo Installing fpack | |
| wget https://github.com/fpack/fpack/releases/download/v1.0/fpack.n -O /tmp/fpack.n | |
| nekotools boot /tmp/fpack.n | |
| mv /tmp/fpack /usr/bin/fpack |