Talk:Solve the no connection puzzle: Difference between revisions

From Rosetta Code
Content added Content deleted
(→‎REXX formatting seems off: answering a query.)
Line 3: Line 3:


: The REXX program no longer has that statement, perhaps you were viewing it whilest it was being updated?   Does the current version still have "off" formatting?   It looks OK to me, but then, it always did view OK to me at this end. -- [[User:Gerard Schildberger|Gerard Schildberger]] ([[User talk:Gerard Schildberger|talk]]) 06:48, 5 October 2014 (UTC)
: The REXX program no longer has that statement, perhaps you were viewing it whilest it was being updated?   Does the current version still have "off" formatting?   It looks OK to me, but then, it always did view OK to me at this end. -- [[User:Gerard Schildberger|Gerard Schildberger]] ([[User talk:Gerard Schildberger|talk]]) 06:48, 5 October 2014 (UTC)

Hi Gerald, I was talking specifically about the second section of code starting with the do-while loop that is all indented around sixteen spaces?
<lang rexx>/**REXX program solves the "no-connection" puzzle (with eight pegs).*/
@. =
@.1 = 'A C D E' ; @.5 = 'E A B D F'
@.2 = 'B D E F' ; @.6 = 'F B E G'
@.3 = 'C A D G' ; @.7 = 'G C D E'
@.4 = 'D A C E G' ; @.8 = 'H D E F'

do nodes=1 while @.nodes\==''; _=word(@.nodes,1)
subs=0 /* [↓] create list of node paths*/
do #=1 for words(@.nodes)-1
__=word(@.nodes,#+1); if __>_ then iterate
subs=subs+1; !._.subs=__
end /*#*/
!._.0=subs /*assign the number of node paths*/
end /*nodes*/
</lang> --[[User:Paddy3118|Paddy3118]] ([[User talk:Paddy3118|talk]]) 08:06, 5 October 2014 (UTC)

Revision as of 08:06, 5 October 2014

REXX formatting seems off

Near the top where it starts "aid=...", the lines after that seem mid aligned? (But I am viewing on my tab, but then again, it is usually OK)? --Paddy3118 (talk) 03:48, 5 October 2014 (UTC)

The REXX program no longer has that statement, perhaps you were viewing it whilest it was being updated?   Does the current version still have "off" formatting?   It looks OK to me, but then, it always did view OK to me at this end. -- Gerard Schildberger (talk) 06:48, 5 October 2014 (UTC)

Hi Gerald, I was talking specifically about the second section of code starting with the do-while loop that is all indented around sixteen spaces? <lang rexx>/**REXX program solves the "no-connection" puzzle (with eight pegs).*/ @. = @.1 = 'A C D E'  ; @.5 = 'E A B D F' @.2 = 'B D E F'  ; @.6 = 'F B E G' @.3 = 'C A D G'  ; @.7 = 'G C D E' @.4 = 'D A C E G'  ; @.8 = 'H D E F' 

                  do nodes=1  while @.nodes\==;   _=word(@.nodes,1)
                  subs=0              /* [↓]  create list of node paths*/
                             do #=1  for words(@.nodes)-1
                             __=word(@.nodes,#+1);  if __>_  then iterate
                             subs=subs+1;           !._.subs=__
                             end  /*#*/
                  !._.0=subs          /*assign the number of node paths*/
                  end   /*nodes*/

</lang> --Paddy3118 (talk) 08:06, 5 October 2014 (UTC)

Retrieved from "https://rosettacode.org/wiki/Talk:Solve_the_no_connection_puzzle?oldid=250669"