Vraag : Het Algoritme van de behoefte: Tel het Aantal Veelvoudige Tijden van Rijen

De kerels van Hey,

I hebben een algemeen programmeringsconcept geen dat ik kan zeer goed aanpakken.

So ik heb een kolom van aantallen (slechts 0s en 1s) en moet het begin tonen en positie voor alle 1s tegenhouden. Bijvoorbeeld output

1
1
1
0
0
1
1
0
1
1
1
1
0
1
0

would:
1-3, 6-7, 9-12, 14

I heeft tot verschillende lijnen geleid en een paar ideeën gehad, maar kan niet dit idee volledig op dit ogenblik begrijpen.  Het kan zijn omdat het Vrijdag is of dat ik word opgehouden. Één van twee.  Als iedereen kon helpen, zou het zeer appreciated.

Thanks zijn!
Rob

Antwoord : Het Algoritme van de behoefte: Tel het Aantal Veelvoudige Tijden van Rijen

Ik heb niet de andere suggesties, zo mijn verontschuldigingen getest als ik iets aanbied die reeds: wordt geprobeerd)

Dit werk als functie.  Zo, als u uw 1s en 0s in, namelijk, A1 hebt: A50, dan in een andere cel zou u gebruiken:

=MakeTheList (A1: A50)
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

Functie MakeTheList (ArrayIn als Variant)
    
    Schemerig x als Variant
    Schemerige StartAt zoals lang, EndAt zoals lang
    Schemerige Teller zoals lang
    
    De Afbakening van Const als Koord = „,“
    
    Voor Elk x in ArrayIn
        Teller = Tegen + 1
        Als x <> 0 toen
            EndAt = Tegen
            Als StartAt = 0 toen StartAt = Tegen
        Anders
            Als EndAt <> 0 toen
                Als StartAt <> EndAt toen
                    MakeTheList = MakeTheList & Afbakening & StartAt & „-“ & EndAt
                Anders
                    MakeTheList = MakeTheList & Afbakening & StartAt
                Eind als
                StartAt = 0
                EndAt = 0
            Eind als
        Eind als
    Daarna
    
    Als StartAt <> 0 toen
        Als StartAt <> EndAt toen
            MakeTheList = MakeTheList & Afbakening & StartAt & „-“ & EndAt
        Anders
            MakeTheList = MakeTheList & Afbakening & StartAt
        Eind als
    Eind als
    
    MakeTheList = Medio (MakeTheList, Len (Afbakening))
    
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us