Skip to content

Instantly share code, notes, and snippets.

View ldionmarcil's full-sized avatar

Louis Dion-Marcil ldionmarcil

View GitHub Profile
@ldionmarcil
ldionmarcil / gist:5675380
Created May 30, 2013 02:19
common lisp's emit-html example
=> (emit-html '(:html (:head (:title "Hello")) (:body (:p "Hello,world!"))))
<html>
<head>
<title>Hello</title>
</head>
<body>
<p>Hello,world!</p>
</body>
</html>
@ldionmarcil
ldionmarcil / gist:5001885
Created February 21, 2013 03:51
wol.sh
: echo ${hours:="16"}
: echo ${start_minutes:="25"} #30
: echo ${end_minutes:="40"} #40
: echo ${last_day_found:="0"}
: echo ${phone_mac:="5c:0a:5b:11:17:bb"}
: echo ${box_mac:="bc:ae:c5:62:df:20"}
: echo ${interval:="0"}
while [ true ]
do
(defun rs-poll ()
(interactive)
(when (not (boundp 'rs-poll-time))
(defvar rs-poll-time 1)
(defvar rs-poll-votes 1))
(let ((buffer (url-retrieve-synchronously "http://services.runescape.com/m=poll/rs2007-server"))
(lst)
(percent))
(with-current-buffer buffer
(save-excursion
public void testPlayerLowerTest(){
player1.setScore(5);
player2.setScore(3);
Assert.assertTrue(player1.compareTo(player2)==-1);
}
public void testPlayerSameScoreTest(){
player1.setScore(4);
player2.setScore(4);
Assert.assertTrue(player1.compareTo(player2)==0);
xvsbnbs