@@ -8,7 +8,7 @@ module TrianglesExplorer
88using Nemo, OrderedCollections
99using TrianglesBase, TrianglesExamples, TrianglesUtils
1010
11- export Explore, Triangles
11+ export Explore, Triangles, SaveToCSV, Inspect
1212
1313"""
1414Explore integer triangles via their traits.
116116
117117const LEN = 19
118118
119+ # Prints full sequence
120+ function Inspect (triangle, kind, trait, dim)
121+ T = TriangleVariant (Triangles[triangle], dim, kind)
122+ seq = TraitFunc[trait](T)
123+ seq == [] && return []
124+ typeof (seq) === ℤTri && (seq = Flat (seq))
125+ anum = GetSeqnum (seq, false )
126+ println (anum, " " , triangle, " " , kind, " " , trait)
127+ println (SeqToString (seq))
128+ end
129+
119130"""
120131(SIGNATURES)
121132"""
@@ -231,6 +242,7 @@ function demo()
231242 Explore (" Laguerre" , " Std" , " TransNat0" , TLEN)
232243 Explore (" Laguerre" , " Std" , " TransNat1" , TLEN)
233244 Explore (" Lah" , " Std" , " TransSqrs" , TLEN)
245+ Inspect (" Lah" , " Std" , " TransSqrs" , TLEN)
234246 println ()
235247end
236248
0 commit comments