mjhjmtu

I have 4 empty lists. I would like to randomly distribute numbers from 1 to 10 to these 4 empty lists. How can I add integers to lists randomly?

For example:

m = ;
n = ;
p = ;
r = ;
listz = Range[10];

1->m , 2->n , 3->p , 4->m , 5->r , 6->r, 7->n , 8->m, 9->p , 10->n (Randomly distributed)

Here is the code I tried:

m = ;
n = ;
p = ;
r = ;
listz = Range[10];
s = RandomChoice[m, n, p, r, 4];
Do[listm = AppendTo[s, listz[i]];, i, 1, 10]
listm

Wanted Solution:(Randomly distributed)

m = 1, 5, 8
n = 4, 6, 9
p = 7, 10
r = 2, 3

on Mathematica 11.3

(R=RandomSample)[Range@10,10]~TakeList~R@RandomChoice[Select[IntegerPartitions@10,Length@#==4&]] 

Also I tried to fix your code

a = ;
b = ;
c = ;
d = ;
Listz = a, b, c, d;
Do[t=RandomChoice@Range@4;Listz[[t]]=AppendTo[Listz[[t]],i],i,1,10]
Listz

n = 100;
m = 4;
list = Range[n];
s = RandomChoice[Range[m], n];

SparseArray[Transpose[s, list] -> _, m, n]["AdjacencyLists"]

Or slower, but easier to understand:

Lookup[GroupBy[Transpose[s, list], First -> Last], Range[m]]

Edit: I realized that my previous solution doesn't produce the same length partitions. Here is the desired solution.

s = RandomSample[Range@10, 10];
t = RandomSample@RandomChoice@IntegerPartitions[10, 4]
m, n, p, r = TakeList[s, t]

(*or m, n, p, r = FoldPairList[TakeDrop, s, t]*)

1, 5, 10, 3, 7, 2, 9, 6, 8, 4

Original answer:

s = RandomSample[Range@10, 10];
t = RandomSample[Range@4, 4];
m, n, p, r = FoldPairList[TakeDrop, s, t]

6, 2, 9, 5, 1, 7, 10, 3, 8, 4

listz = CharacterRange["A", "K"];
k = 4;

SeedRandom[1]
rc = RandomChoice[Range @ k, Length @ listz];
m, n, p, r = Pick[listz, rc, #]& /@ Range[k];

"C", "F", "G", "H", "K", "B", "D", "E", "I", , "A", "J"

Also

Lookup[GroupBy[Transpose[rc, listz], First -> Last], #, ]& /@ Range[k] 

"C", "F", "G", "H", "K", "B", "D", "E", "I", , "A", "J"

Update: To get k non-empty sublists:

SeedRandom[1]
rc = Module[r, While[Length[Counts[r = RandomChoice[Range@k, Length @ listz]]] < k]; r];
Pick[listz , rc, # ] & /@ Range[k ]

"A", "B", "C", "E", "H", "I", "F", "D", "G", "J", "K"

Lookup[GroupBy[Transpose[rc , listz], First -> Last], #, ] & /@ Range[k] 

"A", "B", "C", "E", "H", "I", "F", "D", "G", "J", "K"