商店页面
EXAPUNKS
全部 讨论 截图 艺术作品 实况直播 视频 创意工坊 新闻 指南 评测
EXAPUNKS >  创意工坊 > Thunder 的创意工坊
评价数不足
DIVISION (POWERED BY EXAS®)
描述 讨论0 留言2 改动说明
   
奖励
收藏
已收藏
取消收藏
文件大小
发表于
1.741 KB
2022 年 9 月 4 日 下午 12:22
1 项改动说明 （ 查看 ）
创建者
Thunder
离线
27 不重复访客数
14 当前订阅者
0 当前收藏人数

订阅以下载
DIVISION (POWERED BY EXAS®)

描述
This is my first level.
Please like it and leave a comment if you could solve it and what do you think about this level :)


Here is my solution:

LINK 800
MAKE

COPY #DATA F
COPY #DATB F
SEEK -9999

DIVI F F X
COPY 0 F
COPY X F

MARK DIVLOOP
SEEK -9999
MODI F F X
TEST X = 0
TJMP END
SEEK -9999
SEEK 2

;NUMBER OF DIGITS
TEST F = 10
TJMP END
SEEK -1
ADDI F 1 T
SEEK -1
COPY T F
SEEK -9999
SEEK 1
MULI X 10 X
SEEK -2
COPY X F
DIVI X F X
SEEK 9999
COPY X F
JUMP DIVLOOP

MARK END
SEEK -9999
VOID F
VOID F
VOID F
DROP
HALT
2 条留言
< >
Garrett33 2023 年 4 月 20 日 下午 2:50 
nice level :)
Kalle 2022 年 9 月 6 日 上午 2:21 
Here is a simpler solution:

LINK 800
MAKE
@REP 11
COPY 0 F
@END
SEEK -9999
COPY #DATA X
MARK LOOP
DIVI X #DATB F
MODI X #DATB T
FJMP DEL
MULI T 10 X
TEST EOF
FJMP LOOP
MARK DEL
VOID F
JUMP DEL