Mathematica的一些簡單問題？

最近發現一下問題：

1. Mathematica 10.1在notebook編寫、打開幫助菜單、關閉notebook的過程那個中，均會時不時出現「formatting notebook content」，並且會出現假死現象。

網路相關bug：

front end - Mathematica 10 Formatting Notebook Contents

不知道有沒有人解決類似狀況。

2.要說明的是，我只學過簡單的C，對於#一類符號不太了解。

因此就有了第二個問題：

如何將1，2，3，4隨機得賦值給 i，j，k，l？

我只能用一個較為繁瑣的方法：

i = RandomInteger[{1, 4}];

j=i;

While[j == i, j = RandomInteger[{1, 4}]];

k=i;

While[k == i || k == j, k = RandomInteger[{1, 4}]];

l=i;

While[l == i || l == j || l == k, l = RandomInteger[{1, 4}]];

{i, j, k, l} = RandomSample[Range[4]]


Needs["RLink`"];
InstallR[];
{i, j, k, l} = REvaluate["sample(1:4,4)"]


哈哈哈