Kim, Yi-Chul kimarx

## euler-55.scm
#!/usr/local/bin/gosh

;;; Last Update: 2010-10-09 00:01+09:00.

;;; Project Euler - Problem-55:
;;; http://projecteuler.net/index.php?section=problems&id=55

;;; Kim, Yi-Chul < kimarx@gmail.com >

(use srfi-1)

## smart_nytfeed.pl
#!/usr/bin/perl

### Last Update: 2010-10-28 01:32+09:00.

### smart_nytfeed.pl: This script fetches a given Atom feed of NYT and
### reconstructs smarter a RSS feed file from it, however, FTTB, it does not
### fetch any article of NYT's blog.

### Kim, Yi-Chul < kimarx@gmail.com >

## gist:703709
;;;; Binary Function

(use srfi-13)

(define (binary num)
  (string->number
   (string-concatenate
    (map number->string (mod-lis '() num)))))

(define (mod-lis lis num)

## gist:703711
;;;; Binary Function

(use srfi-13)

(define (binary num)
  (string->number
   (string-concatenate
    (map number->string (mod-lis '() num)))))

(define (mod-lis lis num)

## gist:983210
#!/usr/bin/perl

## This script is meant to display examples of sentence scraped from certain web
## pages.
## Last Update: 2011-05-21 00:48+09:00.
## Kim, Yi-Chul <kimarx@gmail.com>


use strict;
use warnings;

## creole.pl
# Blosxom Plugin: creole
# Author: Kim, Yi-Chul
# Last Update: 2011-11-14 01:04+09:00.

# This blosxom plugin is based on text_hatena_rev.

# Probably you need to rename meta plugin in order to use this plugin.
# example: 'mv meta 2meta'.

# If you use Emacs, it will be better to visit this Emacs Wiki's page.

## RealURL.pm
package RealURL;
use Moose;

has 'shorturi' => ( is => 'rw', );

__PACKAGE__->meta->make_immutable();

no Moose;

use LWP::Simple;

## gist:1383074
#!/usr/bin/perl
use strict;
use warnings;
use utf8;

package Net::Fortune;
use Any::Moose;
use XML::Simple;
use LWP::Simple;
use Encode;

## gist:1393548
<html>
  <head>
    <meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
    <style type="text/css">
      <!--
          * {
          	margin: 0;
            padding: 0;
          }
          body { background-color: rgb(239, 239, 239); }

## gist:1483498
# Bash Prompt
PS1='\u@\h \W: '

HISTSIZE=5000
HISTFILESIZE=5000

export XMODIFIERS=@im=uim-skk

export PATH="$PATH:/usr/games"
	#!/usr/local/bin/gosh

	;;; Last Update: 2010-10-09 00:01+09:00.

	;;; Project Euler - Problem-55:
	;;; http://projecteuler.net/index.php?section=problems&id=55

	;;; Kim, Yi-Chul < kimarx@gmail.com >

	(use srfi-1)
	#!/usr/bin/perl

	### Last Update: 2010-10-28 01:32+09:00.

	### smart_nytfeed.pl: This script fetches a given Atom feed of NYT and
	### reconstructs smarter a RSS feed file from it, however, FTTB, it does not
	### fetch any article of NYT's blog.

	### Kim, Yi-Chul < kimarx@gmail.com >
	;;;; Binary Function

	(use srfi-13)

	(define (binary num)
	(string->number
	(string-concatenate
	(map number->string (mod-lis '() num)))))

	(define (mod-lis lis num)
	#!/usr/bin/perl

	## This script is meant to display examples of sentence scraped from certain web
	## pages.
	## Last Update: 2011-05-21 00:48+09:00.
	## Kim, Yi-Chul <kimarx@gmail.com>


	use strict;
	use warnings;
	# Blosxom Plugin: creole
	# Author: Kim, Yi-Chul
	# Last Update: 2011-11-14 01:04+09:00.

	# This blosxom plugin is based on text_hatena_rev.

	# Probably you need to rename meta plugin in order to use this plugin.
	# example: 'mv meta 2meta'.

	# If you use Emacs, it will be better to visit this Emacs Wiki's page.
	package RealURL;
	use Moose;

	has 'shorturi' => ( is => 'rw', );

	__PACKAGE__->meta->make_immutable();

	no Moose;

	use LWP::Simple;
	<html>
	<head>
	<meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
	<style type="text/css">
	<!--
	* {
	margin: 0;
	padding: 0;
	}
	body { background-color: rgb(239, 239, 239); }
	# Bash Prompt
	PS1='\u@\h \W: '

	HISTSIZE=5000
	HISTFILESIZE=5000

	export XMODIFIERS=@im=uim-skk

	export PATH="$PATH:/usr/games"