Open Source WEB

2006-08-02 [Haskell] 入試問題(その12)

http://www.i.u-tokyo.ac.jp/edu/course/ci/pdf/ci-2006-programming-2nd.pdf の問題 4-2 最後の問題

-- 4-2

cs42 :: CellSpace
cs42 = take 65 $ concat $ iterate (0:) [0,1]

m42 :: StateFun
m42 = gen 250

a42 :: IO ()
a42 = printTransition 2000 51 $ iterate (extrarule . trans m42) cs42

c0 を特別扱いしたものを適用すると

.#..#...#....#.....#......#.......#........#.........#..........#
#.##.#.#.#..#.#....#.#.....#.#......#.#.......#.#........#.#.........#.
.###.#.#.##.#.#..#.#.#....#.#.#.....#.#.#......#.#.#.......#.#.#........#.#
.####.#.###.#.##.#.#.#..#.#.#.#....#.#.#.#.....#.#.#.#......#.#.#.#.......#.#
.#####.####.###.#.#.##.#.#.#.#..#.#.#.#.#....#.#.#.#.#.....#.#.#.#.#......#.#
.###############.#.###.#.#.#.##.#.#.#.#.#..#.#.#.#.#.#....#.#.#.#.#.#.....#.#
.################.####.#.#.###.#.#.#.#.##.#.#.#.#.#.#..#.#.#.#.#.#.#....#.#
.######################.#.####.#.#.#.###.#.#.#.#.#.##.#.#.#.#.#.#.#..#.#
.#######################.#####.#.#.####.#.#.#.#.###.#.#.#.#.#.#.##.#
.##############################.#.#####.#.#.#.####.#.#.#.#.#.###
################################.######.#.#.#####.#.#.#.#.###
########################################.#.######.#.#.#.###
#########################################.#######.#.#.###
##################################################.#.###
###################################################.###
######################################################
#####################################################
####################################################
###################################################
##################################################
#################################################
################################################
###############################################
##############################################
#############################################
############################################
###########################################
##########################################
#########################################
########################################
#######################################
######################################
#####################################
####################################
###################################
##################################
#################################
################################
###############################
##############################
#############################
############################
###########################
##########################
#########################
########################
#######################
######################
#####################
####################
###################

ほほう.なかなか面白い形ですな. では c0 を特別あつかいしないほうは?

.#..#...#....#.....#......#.......#........#.........#..........#
#.##.#.#.#..#.#....#.#.....#.#......#.#.......#.#........#.#.........#.
.###.#.#.##.#.#..#.#.#....#.#.#.....#.#.#......#.#.#.......#.#.#........#.#
####.#.###.#.##.#.#.#..#.#.#.#....#.#.#.#.....#.#.#.#......#.#.#.#.......#.#.
#####.####.###.#.#.##.#.#.#.#..#.#.#.#.#....#.#.#.#.#.....#.#.#.#.#......#.#.
###############.#.###.#.#.#.##.#.#.#.#.#..#.#.#.#.#.#....#.#.#.#.#.#.....#.#.
################.####.#.#.###.#.#.#.#.##.#.#.#.#.#.#..#.#.#.#.#.#.#....#.#.
######################.#.####.#.#.#.###.#.#.#.#.#.##.#.#.#.#.#.#.#..#.#.
#######################.#####.#.#.####.#.#.#.#.###.#.#.#.#.#.#.##.#.
##############################.#.#####.#.#.#.####.#.#.#.#.#.###.
###############################.######.#.#.#####.#.#.#.#.####
#######################################.#.######.#.#.#.####
########################################.#######.#.#.####
#################################################.#.####
##################################################.####
######################################################
#####################################################
####################################################
###################################################
##################################################
#################################################
################################################
###############################################
##############################################
#############################################
############################################
###########################################
##########################################
#########################################
########################################
#######################################
######################################
#####################################
####################################
###################################
##################################
#################################
################################
###############################
##############################
#############################
############################
###########################
##########################
#########################
########################
#######################
######################
#####################
####################
###################

あまり違わないように見える.でも,こちらの方が微妙に整ってみえる.

--nobsun


Name:
Comment:

There is no comment.

このサイトは、 IPA の「平成15年度オープンソフトウエア活用基盤整備事業」 の委託事業として開発されたKahuaで試験的に運用しております。

Copyright (c) 2004-2007 株式会社タイムインターメディア About Us