Let's write β

プログラミング中にできたことか、思ったこととか

2012-07-09から1日間の記事一覧

ICPC2011 ProblemB

ちょっと時間がとれないので簡単な物ですみません。 (defun balancingp (str) (let ((ch-list (coerce str 'list))) (labels ((%balancing-p (ch-list stack) (if (char= #\. (car ch-list)) (null stack) (cond ((or (char= #\[ (car ch-list)) (char= #\( …

PKU Common Subsequence

さき程のコードをつかって PKU Common Subsequence http://poj.org/problem?id=1458 (defun create-lcs-table (i j) (make-array `(,(1+ i) ,(1+ j)))) (defun last1 (sequence) (typecase sequence (string (aref sequence (1- (length sequence)))) (list …

LCS With Common Lisp

LispでLCS (defun create-lcs-table (i j) (make-array `(,(1+ i) ,(1+ j)))) (defun last1 (sequence) (typecase sequence (string (aref sequence (1- (length sequence)))) (list (nth (1- (length sequence)) sequence)) (vector (aref sequence (1- (le…

ICPC2005 ProblemF

動的計画法 import java.util.*; public class Gathm { static class Person { int id; List<Integer> freeDays; List<Integer> pieaces; public Person(int id) { this.id = id; this.freeDays = new ArrayList<Integer>(); pieaces = new ArrayList<Integer>(); pieaces.add(id); } void addFre</integer></integer></integer></integer>…

ICPC2006ProblemA

Mysterious Game 破壊的に更新する事になるので、Cでも良いかと。 #include <stdio.h> int main() { int m,n; int map[21][21]; int rbX, rbY; while(1) { scanf("%d",&n); if(n == 0) break; int i; int x,y; //initialize map for(y = 0; y < 21; y++) { for(x = 0;</stdio.h>…