17 lines
372 B
BQN
17 lines
372 B
BQN
⟨Split⟩←•Import"../bqn-libs/strings.bqn"
|
||
|
||
input←(0<≠)¨⊸/¨" "⊸Split¨10↓¨•FLines"input"
|
||
|
||
Times←{𝕊t‿d:
|
||
a‿b←2÷˜+t(-∾+)√(t×t)-4×d
|
||
a‿b↩⟨⌈a,⌊b⟩
|
||
a+↩d=a×t-a
|
||
b-↩d=b×t-b
|
||
a‿b
|
||
}
|
||
|
||
input1←⍉>•ParseFloat¨¨input
|
||
•Show ×´1+|-´˘Times˘input1
|
||
|
||
input2←•ParseFloat¨∾¨input
|
||
•Show 1+|-´Times input2
|