| (set-language-environment 'Chinese-GB) | |
| (set-keyboard-coding-system 'utf-8) | |
| (set-clipboard-coding-system 'utf-8) | |
| (set-terminal-coding-system 'utf-8) | |
| (set-buffer-file-coding-system 'utf-8) | |
| (set-default-coding-systems 'utf-8) | |
| (set-selection-coding-system 'utf-8) | |
| (modify-coding-system-alist 'process "*" 'utf-8) | |
| (setq default-process-coding-system '(utf-8 . utf-8)) | |
| (setq-default pathname-coding-system 'utf-8) |
| public boolean hkid_check_digit(String id){ | |
| if (id.matches("[A-Z]\\d{6}-[\\d|A]") == false) { | |
| msgMgr.reportException("身份証號格式錯誤，X123456-X", true); | |
| return false; | |
| } | |
| /* | |
| * check digit, A=10, B=11, ... Z=35 | |
| * the 9th weight == 36, google: another one is 58. | |
| * |
| import scala.language.reflectiveCalls | |
| import java.io.{File, FileWriter} | |
| def using[A <: {def close() : Unit}, B](resource: A)(f: A => B): B = | |
| try f(resource) finally resource.close() | |
| def writeStringToFile(file: File, data: String, appending: Boolean = false) = | |
| using(new FileWriter(file, appending))(_.write(data)) |
| import scala.reflect.runtime.{universe => ru} | |
| import ru._ | |
| def getProperties[T: TypeTag]: Iterable[String] = { | |
| val tpe = ru.typeTag[T].tpe | |
| tpe.decls.collect { | |
| case m: MethodSymbol if m.isCaseAccessor => m.name.toString | |
| } | |
| } |
| import java.sql._ | |
| def resultSetItr[T](res: ResultSet)(f: ResultSet => T): Stream[T] = { | |
| new Iterator[T] { | |
| def hasNext = res.next() | |
| def next() = f(res) | |
| }.toStream | |
| } | |
| def query[T](conn: Connection, sql: String)(f: ResultSet => T): List[T] = { |
| def lift[A, B, C, D](f: Function3[A, B, C, D]): Function3[Option[A], Option[B], Option[C], Option[D]] = | |
| (oa: Option[A], ob: Option[B], oc: Option[C]) => | |
| for (a <- oa; b <- ob; c <- oc) yield f(a, b, c) | |
| def lift[A, B, C, D](f: (A, B, C) => D): (Option[A], Option[B], Option[C]) => Option[D] = | |
| (oa: Option[A], ob: Option[B], oc: Option[C]) => | |
| for (a <- oa; b <- ob; c <- oc) yield f(a, b, c) | |
| val createConnection = lift(java.sql.DriverManager.getConnection) |
替换上你的login_token，域名ID，记录ID等参数，就可以运行了。 会在后台一直运行，每隔30秒检查一遍IP，如果修改了就更新IP。
获得domain_id可以用curl
curl -k https://dnsapi.cn/Domain.List -d "login_token=xxxxx,xxxxxxxx&format=json" | python -m json.tool
获得record_id类似
curl -k https://dnsapi.cn/Record.List -d "login_token=xxxxx,xxxxxxxx&domain_id=xxx&format=json" | python -m json.tool
| ((comparator <) 1 4) | |
| ;= -1 | |
| ((comparator <) 4 1) | |
| ;= 1 | |
| ((comparator <) 4 4) | |
| ;= 0 |
| user=> (type []) | |
| clojure.lang.PersistentVector | |
| user=> (type '()) | |
| clojure.lang.PersistentList$EmptyList | |
| user=> (type [1]) | |
| clojure.lang.PersistentVector | |
| user=> (type '(1)) | |
| clojure.lang.PersistentList | |
| user=> (= [] '()) | |
| true |
| (defn prime? [n] | |
| (cond | |
| (== 1 n) false | |
| (== 2 n) true | |
| (even? n) false | |
| :else (->> (range 3 (inc (Math/sqrt n)) 2) | |
| (filter #(zero? (rem n %))) empty?))) | |
| (time (prime? 1125899906842679)) | |
| ; "Elapsed time: 2181.014 msecs" |
