From 34883b649d710abf6056d98aa2b43bd796ee4a49 Mon Sep 17 00:00:00 2001
From: James Mitchell <james-d-mitchell@users.noreply.github.com>
Date: Mon, 22 Mar 2021 09:29:35 +0000
Subject: [PATCH] Update gap/examples.gi

Co-authored-by: Wilf Wilson <wilf@wilf-wilson.net>
---
 gap/examples.gi | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/gap/examples.gi b/gap/examples.gi
index e0cbbb78a..415f1194a 100644
--- a/gap/examples.gi
+++ b/gap/examples.gi
@@ -373,17 +373,7 @@ InstallMethod(GeneralisedPetersenGraph, "for integer, integer", [IsInt, IsInt],
 
 BindGlobal("DIGRAPHS_PrefixReversalGroup",
 function(n)
-  local id, A, i;
-  if n = 1 then
-    return Group(());
-  fi;
-  id := [1 .. n];
-  A := [];
-  for i in [2 .. n] do
-    id{[1 .. i]} := [i, i - 1 .. 1];
-    Add(A, PermList(id));
-  od;
-  return Group(A);
+  return Group(List([2 .. n], i -> PermList([i, i - 1 .. 1])), ());
 end);
 
 InstallMethod(PancakeGraphCons, "for IsMutableDigraph and pos int",