18/12/03 23:05:43.00 uthawMyt.net
> liars(Answer<-sample(10,10,rep=T),S=F) ; Answer
A B C D E F G H I J
832 1 1 1 1 1 1 0 0 1 1
888 1 1 1 0 1 1 1 0 1 1
952 1 1 1 0 1 1 0 1 1 1
1024 1 1 1 1 1 1 1 1 1 1
[1] 1 5 10 8 10 1 8 8 4 7
>
> liars(c(1, 2, 3, 4, 5, 5, 5, 5, 9, 9, 9),Strict=FALSE)
A B C D E F G H I J K
512 1 1 1 1 1 1 1 1 1 0 0
768 1 1 1 1 1 1 1 1 0 1 0
1280 1 1 1 1 1 1 1 1 0 0 1
2048 1 1 1 1 1 1 1 1 1 1 1
> liars(c(1, 2, 3, 4, 5, 5, 5, 5, 9, 9, 9),Strict=TRUE)
A B C D E F G H I J K
2048 1 1 1 1 1 1 1 1 1 1 1
無事動作確認！