Dinesman's multiple-dwelling problem: Difference between revisions
Dinesman's multiple-dwelling problem (view source)
Revision as of 17:41, 15 November 2020
, 3 years agoDinesman's multiple-dwelling problem en FreeBASIC
(→{{header|Wren}}: Stack corruption bug now fixed.) |
(Dinesman's multiple-dwelling problem en FreeBASIC) |
||
Line 1,166:
Smith lives in 1
</pre>
=={{header|FreeBASIC}}==
<lang freebasic>Dim As Ubyte Baker, Cooper, Fletcher, Miller, Smith
For Baker = 0 To 3
For Cooper = 1 To 4
For Fletcher = 1 To 3
For Miller = 0 To 4
For Smith = 0 To 4
If Baker<>Cooper And Baker<>Fletcher And Baker<>Miller _
And Baker<>Smith And Cooper<>Fletcher And Cooper<>Miller _
And Cooper<>Smith And Fletcher<>Miller And Fletcher<>Smith _
And Miller<>Smith And Miller>Cooper And Abs(Smith-Fletcher)<>1 _
And Abs(Fletcher-Cooper)<>1 Then
Print "Baker vive en el piso "; Baker
Print "Cooper vive en el piso "; Cooper
Print "Fletcher vive en el piso "; Fletcher
Print "Miller vive en el piso "; Miller
Print "Smith vive en el piso "; Smith
End If
Next Smith
Next Miller
Next Fletcher
Next Cooper
Next Baker
Sleep</lang>
=={{header|Go}}==
| |||