Mikähän olisi optimaalisin tapa tulostaa esimerkiksi 8-bittinen luku bittimuodossa?
Ajattelin tehdä silmukan, jossa olisi ensin maskina 0b1000000 ja se sitten naitettaisiin &-operaattorilla käsittelyssä olevaan 8-bittiseen lukuun. Jos tulos on 0, niin kyseinen bitti on nolla (tulostetaan vaikka printf():llä 0), ja muussa tapauksessa se olisi 1. Sitten shiftattaisiin maskia pykälän verran oikealle ja toistettaisiin hommaa lsb:hen saakka.
Vai onko olemassa joku yksinkertaisempi ja tehokkaampi tapa?
Luvun tulostaminen bitteinä
4
228
Vastaukset
- WituixMän
Joskus tein aikoinaan tuollaisen koodinpätkän mutta käyttöä sille ei juurikaan ole ollut.
Tulos tuli tekstinä tyyliin 10101101, lisäsin vielä vaihtoehdot v2 ja v3 joten
v1=teksti
v2=lukutaulukko
v3=merkkitaulukko
Muuttujat ja functiokutsu:
Dim dluku As ULong = 1234567
Dim BinT As String 'v1
'Dim BinI() As Short 'v2
'Dim BinC() As Char 'v3
BinT = ToBin(dluku) 'v1
'BinI = ToBin(dluku) 'v2
'BinC = ToBin(dluku) 'v3
ToBin-functio
Function ToBin(ByVal luku As ULong)
Dim btext As String = "" 'v1=teksti
'Dim bint(7) As Short 'v2=lukutaulukko
'Dim bchar(7) As Char 'v3=merkkitaulukko
Dim bm As ULong = 8 'bittien määrä
Dim vl As ULong = 0 'vertailuluku
Try
'selvitetään bittien määrä, 8,16,32 tai 64-bit
While vl < luku
vl = Math.Pow(2, bm)
If luku > vl Then bm = bm * 2 'jos ei riitä niin kerrotaan bittien määrä kahdella
If bm = 64 Then Exit While 'jos käyttää ULongon tilalla Long-muuttujaa niin 64 pitää vaihtaa 32:ksi
End While
'päivitetään v2 ja v3 tapauksissa muuttujat
'ReDim bint(bm - 1) v2
'ReDim bchar(bm - 1) v3
For i = 0 To bm - 1
'luetaan bitit takaa päin joten bitti joka on jakojäännös lisätään loppuun
btext = luku Mod 2 & btext 'v1
'bint(bm - 1 - i) = luku Mod 2 'v2
'bchar(bm - 1 - i) = Convert.ToString(luku Mod 2) 'v3
luku = Math.Floor(luku / 2) ' jaetaan kahdella seuraavaa bittiä varten, pyöristys alas
Next
Catch
MsgBox("Wituix män!!", MsgBoxStyle.Critical) 'noin käy jos on liian suuri luku
Return Nothing
Exit Function
End Try
'18446744073709551615 = suurin ULong
Return btext 'v1
'Return bint 'v2
'Return bchar 'v3
End Function
Kuten arvoisa lukija huomaa on koodi Visual Basicia jota nykyisin käytän Visual Studio 2012:lla.
Lopetin C :n käytön jo "valovuosia" sitten, aloitan sen uudelleen jos siihen löytyy hyvä syy. C# on joskus tarvinnut. - tietokoneinsinööri
Ehkäpä ei ole merkittävästi tehokkaampaa keinoa, jos verrataan eri lähestymistapojen
assembly-koodia, pakko käyttää (x86) SHR:ää/SHL:ää yms. ja vertailla vaikka lsb:tä/msb:tä AND:lla, kun mikroprosessorin rekisterit on nykyään vähintää 8-bittisiä tai sitten tallentaa ROM -muistiin 8-alkioinen taulukko, joka bitille oma alkio (0x80, 0x40, 0x20, 0x10, 0x08, 0x04, 0x02, 0x01) ja verrata niitä erikseen haluttuun lukuun. Muistin varaamisessa voi tulla eroa joskin merkitys suurempi ainoastaa rajoittuneiden resurssien ollessa käytössä (esim. ajetaan rinnakkain samaa ohjelmaa about 1000 kertaa).
Vai olisikohan jonkin prosessoriperheen käskykannassa konekielinen komento, joka tekisi sen vähemmillä kellojaksoilla (onko jollakin parempaa tietoa)? Tietenkin voit itse suunnitella FPGA/ASIC-prosessorin tähän tarkoitukseen.
https://en.wikipedia.org/wiki/Cycles_per_instruction - pcmuseo
Ei ehkä optimaalisin, mutta:
#include
void main(int argc,char *argv[])
{
unsigned char luku;
char tulos[]="00000000b";
char i=8;
if(argc<2)return;
luku=atoi(argv[1]);
printf("%d=0x%x=",luku,luku);
while(i--)
{
tulos[i]=luku&1?'1':'0';
luku>>=1;
}
printf("%s\n",tulos);
} - Jspsus
Mä laittsisin:
while(n!=0) {b=(n%2==0 ?"0": "1") b; n/2;}
n = kymmenkantainen luku
b = luku bitteinä
Tuossa ei myöskään väliä monikobittinen luku, koska osaa ottaa lyhimmän mukaan.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
SDP jo 100 % suositumpi kuin persut
Kertoo Hesarin uusin kannatuskysely. Demareiden kannatus on miltei tuplat verrattuna persuihinl. Suomen kansa ei selväst21814222Ikävä sinua mies
Vuosia kuluu, mutta tunteet ei ole hävinnyt. Tasoittuneet toki, kun ei olla nähty. Järki palannut päähän kuitenkin. Se i566126Mikä tämä henkilö mahtaa touhuta Parkanossa
Kamalaa https://www.ylasatakunta.fi/teksti/pirkanmaan-karajaoikeus-vangitsi-koiran-tappamisesta-epaillyn-6.68.127794.b58695233Orpo: Velkajarrua vastustavaa puoluetta vaikea ajatella hallitukseen
No Minja Koskelan kommunistipuolue jäi ulos tuosta. Kaikki eduskuntapuolueet vasemmistoliittoa lukuun ottamatta sopivat2953955Valtavasti suomalaisia asunnottomina, mutta ei yhtään somalia
tai muuta kehitysmaalaista. Mites tässä näin kävi? Tiedän hyvin, että esim. somaleita lentää ulos mm. Hekan asunnoista,1433675PS ylivoimainen nousija myös HS:n gallupissa, SDP laskee taas
https://www.verkkouutiset.fi/a/hs-gallup-sdpn-suosio-laskee-ps-nousussa/#0a7d2507 Ylivoimainen viime kuukausien nousija1263667Hienoa! Eduskunta luopui käteisen käytöstä
Nyt tuo sama muutos pitää saada myös muuhun yhteiskuntaan. Käteistähän ei tarvitse tänä päivänä enää kuin rikolliset.852170Maajussi-Ville herättää kysymyksiä - Etsiikö oikeasti rakkautta vai mainostaako oliiviöljyä?
Mitä mieltä olet: etsiikö Ville rakkautta vai mainostaako oliiviöljyään? Maajussille morsian -ohjelmassa yksi maajusseis171527Kovia syytöksiä Stefan Thermaninsta.
Jättänyt taas maksamatta kohuliikemies, hupparit ja muita ostamiaan tavaroita. On soiteltu liikkeestä ja Stefan iskenyt1601353Totuuspuolueen johtaja Jaana "prinsessa Leia" Kavonius on vangittu
Kavonius määrättiin jo keväällä 2024 poissaolevana vangittavaksi todennäköisin syin epäiltynä 13 vainoamisesta ja 24 kun3401317