继续搬运果壳网的旧帖。原帖发表于2013-12-20。我已忘了当时用的是什么输入法，可能是 ibus-pinyin。

在电脑里发现了一个叫pinyin-database.db的文件。好像是拼音输入法的数据库。打开一看，里边的数据从1个字到14个字的词语的拼音和词频。不知道它的词频是从哪里统计来的，不过很有可能从网络上统计的，反正跟我的输入习惯没什么关系。

下面是不同字数的词频最高的十个词语，还挺好玩的：

我会继续把我的一些旧帖搬运到简书。

• 用 Mathematica 搜索生命游戏中的静物
• 用 Mathematica 搜索生命游戏中的静物（三）

之前写的那篇《用 Mathematica 搜索生命游戏中的静物》，由于自己写的部分多了一点（虽然关键的一步还是用 Mathematica 自带的 FindPath 函数），特别慢，还特别耗内存。果然对我这种完全不懂算法的人，就应该把所有的事情都交给 Mathematica 才对。

生命游戏里的每个细胞的状态可以看成一个布尔值，一个（大小有限的）图样则可以看成一个由布尔值组成的二维数组。于是，要寻找满足某些条件图样，就相当于要求这些布尔值满足某个方程。于是，这是一个布尔可满足性问题（SAT）。Mathematica 里有个叫 SatisfiabilityInstances 的函数就是干这个的。

原于2013年的π日发于果壳日志。这里转的是2016年的π日发在十五言的版本。转载到这个博客时把原来用 Mathematica 绘制的图片换成了 LifeViewer。

今天是π日，要吃派。

这是一个派：

x = 3, y = 3, rule = B3/S23
3o$obo$obo!
#C [[ GRID THEME Inverse AUTOHIDEGUI ]]
#C [[ LOOP 1 AUTOSTART ]]

继续搬运果壳网上的旧帖。部分代码有改动。

Wolfram 公司在 Twitter 上开了个帐号，叫 Tweet-a-Program (@wolframtap)。你只要发一段 Mathematica 代码并@它，它就会自动把运行结果回复给你。由于 Twitter 的字数限制，这段 Mathematica 代码不能超过128字（现在 Twitter 的字数限制涨了，但 Tweet-a-Program 的字数限制还是不变）。

我一般用它来画分形。

原发于果壳网Matlab小组。没错，是Matlab小组。

这样一个标题出现在Matlab小组里是不是有点奇怪？¹

果壳网已完。也许第二天我的帖子就会消失。以防万一，我决定把我发过的一些帖子搬运到简书。也包括这么无聊的帖子。

这个帖子原发于果壳网维基百科小组。

除了中文、英文的维基百科，我用的最多的一个维基旗下网站就英文维基词典。用得虽然多，平时并没有盯着图标看，因此并不知道图标是什么时候换的。

• 用 Mathematica 搜索生命游戏中的静物（二）
• 用 Mathematica 搜索生命游戏中的静物（三）

果壳网已死。临死前元胞自动机小组还回光返照了一段时间——虽然真正活跃的人大概不超过五个。

以下的代码就算是我给果壳网以及元胞自动机小组烧的一点纸钱吧。

a = Merge[
   k[#[[;; 2]], 
       CellularAutomaton["GameOfLife", #][[2, 2]]] -> #[[3]] & /@ 
    Tuples[Tuples[{0, 1}, 3], 3], Identity];
g[x_, y_, z_] := 
  FindPath[Flatten@
     MapIndexed[
      Outer[v[#2 - 1, Most[#1]] -> v[#2, Rest[#1]] &, ##, 1] &, 
      Lookup[a, 
       MapThread[
        k, {First[
          Partition[{x, y}, {2, 3}, {2, 1}, {{1, -2}, {-1, 2}}, 0]], 
         z}], {}]], v[0, {0, 0}], v[Length[z], {0, 0}], Length[z] + 2,
     All][[;; , 2 ;;, 2, 1]];
With[{w = 16, h = 16},
 o = Table[0, w + 2];
 i = g[o, o, o];
 f[l : {___, x_, y_}] := 
  If[Length@l == h + 2, 
   If[y == o && MemberQ[i, x], l, Missing["NotFound"]], 
   Catch[Do[
     If[MissingQ[#], , Throw[#]] &[f[Append[l, z]]], {z, 
      RandomSample[g[x, y, y]]}]; Missing["NotFound"]]];
 SparseArray[f[{o, RandomChoice[i]}]]]

注意：apgluxe 的原作者为 Catagolue 提供了另一个域名：gol.hatsya.co.uk。这个没有被墙。只需把原版的 apgluxe 中的 catagolue.appspot.com 换成 gol.hatsya.co.uk 就能正常工作了。原版的最新版也已经添加这个地址（如果访问不稳定，可以尝试在 ping 得通的时候记下 ip 地址，然后改 Host）。因此这里说离线版已经没有意义了。

不久前，我发现了这个叫 Catagolue 的神奇的网站，收录的规则和图样比 LifeWiki 要全得多。

这里收录的图样都是用一个叫 apgsearch 的程序找出来的。apgsearch 的不同版本有不同的名字，最新的第4版叫 apgluxe。它的功能就是自己倒汤，煮汤，然后在汤的残骸中自动搜索有意义的图样，然后自动上传到 Catagolue 上。

原发表在十五言

汤，英文叫 soup，或者 broth，在生命游戏里指的是随机的初始状态。

很多人刚接触生命游戏的时候，第一种玩法就是倒上一锅汤，然后开始游戏，看着这些方块变来变去，直到整个局面稳定下来为止。