boxp

(reify Plugin
  (get-name [this] "美容室で〜す^^")
  (on-status [this status] nil)
  (on-rt [this status] nil)
  (on-unrt [this status] nil)
  (on-fav [this source target status] nil)
  (on-unfav [this source target status] nil)
  (on-del [this status] nil)
  (on-follow [this source user] nil)
  (on-dm [this dm] nil)

boxp

(do 
  (require '[gntp :as gp]
           '[clojure.java.io :as io])
  (let [growler (gp/make-growler "Grimoire")
        notifier (if (try (.. @main-stage isShowing) 
                       (catch Exception e nil))
                   (fn [& _] nil)
                   (growler :default {:icon (io/input-stream (io/resource "alice.png"))}))]
    (reify Plugin
      (get-name [this] nil)

boxp

(reify Plugin
  (get-name [this] nil)
  (on-status [this status] nil)
  (on-rt [this status] nil)
  (on-unrt [this status] nil)
  (on-fav [this source target status] nil)
  (on-unfav [this source target status] nil)
  (on-del [this status] nil)
  (on-follow [this source user] nil)
  (on-dm [this dm] nil)

boxp

--ちんちんっぽいことするやつ
import System.Random
chimpo :: String -> String
randomString :: String -> String

chimpo c = if take 4 c == "ABCDE"
		then c ++ ("なんか終わりました" ++ (show (length c )))
		else chimpo (randomString c)

randomString s = getStdRandom(randomR(0,4)) >>= \r -> case r of

boxp

; リプ爆用関数
(defn little-region
  "槍を持つたくさんの人形達が，標的に向かって突進して行く
   (複数のアカウントから特定のツイート・ユーザーに対して
   同じリプライを送る)
  
   例1：(little-region @twitters 'marisa' 'hello')
   全てのアカウントから@marisaに向けてhelloと呟く
  
   例2：(little-region (-> @twitters (dissoc :syanhai1))

boxp

#include<stdio.h>
#include<stdlib.h>

typedef struct cell {
  int car;
  struct cell *cdr;
} _cell;

struct cell *cons(int car, struct cell *cdr) {

boxp

#include <stdio.h>

#define QUEUESIZE 3000

struct Queue {
  int buffer[QUEUESIZE];
  int length;
};

int enqueue(struct Queue *queue, int data) {

boxp

#include <stdio.h>

#define STACKSIZE 3000

struct Stack {
  int buffer[STACKSIZE];
  int length;
};

int push(struct Stack *stack, int data) {

boxp

enchant();

/* global vars */
const WIDTH = 320;
const HEIGHT = 480;

/* initial function */
window.onload = function () {
	var game = new Game(WIDTH, HEIGHT);

boxp

(do
  (import '(javafx.scene.media AudioClip))

  (let [yo (AudioClip. "http://archbox.dip.jp/res/Yo.mp3")]
    (reify Plugin
      (get-name [this] "Yo")
      (on-status [this status]
        (if (re-find #"yo|Yo|YO" (. status getText))
          (. yo play)))
      (on-reply [this status] nil)