File: ring.gi

package info (click to toggle)
gap-sonata 2.9.1%2Bds-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 16,076 kB
  • sloc: makefile: 25; sh: 24
file content (14 lines) | stat: -rw-r--r-- 272 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
InstallMethod(
	GroupReduct,
	"rings",
	true,
	[IsRing],
	0,
  function ( R )
  local sortedElms;
    sortedElms := AsSSortedList( R );
    return GroupByMultiplicationTable( 
	List( sortedElms, x -> List( sortedElms, y ->
		Position( sortedElms, x + y ) ) ) );
  end );