AtCoder Beginner Contest 034 A - テスト

A - テスト

実装

perl

31byte

<>=~/ /;print$`<$'?Better:Worse

climpetさんが/ /でなく$"を使った1byte短いコードを提出していた。

brainfuck

• 整数は$[0, 128)$の範囲しか動かない
• EOFを読まない
• 非負番地は使用しない
• 提出にはhttps://github.com/kmyk/wrap-brainfuckを使用

input x
>>
,>++++[<-------->-]<[  until space
    <[<++>-]<[>+++++<-]>>  mult ten
    [<+>-]  add
    ++++[<---->-]  offset
,>++++[<-------->-]<]
input y
>>
,----------[  until newline
    <[<++>-]<[>+++++<-]>>  mult ten
    [<+>-]  add
    ++++++[<------>-]<-->  offset
,----------]
x lt y
<+  incr y  for the case y is 0
<+  lt flag
<+  incr x
[>>  x times
    -  decr y
    [>+>+<<-]
    +>[<->[-]]<  negate y
    [  if not y
        <-  lt is false
        <[-]+  x is 1  to avoid to make a negative number
    >>-]
    >>[<<+>>-]<<
<<-]
output
+>>[-]<  if lt
[-<->  then 66 101 116 116 101 114 10
    ++++++++++[
        >++++++
        >++++++++++
        >+++++++++++
        >+++++++++++
        >++++++++++
        >+++++++++++
        >+
    <<<<<<<-]
    >++++++.
    >+.
    >++++++.
    >++++++.
    >+.
    >++++.
    >.
    <<<<<<<
]<[-  else 87 111 114 115 101 10
    ++++++++++[
        >++++++++
        >+++++++++++
        >+++++++++++
        >+++++++++++
        >++++++++++
        >+
    <<<<<<-]
    >+++++++.
    >+.
    >++++.
    >+++++.
    >+.
    >.
    <<<<<<
]