RosettaCodeData/Task/Run-length-encoding/Picat/run-length-encoding-5.picat

go2 =>
  _ = random2(),
  Alpha = "AB",
  Len2 = Alpha.len,
  _ = random2(),
  S = [Alpha[random(1,Len2)] : _ in 1..30_000],
  if S.len < 200 then println(s=S) end ,
  println("rle/1:"),
  time(_=rle(S)),
  println("rle2/1:"),
  time(_=rle2(S)),
  println("rle3/1:"),
  time(_=rle3(S)),
  nl.