Lukujono

# Rotate Triples v1.0

PRINT X
REPEAT X TIMES (
    INCREASE Z
    INCREASE Z
)

# 初始化 Z=2X

INCREASE T
# 当T=0时结束

INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N
INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N
INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N
INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N
INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N
INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N
INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N
INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N
INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N

# 初始化N

INCREASE A
# A: 从X开始

REPEAT N TIMES (
    REPEAT T TIMES ( REPEAT A TIMES (
        INCREASE Q
        REPEAT P TIMES (
            CLEAR Q
            CLEAR P
            CLEAR I CLEAR J
            REPEAT Y TIMES (
                INCREASE J
                REPEAT I TIMES (
                    INCREASE Y
                    CLEAR I CLEAR J
                )
                REPEAT J TIMES (
                    INCREASE I CLEAR J
                )
            )
            INCREASE Y
        )
        REPEAT Q TIMES (
            CLEAR Q
            CLEAR Y CLEAR I CLEAR J # 清空Y,I,J
            REPEAT X TIMES ( # 除2器, 向下取整. 结束时I=1表示奇数
                INCREASE J
                REPEAT I TIMES (
                    INCREASE Y
                    CLEAR I CLEAR J
                )
                REPEAT J TIMES (
                    INCREASE I CLEAR J
                )
            )
        )
        INCREASE J
        REPEAT I TIMES ( # 奇数
            CLEAR J
            INCREASE S # 当为0时结束
            REPEAT Y TIMES ( CLEAR S )
            REPEAT S TIMES ( CLEAR T )
            REPEAT T TIMES (
                # Z<=3*X+1=Z+X+1=Z+2Y+2
                # X<=(3*X+1)/2; 2Y+1=X, (3*(2Y+1)+1)/2=(6Y+4)/2=3Y+2=X+Y+1
                REPEAT Y TIMES (
                    INCREASE Z
                    INCREASE Z
                    INCREASE X
                )
                INCREASE Z INCREASE Z
                INCREASE X
                PRINT Z
                PRINT X
                INCREASE P # 关键. 选择保留Y
            )
        )
        REPEAT J TIMES ( # 偶数
            PRINT Y
            CLEAR A
            INCREASE B # 主变量改为Y
        )
    ) )
    REPEAT T TIMES ( REPEAT B TIMES (
        INCREASE Q
        REPEAT P TIMES (
            CLEAR Q
            CLEAR P
            CLEAR I CLEAR J
            REPEAT Z TIMES (
                INCREASE J
                REPEAT I TIMES (
                    INCREASE Z
                    CLEAR I CLEAR J
                )
                REPEAT J TIMES (
                    INCREASE I CLEAR J
                )
            )
            INCREASE Z
        )
        REPEAT Q TIMES (
            CLEAR Z CLEAR I CLEAR J # 清空Z,I,J
            REPEAT Y TIMES ( # 除2器, 向下取整. 结束时I=1表示奇数
                INCREASE J
                REPEAT I TIMES (
                    INCREASE Z
                    CLEAR I CLEAR J
                )
                REPEAT J TIMES (
                    INCREASE I CLEAR J
                )
            )
        )
        INCREASE J
        REPEAT I TIMES ( # 奇数
            CLEAR J
            INCREASE S # 当为0时结束
            REPEAT Z TIMES ( CLEAR S )
            REPEAT S TIMES ( CLEAR T )
            REPEAT T TIMES (
                REPEAT Z TIMES (
                    INCREASE X
                    INCREASE X
                    INCREASE Y
                )
                INCREASE X INCREASE X
                INCREASE Y
                PRINT X
                PRINT Y
                INCREASE P
            )
        )
        REPEAT J TIMES ( # 偶数
            PRINT Z
            CLEAR B
            INCREASE C # 主变量改为Z
        )
    ) )
    REPEAT T TIMES ( REPEAT C TIMES (
        INCREASE Q
        REPEAT P TIMES (
            CLEAR Q
            CLEAR P
            CLEAR I CLEAR J
            REPEAT X TIMES (
                INCREASE J
                REPEAT I TIMES (
                    INCREASE X
                    CLEAR I CLEAR J
                )
                REPEAT J TIMES (
                    INCREASE I CLEAR J
                )
            )
            INCREASE X
        )
        REPEAT Q TIMES (
            CLEAR X CLEAR I CLEAR J # 清空Z,I,J
            REPEAT Z TIMES ( # 除2器, 向下取整. 结束时I=1表示奇数
                INCREASE J
                REPEAT I TIMES (
                    INCREASE X
                    CLEAR I CLEAR J
                )
                REPEAT J TIMES (
                    INCREASE I CLEAR J
                )
            )
        )
        INCREASE J
        REPEAT I TIMES ( # 奇数
            CLEAR J
            INCREASE S # 当为0时结束
            REPEAT X TIMES ( CLEAR S )
            REPEAT S TIMES ( CLEAR T )
            REPEAT T TIMES (
                REPEAT X TIMES (
                    INCREASE Y
                    INCREASE Y
                    INCREASE Z
                )
                INCREASE Y INCREASE Y
                INCREASE Z
                PRINT Y
                PRINT Z
                INCREASE P
            )
        )
        REPEAT J TIMES ( # 偶数
            PRINT X
            CLEAR C
            INCREASE A # 主变量改为X
        )
    ) )
)
# 4258390 for 871 (55p)

Test 1 (public)

Verdict: ACCEPTED