File: B2-4

package info (click to toggle)
gap-anupq 3.3.3-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 8,328 kB
  • sloc: ansic: 15,243; xml: 5,186; sh: 1,259; makefile: 281; perl: 260; javascript: 155
file content (9 lines) | stat: -rw-r--r-- 264 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
 
#Example: "B2-4" . . . the ``right'' way to generate B(2, 4)
#Generates B(2, 4) by using the `Exponent' option
#vars: F, procId;
#options: 
F := FreeGroup("a", "b");
#alt: do
#procId := PqStart( F );
#alt: sub <procId> for <F>
Pq( F : Prime := 2, Exponent := 4 );