Lukujono

# Welp, time ran out. Didn't figure ts out fast enough. Managed to extract the value to 18 bits (unnecessarily complicated but works.) But multiplying by 3 with the approach I figured out would take like 2h to write. This is how far I got for the record.

#1000
# just set x as 1000

INCREASE Z INCREASE C INCREASE V INCREASE L

INCREASE N
REPEAT X TIMES (
 REPEAT N TIMES (
  CLEAR N CLEAR B CLEAR M

  # division
  INCREASE M
  REPEAT X TIMES (
   REPEAT M TIMES ( CLEAR X CLEAR M ) 
   INCREASE B
   REPEAT N TIMES (
    CLEAR N
    CLEAR B
    INCREASE X
   )
   REPEAT B TIMES (
    INCREASE N
   )
  )


  CLEAR N CLEAR M

  # should continue?
  REPEAT X TIMES (
   CLEAR N INCREASE N 
  )

  #PRINT X

  CLEAR M
  INCREASE M
  # I had a fucking working version 100 lines shorter that utilized more variables... wasted 30 mins on ts
  REPEAT Z TIMES ( #1XXX
   REPEAT C TIMES ( #11XX
    REPEAT V TIMES ( #111X
     REPEAT L TIMES ( #1111
      REPEAT M TIMES ( #SET
       REPEAT B TIMES ( INCREASE K )
       CLEAR M
       CLEAR L # MAKE 1110
      )
     )
     REPEAT M TIMES ( #SET 1110
      REPEAT B TIMES ( INCREASE J )
      CLEAR M
      CLEAR V INCREASE L # MAKE 1101
     )
    )
    REPEAT L TIMES ( #1101
     REPEAT M TIMES ( #SET
      REPEAT B TIMES ( INCREASE H )
      CLEAR M
      CLEAR L # MAKE 1100
     ) 
    )
    REPEAT M TIMES ( #SET 1100
     REPEAT B TIMES ( INCREASE G )
     CLEAR M
     CLEAR C INCREASE V INCREASE L
    ) 
   )
   REPEAT V TIMES ( # 101X
    REPEAT L TIMES ( #1011
     REPEAT M TIMES ( #SET
      REPEAT B TIMES ( INCREASE F )
      CLEAR M
      CLEAR L # MAKE 1010
     )
    )
    REPEAT M TIMES ( #SET 1010
     REPEAT B TIMES ( INCREASE D )
     CLEAR M
     CLEAR V INCREASE L # MAKE 1001
    )
   )
   REPEAT L TIMES ( #1001
    REPEAT M TIMES ( #SET
     REPEAT B TIMES ( INCREASE S )
     CLEAR M
     CLEAR L # MAKE 1000
    )
   )
   REPEAT M TIMES ( # SET 1000
    REPEAT B TIMES ( INCREASE A )
    CLEAR M
    CLEAR Z INCREASE C INCREASE V INCREASE L # MAKE 0111
   )
  )
  REPEAT C TIMES ( #01XX 
   REPEAT V TIMES ( #011X
    REPEAT L TIMES ( #0111
     REPEAT M TIMES (
      REPEAT B TIMES ( INCREASE P )
      CLEAR M
      CLEAR L #MAKE 0110
     )
    )
    REPEAT M TIMES ( # SET 0110
     REPEAT B TIMES ( INCREASE O )
     CLEAR M
     CLEAR V INCREASE L #MAKE 0101
    )
   )
   REPEAT L TIMES ( #0101
    REPEAT M TIMES (
     REPEAT B TIMES ( INCREASE I )
     CLEAR M
     CLEAR L # MAKE 0100
    )
   )
   REPEAT M TIMES ( # SET 0100
    REPEAT B TIMES ( INCREASE U )
    CLEAR M
    CLEAR C INCREASE L INCREASE V #MAKE 0011
   )
  )
  REPEAT V TIMES ( # 001X
   REPEAT L TIMES ( # 0011
    REPEAT M TIMES ( # SET
     REPEAT B TIMES ( INCREASE Y )
     CLEAR M
     CLEAR L #MAKE 0010
    )
   )
   REPEAT M TIMES ( # SET 0010
    REPEAT B TIMES ( INCREASE T )
    CLEAR M
    CLEAR V INCREASE L # MAKE 0001
   )
  )
  REPEAT L TIMES ( #0001
   REPEAT M TIMES ( # SET
    REPEAT B TIMES ( INCREASE R )
    CLEAR M
    CLEAR L #MAKE 0000
   )
  )
  REPEAT M TIMES ( # SET 0000
   REPEAT B TIMES ( INCREASE E )
   CLEAR M
  )

 )
)

  # Q W E R T Y U I O P A S D F G H J K for bits
  # z c v l

PRINT Q PRINT W PRINT E PRINT R PRINT T PRINT Y PRINT U PRINT I PRINT O PRINT P PRINT A PRINT S PRINT D PRINT F PRINT G PRINT H PRINT J PRINT K

Test 1 (public)

Verdict: ACCEPTED