tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Permutations-by-swapping/BBC-BASIC/permutations-by-swapping.bbc
+++ b/Task/Permutations-by-swapping/BBC-BASIC/permutations-by-swapping.bbc
@ -0,0 +1,35 @@
+      PROCperms(3)
+      PRINT
+      PROCperms(4)
+      END
+
+      DEF PROCperms(n%)
+      LOCAL p%(), i%, k%, s%
+      DIM p%(n%)
+      FOR i% = 1 TO n%
+        p%(i%) = -i%
+      NEXT
+      s% = 1
+      REPEAT
+        PRINT "Perm: [ ";
+        FOR i% = 1 TO n%
+          PRINT ;ABSp%(i%) " ";
+        NEXT
+        PRINT "] Sign: ";s%
+        k% = 0
+        FOR i% = 2 TO n%
+          IF p%(i%)<0 IF ABSp%(i%)>ABSp%(i%-1) IF ABSp%(i%)>ABSp%(k%) k% = i%
+        NEXT
+        FOR i% = 1 TO n%-1
+          IF p%(i%)>0 IF ABSp%(i%)>ABSp%(i%+1) IF ABSp%(i%)>ABSp%(k%) k% = i%
+        NEXT
+        IF k% THEN
+          FOR i% = 1 TO n%
+            IF ABSp%(i%)>ABSp%(k%) p%(i%) *= -1
+          NEXT
+          i% = k%+SGNp%(k%)
+          SWAP p%(k%),p%(i%)
+          s% = -s%
+        ENDIF
+      UNTIL k% = 0
+      ENDPROC