1. 数独sudoku

sudoku包

setwd("/Users/yuejeevan/documents/Rproject/hobby")
library(sudoku)
s <- readSudoku("data/sudoku.txt")
#Fetch the daily sudoku puzzle from http://www.sudoku.org.uk/
s <- fetchSudokuUK()
#按数独的图样显示数独
printSudoku(s)
##   +-------+-------+-------+
##   |       |     6 |       |
##   |   6   |       |   9   |
##   | 5 8   |   9   |   6 3 |
##   +-------+-------+-------+
##   |   3 7 |   4   |     9 |
##   |     8 | 2   7 | 4     |
##   | 2     |   5   | 8 3   |
##   +-------+-------+-------+
##   | 8 9   |   6   |   2 5 |
##   |   1   |       |   8   |
##   |       | 5     |       |
##   +-------+-------+-------+
r <- solveSudoku(s)
##       [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
##  [1,]    3    7    9    8    1    6    5    4    2
##  [2,]    4    6    2    3    7    5    1    9    8
##  [3,]    5    8    1    4    9    2    7    6    3
##  [4,]    1    3    7    6    4    8    2    5    9
##  [5,]    9    5    8    2    3    7    4    1    6
##  [6,]    2    4    6    1    5    9    8    3    7
##  [7,]    8    9    4    7    6    1    3    2    5
##  [8,]    7    1    5    9    2    3    6    8    4
##  [9,]    6    2    3    5    8    4    9    7    1
printSudoku(r)
##   +-------+-------+-------+
##   | 3 7 9 | 8 1 6 | 5 4 2 |
##   | 4 6 2 | 3 7 5 | 1 9 8 |
##   | 5 8 1 | 4 9 2 | 7 6 3 |
##   +-------+-------+-------+
##   | 1 3 7 | 6 4 8 | 2 5 9 |
##   | 9 5 8 | 2 3 7 | 4 1 6 |
##   | 2 4 6 | 1 5 9 | 8 3 7 |
##   +-------+-------+-------+
##   | 8 9 4 | 7 6 1 | 3 2 5 |
##   | 7 1 5 | 9 2 3 | 6 8 4 |
##   | 6 2 3 | 5 8 4 | 9 7 1 |
##   +-------+-------+-------+

2. 抽奖

COS论坛精华帖系列——use R for fun系列之小游戏开发篇

par(bty="n",xaxt="n", yaxt="n",mar=c(0,0,0,0),cex=4,font=4)
plot(c(0,1),c(0,1),type="n",xlab="",ylab="")
text(0.4,0.9,"Who's turn?",
     col=rainbow(1000)[sample(1:1000,1)],cex=1)
text(0.8,0.1,"made by Jeevan Yue",
     col=rainbow(1000)[sample(1:1000,1)],font=2,cex=0.2)
num<-1:99
A<-100
run<-function(key){
  if(key=="s"){
    rect(0.2,0.2,0.8,0.8,col="white",border=NA)
    B<-sample(num,1)
    A<-c(A,B)
    text(0.5,0.5,B,col=rainbow(1000)[sample(1:1000,1)],cex=4)
  }
}
run("s")

3.