Prime triangle: Difference between revisions
Content added Content deleted
(Dialects of BASIC moved to the BASIC section.) |
(→{{header|jq}}: simplify) |
||
| Line 927: | Line 927: | ||
end |
end |
||
else .count += 1 |
else .count += 1 |
||
| . |
| .count as $count |
||
| |
| reduce range($count - 1; $n - 1; 2) as $i (.; |
||
.arrang[ |
.arrang[$i] as $ai |
||
| if .canFollow[$ad-1][$ai-1] |
| if .canFollow[$ad-1][$ai-1] |
||
then . |
then .arrang = swap(.arrang; $i; $count-1) |
||
| . |
| ptrs(.res; $n; $count) |
||
| .arrang = swap(.arrang; $i; $count-1) |
| .arrang = swap(.arrang; $i; $count-1) |
||
| ptrs(.res; $n; $count) # updates .res but also .count and .i |
|||
| .count = $count # restore .count |
|||
| .i = $i # restore .i |
|||
| .arrang = swap(.arrang; $i; $count-1) # restore .arrang |
|||
else . |
else . |
||
end |
end ) |
||
| .i += 2 |
|||
) |
|||
end; |
end; |
||
| Line 996: | Line 990: | ||
[1,1,1,1,1,2,4,7,24,80,216,648,1304,3392,13808,59448,155464,480728,1588162] |
[1,1,1,1,1,2,4,7,24,80,216,648,1304,3392,13808,59448,155464,480728,1588162] |
||
</pre> |
</pre> |
||
=={{header|Julia}}== |
=={{header|Julia}}== |
||