nixeagle

, 
checkteam: function () {
sys.sendMessage(src, "");
for (var i = 0; i < 6; i+=1) {sys.sendMessage(src, sys.gender(sys.teamPokeGender(src, i)) + " " + sys.ability(sys.teamPokeAbility(src, i)) + " " + sys.nature(sys.teamPokeNature(src, i)) + " " + sys.pokemon(sys.teamPoke(src, i)) + " @ " + sys.item(sys.teamPokeItem(src, i)));
for (var j = 0; j < 4; j++) {sys.sendMessage(src, '- ' + sys.move(sys.teamPokeMove(src, i, j)));}}
sys.sendMessage(src, "");
return;
}
,

nixeagle

(require :cl-irc)
(defpackage #:litht
  (:use #:common-lisp #:cl-irc))

(in-package :litht)

(defvar *connection* nil)

  

nixeagle

#include <stdio.h>

#define TRUE 1
#define FALSE 0

int bubblesort(int *arr, int len)
{
  int i;
  int changed;
  int done = FALSE;

nixeagle

(defun collatz (n)
  (labels ((internal (n lst)
             (cond
               ((= n 1) (cons n lst))
               ((evenp n) (internal (/ n 2) (cons n lst)))
               ((oddp n)
                (internal (+ (* 3 n) 1) (cons n lst))))))
    (reverse (internal n '()))))

nixeagle

use strict;
use Net::IRC;
my $ts      = localtime;

my $irc = new Net::IRC;
print "[$ts] Connecting to IRC..\n";
my $conn = $irc->newconn(Server   => "irc.freenode.net",
             Port     => 6667,
             Nick     => "kazi-bot",
             Ircname  => "kazi-bot",

nixeagle

(setq inferior-lisp-program "sbcl") ; your Lisp system
(add-to-list 'load-path "~/lisp/slime")  ; your SLIME directory
(require 'slime)
(slime-setup '(slime-repl
               slime-fancy-inspector
               slime-asdf
               slime-parse
               slime-autodoc
               slime-references
               slime-sprof