もう縮まらない。。。

【初稿】137バイト
(\\ は一行で書いていることを示しています。)

k#n|k>n="_"|1>0=show k
f n=div(n+4)4-0^mod n 4
u=unwords
main=do n<-readLn;putStr$u\\
[u$map(#n)[4*f n+2-a,a-1,a,4*f n+1-a]|a<-[2,4..2*f n]]

こういう問題は、解くだけなら。。。

f l=last l:init l;main=interact$unlines.f.lines

一応、サーバ通ったので、コードを記述。

\\ は、行がつながっていることを意味しています。

import Numeric
g n i
 |i >=0 && i <= 9 =toEnum(fromEnum '0'+i)
 |1>0=toEnum(fromEnum 'A'+i-10)
n#a=showIntAtBase n(g n)a""
f x|length x==1=' ':x|1>0=x
main=do n<-readLn;mapM putStrLn$map((' ':).unwords)\\
[[f(n#(a*b))|a<-[1..n-1]]|b<-[1..n-1]]

【修正後】

\\ は、行がつながっていることを意味しています。

import Numeric
g n i|i>=0&&i<=9=toEnum(fromEnum '0'+i)|1>0=toEnum(fromEnum 'A'+i-10)
f x|length x==1=' ':x|1>0=x
main=do n<-readLn;mapM putStrLn$map((' ':).unwords)\\
[[f(showIntAtBase n(g n)(a*b)"")|a<-[1..n-1]]|b<-[1..n-1]]

まだまだ縮みそうだが、厳しいなあ。。。

結城浩氏のデザインパターン入門のサンプルがようやく動いた。

なかなか追いつかないけどね。。。
これから、解読だー

user@localhost ~/java_dir/prototype $ ls -F
Main.java*  MessageBox.java*  UnderlinePen.java*  framework/
user@localhost ~/java_dir/prototype $ ls -F framework/
Manager.java*  Product.java*
user@localhost ~/java_dir/prototype $ javac *.java framework/*.java
Note: framework/Manager.java uses unchecked or unsafe operations.
Note: Recompile with -Xlint:unchecked for details.
user@localhost ~/java_dir/prototype $ java Main
"Hello, world."
 ~~~~~~~~~~~~~
*****************
* Hello, world. *
*****************
/////////////////
/ Hello, world. /
/////////////////

【java hello world】で検索。

http://www.hellohiro.com/appli.htm

ちょっと戸惑ったが、Gentooで実行できた♪

user@localhost ~/java_dir/javahello $ javac HelloWorldApp.java
user@localhost ~/java_dir/javahello $ java HelloWorldApp
Hello World

つうことで、明日はJAVAで簡単なパターンでも
やってみるとするか。

しばらくは、これを素振りすることにするか。。。

public class Main {
    public static void main(String[] args){
	System.out.println("Hello World");
    }
}