I have:
Fence[content_, length_] := Column[{
Grid[Partition[Characters[content], UpTo[length]]],
Grid[{Select[
Flatten[Transpose[
PadRight[
Partition[Characters[content],
UpTo[length]], {Ceiling[Length[Characters[content]]/length],
length}, "@@"]]], # != "@@" &]}]
}]
Mani[content_] :=
Manipulate[Fence[content, x], {x, 1, Length[Characters[content]], 1}]
Then test it in my desktop Mathematica and everything goes well:
So I deploy:
CloudDeploy[Mani["0123456789"], Permissions -> "Public"]
CloudObject["https://www.wolframcloud.com/objects/ea1707d8-8c50-4926-bfad-207c5c1c1430"]
But it seems doesn't evaluate my function(Fence
):