Narcissist: Difference between revisions
Narcissist en FreeBASIC
(Added Quackery.) |
(Narcissist en FreeBASIC) |
||
Line 116:
<lang forth>: narcissist [ source ] sliteral compare 0= ;</lang>
=={{header|FreeBASIC}}==
<lang freebasic>Dim As String a, s = "Dim As String a, s = Input a : Print (a = Left(s, 21) + Chr(34) + s + Chr(34) + Mid(s, 47, 3) + Mid(s, 23, 108)) + Mid(s, 54, 3)" : Input a : Print (a = Left(s, 21) + Chr(34) + s + Chr(34) + Mid(s, 47, 3) + Mid(s, 23, 108))</lang>
=={{header|Go}}==
| |||