Als je zo gek bent om dat actief bij te houden: be my guest.
Het lijkt mij echter praktischer om gewoon wat zelfregulering in te brengen en andere mensen ook pro-actief mee te laten helpen. 
'E's fighting in there!' he stuttered, grabbing the captain's arm.
'All by himself?' said the captain.
'No, with everyone!' shouted Nobby, hopping from one foot to the other.
Hm, true. Maar ik wilde op deze manier ervoor zorgen dat er aan het eind iedereen wel zo'n beetje aan z,n trekken komt en dat wanneer deze topic ten einde is dat ik aan TS een nette lijst kan maken voor de overzichtelijkheid.:
[...]
Als je zo gek bent om dat actief bij te houden: be my guest.
[ Voor 5% gewijzigd door Verwijderd op 16-10-2009 16:31 ]
Mijn oplossing is best wel een stuk langer dan de oplossingen voor de vorige contest, ben ik zo'n brakke coder of is deze opdracht zoveel ingewikkelder?Doolhof generator
Schrijf een algoritme die een willekeurige doolhof kan maken met de volgende voorwaarden:
- Er mag maar één manier zijn waarop de doolhof is op te lossen. Alle overige weggetjes lopen dood of in een cirkel Ik heb dit uitgelegd als 1 van beide mogelijkheden, maar niet zowel doodlopend als een cirkel in een overige weg.
- De uitgang en de ingang van het doolhof is altijd op dezelfde plek.Ik heb 1 dezelfde plek als ingang en 1 dezelfde plek als uitgang, niet beide op dezelfde plaats omdat het anders zou conflicteren met de eerste regel (linksom en rechtsom)
- Interface is niet van belang, maar denk wel na over de output data.
Alle overige details vallen onder de artistieke vrijheid van de ontwikkelaar..
Woutert! Mooi dat juist jij er dan ook even een berichtje post!:
Wat een vet nerd-topic. Ik moet helaas wel werken, maar ik zie een aantal hele leuke oplossingen voor opdracht 1 en 2
*sowieso
1
| binair2txt message.txt |
1
| Hello world |
1
| binair2txt 0100100001100101011011000110110001101111001000000111011101101111011100100110110001100100 |
1
| Hello world |
'You like a gay cowboy and you look like a gay terrorist.' - James May
Okay, maar waar is dan de ingang, Is dat linksboven?:
[...]
Rechtsonder
[ Voor 27% gewijzigd door Verwijderd op 17-10-2009 13:33 ]
Decoden in Python::
Om de beginners van een nieuwe opdracht te voorzienMessage decoder
Beschrijving: Het is de bedoeling met deze opdracht om een programma te ontwikkelen die vanuit een textbestand binair cijfers inleest, het omzet naar gewone letters om dan de text op het scherm weer te geven. Bijkomende verplichting is wel dat het niet mag uit maken hoe groot de textbestand is.
Voorbeeld:
Hello world in binair: 0100100001100101011011000110110001101111001000000111011101101111011100100110110001100100
1
2
3
| s = '0100100001100101011011000110110001101111001000000111011101101111011100100110110001100100' splitted = map(lambda i: s[i:i+8], range(0, len(s), 8)) print ''.join(map(lambda b: chr(int(b, 2)), splitted)) |
¸.·´¯`·.¸.·´¯`·.¸><(((º>¸.·´¯`·.¸><(((º>¸.·´¯`·.¸.·´¯`·.¸.·´¯`·.¸<º)))><¸.·´¯`·.¸.·´¯`·.¸.·´¯`·.¸
Dat laat ik me niet twee keer zeggen.
Mijn oplossing is geschreven in PostScript en genereert doolhoven op een hexagonaal grid (want rechthoekige grids zijn zo normaal). Paginagrootte en radius van het doolhof zijn instelbaar; optioneel kunnen de openingen ook at random gekozen worden (wat niet de opdracht was).
Geen map nodig:
Lambda's, map en filter zijn heerlijk om dit soort code compact te schrijven
. De command line variant:1
| print chr(ord(pack("B8",$_))) for shift =~ m/.{8}/g; |
chr(ord()) is toch ook onnodig? gewoon alleen pack():
Geen map nodig
Perl:
Een wappie is iemand die gevallen is voor de (jarenlange) Russische desinformatiecampagnes.
Wantrouwen en confirmation bias doen de rest.
Dat is Perl, de mijne Python:
[...]
Geen map nodig
(en ook daar zal het misschien korter kunnen...)Wow, gave oplossing:
Dat laat ik me niet twee keer zeggen.
[ Voor 51% gewijzigd door user109731 op 17-10-2009 16:33 ]
:
[...]
Dat laat ik me niet twee keer zeggen.
Broncode: maze.txt
Download: maze.ps
Voorbeelduitvoer: maze.pdf
Stuur 'm naar je PostScript Level 2 compatible printer voor een willekeurig gegenereerd doolhof (op basis van de systeemtijd), of open 'm met GhostScript. Het resultaat ziet er bijvoorbeeld zo uit:
[afbeelding]
Nu met Land Rover Series 3 en Defender 90
Laten we eerst opdracht 3 afmaken, voordat je een nieuwe post.:
Om de beginners van een nieuwe opdracht te voorzienMessage decoder
[ Voor 69% gewijzigd door TJHeuvel op 17-10-2009 17:14 ]
Verwijderd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| $start = ($_GET['start'] == '' ? ord('A') : ord($_GET['start'])); $end = ($_GET['end'] == '' ? ord('Z') : ord($_GET['end'])); $diff = $end - $start; for ($i = -$diff; $i <= $diff; $i++) { echo str_repeat(' ', $diff-($diff - abs($i))); echo chr($end - abs($i)); echo str_repeat(' ', ($diff - abs($i))*2-1); if ($end - abs($i) != $start) { echo chr($end - abs($i)); } echo PHP_EOL; } |
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
| A
B B
C C
D D
E E
F F
G G
H H
I I
J J
K K
L L
M M
N N
O O
P P
Q Q
R R
S S
T T
U U
V V
W W
X X
Y Y
Z Z
Y Y
X X
W W
V V
U U
T T
S S
R R
Q Q
P P
O O
N N
M M
L L
K K
J J
I I
H H
G G
F F
E E
D D
C C
B B
A |
[ Voor 58% gewijzigd door Verwijderd op 17-10-2009 19:52 ]
Waarom hou je de reikwijdte maar van A t/m G ipv A t/m Z? En je hebt de opdracht bijna goed, je mist nog een kleine detail.
[ Voor 5% gewijzigd door Verwijderd op 17-10-2009 17:36 ]
Verwijderd
Aangepast. Nu neemt m'n post 5x zoveel ruimte in, vandaar dat ik hem tot de G liet gaan.:
[...]
Waarom hou je de reikwijdte maar van A t/m G ipv A t/m Z? En je hebt de opdracht bijna goed, je mist nog een kleine detail.
Verwijderd
Mooi.:
Ik had je wel geloofd als je had gezegd dat 'ie ook tot Z werkt hoor.
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
| $start = ($_GET['start'] == '' ? ord('A') : ord($_GET['start'])); $end = ($_GET['end'] == '' ? ord('Z') : ord($_GET['end'])); $diff = $end - $start; $turn = (!is_numeric($_GET['turn']) ? 2 : ($_GET['turn'] % ($diff * 2))); for ($i = -$diff; $i <= $diff; $i++) { $offset[0] = $i + $turn; $offset[1] = $i - $turn; if ($i < 0) { $offset[0] += abs($diff); $offset[1] += abs($diff); } else { $offset[0] = $diff - abs($offset[0]); $offset[1] = $diff - abs($offset[1]); } if ($offset[0] < 0) { $offset[0] = abs($offset[0]); } if ($offset[0] > $diff) { $offset[0] = $diff - ($offset[0] % $diff); } if ($offset[1] < 0) { $offset[1] = abs($offset[1]); } if ($offset[1] > $diff) { $offset[1] = $diff - ($offset[1] % $diff); } echo str_repeat(' ', $diff-($diff - abs($i))); echo chr($start + $offset[0]); if ($i > -$diff && $i < $diff) { echo str_repeat(' ', ($diff - abs($i))*2-1); } if ($end - abs($i) != $start) { echo chr($start + $offset[1]); } echo PHP_EOL; } |
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
| C
D B
E A
F B
G C
H D
I E
J F
K G
L H
M I
N J
O K
P L
Q M
R N
S O
T P
U Q
V R
W S
X T
Y U
Z V
Y W
X X
W Y
V Z
U Y
T X
S W
R V
Q U
P T
O S
N R
M Q
L P
K O
J N
I M
H L
G K
F J
E I
D H
C G
B F
A E
B D
C |
, maar had het met minder regels ook al, maar toen deed hij het "achteruit" niet. [ Voor 89% gewijzigd door Verwijderd op 18-10-2009 01:01 ]
Je mist nog de kleine detail: er moet input komen van of een gebruiker of dat je dat zelf doet.:
[...]
Aangepast. Nu neemt m'n post 5x zoveel ruimte in, vandaar dat ik hem tot de G liet gaan.
Verwijderd
Mis ik heull nie!:
[...]
Je mist nog de kleine detail: er moet input komen van of een gebruiker of dat je dat zelf doet.
Voor de rest: goed gedaan
ik krijg d'r ook allemaal leestekens in:
[...]
Mis ik heull nie!
Oké, het is aangepast...
Maar draait het ook?
[ Voor 25% gewijzigd door Verwijderd op 17-10-2009 20:49 ]
Verwijderd
Nja, moet je beide als hoofdletter gebruiken, nu zitten er leestekens tussen de ASCII codes van de A en de b.:
[...]
ik krijg d'r ook allemaal leestekens in
http://acc6635422.e3-srv9...php?start=A&end=b&turn=10
even naar uppercase omzetten denk ik :#
Jep, zie de variabele "turn".:
Ik vind het wel creatief.
Nog maar even naar kijken van de week, iemand suggesties?
[ Voor 37% gewijzigd door Verwijderd op 18-10-2009 09:51 ]
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
| #include <iostream> #include <fstream> #include <sstream> #include <bitset> class binstring { friend std::istream& operator>>(std::istream& in, binstring& str); friend std::ostream& operator<<(std::ostream& in, const binstring& str); public: binstring() : m_str() { } binstring(const std::string& str) : m_str(str) { } const std::string& get() const { return m_str; } private: std::string m_str; }; std::istream& operator>>(std::istream& in, binstring& str) { std::ostringstream oss; do { std::bitset<8> bits; in >> bits; oss << static_cast<char>(bits.to_ulong()); } while (!in.eof()); str.m_str = oss.str(); return in; } std::ostream& operator<<(std::ostream& os, const binstring& str) { for (std::string::const_iterator it = str.m_str.begin(), end = str.m_str.end(); it != end; ++it) { std::bitset<8> bits(*it); os << bits; } return os; } int main(int argc, char** argv) { if (argc != 2) { std::cerr << "Wat moet ik hiermee? Gebruik me zo: " << argv[0] << " <bestandsnaam>" << std::endl; return -1; } std::string name(argv[0]); std::string file(argv[1]); if (name.find("bin2txt.exe") != std::string::npos) { std::ifstream in(file.c_str()); binstring binstr; if (!in.is_open()) { std::cerr << "Bestand " << file << " bestaat volgens mij niet." << std::endl; return -1; } in >> binstr; std::cout << binstr.get() << std::endl; } else if (name.find("txt2bin.exe") != std::string::npos) { std::string str; std::ofstream out(file.c_str()); std::getline(std::cin, str); out << binstring(str); } else { std::cerr << "Identiteitscrisis! Ik zou graag 'bin2txt' of 'txt2bin' heten zodat ik weet wat te doen!" << std::endl; return -1; } return 0; } |
(of je linux binaries .exe noemen)
ASSUME makes an ASS out of U and ME
Omdat ik dat over het algemeen een bad practice vind.:
Waarom je gebruik je niet:
C++:
Scheelde je weer wat typwerk
ASSUME makes an ASS out of U and ME
[Te koop: 3D printers] [Website] Agile tools: [Return: retrospectives] [Pokertime: planning poker]
Volgens mij moet dat in een paar regels STL kunnen, maar ik kan me vergissen en dat een deel daarvan boost.Iostreams is. (hele namespace importeren is bad practice ja, maar hier kan het opzich wel. Dat gaat voornamelijk om headers die een ander include. In een implementatie file vind ik het niet zo erg)
[ Voor 34% gewijzigd door Zoijar op 18-10-2009 13:10 ]
Hoe dan ook, meestal legt jouw werkgever regels op die jij dient te volgen, en zo niet, dan mag je je eigen regels opstellen lijkt me (wat nu dus het geval is)
-niks-
Verwijderd
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
| :- dynamic l/2. %% main predikaat %% a :- a([],0,B),c(B,0,[],[D|E]), reverse(E,F), append(F,[D|E],A), writeToFile(A). a(B) :- as(B),c(B,0,[],[D|E]), reverse(E,F), append(F,[D|E],A), writeToFile(A). as([H|_]) :- assert(l([H], 0)). a(A,26,A). a(A,B,E) :- b(A,B,D), C is B+1, a(D,C,E). %% letters uit standaard alfabet pakken %% b(_,0,D) :- l(D,0). b(A,B,C) :- l(D,B), append(A, D, C). %% main functie voor padding met spaties %% c([],_,A,A). c([A|B],C,D,E) :- d(A,F,C), g(F,H,C), G is C+1, c(B,G,[H|D],E). %% interne padding %% d(A,B,C) :- e([A],D,C), append([A],D,B). e([A],[],_):- l([A], 0). e(A,B,C) :- f(C,[],D), append(D,A,B). f(A,B,B) :- A < 1. f(A,B,C) :- A == 1, append([' '],B,E), D is A-1, f(D,E,C). f(A,B,C) :- A > 1, append([' ',' '],B,E), D is A-1, f(D,E,C). %% externe padding %% g(A,B,C) :- D is 26-C, j(D,[],F), append(F,A,B). j(A,B,B) :- A < 1. j(A,B,C) :- A > 0, append([' '],B,E), D is A-1, j(D,E,C). %% output functies %% writeToFile(A) :- open('results.txt',write,B), writeToFileHelper(A, B), close(B). writeToFileHelper([],_). writeToFileHelper([A|B],C) :- writeToFileHelper2(A,C), nl(C), writeToFileHelper(B,C). writeToFileHelper2([],_). writeToFileHelper2([A|B],C) :- write(C,A), writeToFileHelper2(B,C). %% data voor gebruik standaard alfabet %% l([a], 0). l([b], 1). l([c], 2). l([d], 3). l([e], 4). l([f], 5). l([g], 6). l([h], 7). l([i], 8). l([j],9). l([k],10). l([l],11). l([m],12). l([n],13). l([o],14). l([p],15). l([q],16). l([r],17). l([s],18). l([t],19). l([u],20). l([v],21). l([w],22). l([x],23). l([y],24). l([z],25). |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| :- initialization(main). main :- atom_chars('ABCDEFGHIJKLMNOPQRSTUVWXYZ', A), get_char(C), take_upto(A, C, L), diamond(L). diamond(L) :- mirror(L, A), reverse(L, R), mirror(R, B), diamond(A, B). diamond(_, []). diamond(L, [C|Cs]) :- writeln(C, L), diamond(L, Cs). take_upto([C|_], C, [C]). take_upto([X|Xs], C, [X|Ys]) :- take_upto(Xs, C, Ys). mirror([H|T], U) :- reverse([H|T], S), append(S, T, U). writeln(_, []) :- nl. writeln(C, [D|Xs]) :- (C=D, E=C; E=' '), put_char(E), writeln(C, Xs). |
Ook niet voor PostScript trouwens! Terwijl het allebei vrij simpele talen zijn (makkelijk te parsen); zeker ten op zichte van C++.
[ Voor 105% gewijzigd door Soultaker op 18-10-2009 23:50 . Reden: weg met lower_upper ]
1
2
| A simple program that echoes a line, character by character: ,[.[-],] |
Waarom test je niet gewoon op bin2text (als substring) ipv bin2text.exe ?:
Compileren op Win32 natuurlijk
Verwijderd
Nee hoor:
@KarpetKing: je hebt ook last van de bug dat je a op de eerste en laatste regel dubbel print.
Ah, ik begrijp de verwarring: je programma produceert vier antwoorden, waaronder twee keer de goede en twee keer de verkeerde. Als ik het programma stop na het eerste antwoord staat het goede antwoord in het bestand, maar als ik alle antwoorden laat printen wordt dat bestand nog drie keer overschreven en eindigt de verkeerde uitvoer in 't bestand (dat is dus wat ik deed).:
Nee hoor
Regel 21 verhindert dat:
e([A],[],_):- l([A], 0).
21
| e([A],[],_):- l([A], 0), !. |
Hmz, ik test met GNU Prolog, en ik gebruik lower_upper, wat geen standaardfunctie lijkt te zijn (dat geldt op zich ook voor append en reverse, maar die kent SWI Prolog wél). Ik heb de code in mijn post aangepast. Die verwacht nu dus wel een hoofdletter als invoer anders faalt 'ie alsnog.
Verwijderd
Bedankt voor de verbeteringen. Ik had moeten kijken naar meerdere oplossingen. Regel 12 was inderdaad een overblijfsel
Ik deed eerst in die stap de duplicatie van de letter, die bij 'a' niet hoeft. Het leek me toch handiger dat te doen tijdens het padden.
Compileer maar eens naar: c:\bin2txt\txt2bin.exe
ASSUME makes an ASS out of U and ME
1
2
3
4
5
6
7
| print "######" print "I # U" if rnd mod 2 = 0 then print "# ##" else print "# #" print "######" |
1
| ###############################. |
[ Voor 35% gewijzigd door RobIII op 19-10-2009 22:44 ]
There are only two hard problems in distributed systems: 2. Exactly-once delivery 1. Guaranteed order of messages 2. Exactly-once delivery.
Je eigen tweaker.me redirect
Over mij
Gecorrigeert. En ik kan niet altijd even sterke opdrachten verzinnen/verkrijgen. Dus dat gaat wat moeizaam.
Het is pseudocode, en dat telt dus nietAan de doolhof opdracht had ik, bij wijze van, ook kunnen voldoen met het volgende:
I=Ingang, U=Uitgang
code:
En dan sloof ik me nog uit
En vergeet niet dat ik niet het doolhof opdracht heb gegeven.Zal er voortaan op letten.
[ Voor 4% gewijzigd door Verwijderd op 19-10-2009 22:54 ]
Ik mis nog steeds dat je maar "1 plek" mag springen (bijvoorbeeld) of dat je (natuurlijk) niet mag springen over een "lege" plek. Nu zeg ik dit niet om te nitpicken of om te zeiken (en again; de regels van Solitaire zijn toch wel bekend), maar de opdrachten laten (te) veel aan de verbeelding over. De regels zijn te "vaag" en voor meerdere interpretaties vatbaar. En dat wil je, imho, niet.
Boeie. Het is (zo goed als) VB:
Het is pseudocode, en dat telt dus niet
Ik zeg het ook niet (alleen) specifiek tegen jou maar in 't algemeen. Wat mij betreft is een contest leuk(er) als iedereen 'tzelfde doel voor ogen heeft en tot nu toe blijken er telkens wat interpretatieverschillen (mogelijk) wat de lol er natuurlijk een beetje van af haalt.
There are only two hard problems in distributed systems: 2. Exactly-once delivery 1. Guaranteed order of messages 2. Exactly-once delivery.
Je eigen tweaker.me redirect
Over mij
Nog een keer verbetert.
Heel ergBoeie. Het is (zo goed als) VB
Het is ook geen contest, daar zit het verschil in. IMO is dit topic ervoor om elkaar uit te dagen op het vlak van het geven van oplossingen voor een bepaalde opdracht in zijn/haar bekende programmeer/scripttaal,
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
| static byte[,] letters = new byte[26, 9] { { 8, 20, 34, 34, 62, 34, 34, 34, 34 }, { 60, 34, 34, 60, 34, 34, 34, 34, 60}, { 28, 34, 32, 32, 32, 32, 32, 34, 28}, { 56, 36, 34, 34, 34, 34, 34, 36, 56}, { 62, 32, 32, 32, 56, 32, 32, 32, 62}, { 62, 32, 32, 32, 56, 32, 32, 32, 32}, { 30, 32, 32, 32, 38, 34, 34, 34, 28}, { 34, 34, 34, 62, 34, 34, 34, 34, 34}, { 28, 8, 8, 8, 8, 8, 8, 8, 28}, { 56, 8, 8, 8, 8, 8, 8, 40, 16}, { 34, 34, 36, 36, 40, 52, 36, 34, 34}, { 32, 32, 32, 32, 32, 32, 32, 32, 62}, { 34, 54, 42, 34, 34, 34, 34, 34, 34}, { 34, 50, 42, 38, 34, 34, 34, 34, 34}, { 28, 34, 34, 34, 34, 34, 34, 34, 28}, { 60, 34, 34, 34, 60, 32, 32, 32, 32}, { 28, 34, 34, 34, 34, 34, 34, 28, 14}, { 60, 34, 34, 34, 60, 48, 40, 36, 34}, { 28, 34, 32, 32, 28, 2, 2, 34, 28}, { 62, 42, 8, 8, 8, 8, 8, 8, 8}, { 34, 34, 34, 34, 34, 34, 34, 34, 28}, { 34, 34, 34, 34, 34, 34, 34, 20, 8}, { 34, 34, 34, 34, 34, 34, 34, 42, 20}, { 34, 34, 20, 20, 8, 20, 20, 34, 34}, { 34, 34, 20, 20, 8, 8, 8, 8, 8}, { 62, 34, 4, 4, 8, 8, 16, 18, 62} }; static void Main(string[] args) { foreach (string arg in args) { for (int l = 0; l < 9; l++) { foreach (char c in arg.ToUpper()) { if ((c - 65) >= 0 && (c - 65) < 26) Console.Write(GetBits(letters[(byte)c - 65, l])); } Console.WriteLine(); } Console.WriteLine(); } Console.ReadKey(); } static string GetBits(byte data) { string b = ""; for (int i = 7; i >= 0; i--) b += ((data & (1 << i)) == 0) ? " " : "*"; return b; } |
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
| static UInt64[] letters = new UInt64[26] { 0x81422223E222222, 0x3C22223C2222223C, 0x1C2220202020221C, 0x3824222222222438, 0x3E2020382020203E, 0x3E20203820202020, 0x1E2020262222221C, 0x2222223E22222222, 0x1C0808080808081C, 0x3808080808082810, 0x2222242834242222, 0x202020202020203E, 0x22362A2222222222, //A-M 0x22322A2622222222, 0x1C2222222222221C, 0x3C2222223C202020, 0x1C22222222221C0E, 0x3C22223C30282422, 0x1C22201C0202221C, 0x3E2A080808080808, 0x222222222222221C, 0x2222222222221408, 0x2222222222222A14, 0x2222140814142222, 0x2222140808080808, 0x3E0404080810123E //N-Z }; static void Main(string[] args) { foreach (string arg in args) Console.WriteLine(GetWord(arg.ToUpper())); Console.ReadKey(); } static string GetWord(string data) { StringBuilder p = new StringBuilder((data.Length * 64) + 16); for (int l = 0; l < 8; l++) p.AppendLine(GetLine(data, l)); return p.ToString(); } static string GetLine(string data, int line) { StringBuilder p = new StringBuilder(data.Length * 8); foreach (char c in data) if (c >= 65 && c <= 90) //A-Z only p.Append(GetBits((byte)(letters[(byte)c - 65] >> ((7 - line) * 8)))); return p.ToString(); } static string GetBits(byte data) { StringBuilder p = new StringBuilder(8); for (int i = 7; i >= 0; i--) p.Append(((data & (1 << i)) == 0) ? " " : "*"); return p.ToString(); } |
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
| static UInt64[] letters = new UInt64[26] { 0X8288913E4489122, 0X3C4489E22448913C, 0X1C4481020408111C, 0X3848891224489238, 0X3E4081038408103E, 0X3E40810384081020, 0X1E4081026448911C, 0X224489F224489122, 0X1C1020408102041C, 0X3810204081021410, 0X2244912286891122, 0X204081020408103E, 0X226CA91224489122, //A-M 0X2264A93224489122, 0X1C4489122448911C, 0X3C448913C4081020, 0X1C44891224488E0E, 0X3C448913C60A1222, 0X1C448101C040911C, 0X3E54204081020408, 0X224489122448911C, 0X2244891224488A08, 0X2244891224489514, 0X224450A082851122, 0X224450A081020408, 0X3E4410208104093E //N-Z }; static void Main(string[] args) { foreach (string arg in args) Console.WriteLine(GetWord(arg.ToUpper())); Console.ReadKey(); } static string GetWord(string data) { StringBuilder p = new StringBuilder((data.Length * 63) + 18); for (int l = 0; l < 9; l++) p.AppendLine(GetLine(data, l)); return p.ToString(); } static string GetLine(string data, int line) { StringBuilder p = new StringBuilder(data.Length * 7); foreach (char c in data) if (c >= 65 && c <= 90) //A-Z only p.Append(GetBits((byte)(letters[(byte)c - 65] >> ((8 - line) * 7)))); return p.ToString(); } static string GetBits(byte data) { StringBuilder p = new StringBuilder(7); for (int i = 6; i >= 0; i--) p.Append(((data & (1 << i)) == 0) ? " " : "*"); return p.ToString(); } |
C:\Users\Rob.Devcorner>letters.exe the quick brown fox jumps over the lazy dog ***** * * ***** * * * * * * * * * * * ***** * * * * *** * * * * * * * * * * * * * * * ***** *** * * *** *** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * *** * * * * * * * *** *** *** *** * * **** **** *** * * * * * * * * * * * * ** * * * * * * * * * * * * **** * * * * * * * ** * * **** * * * * * * * * ** * * * * * * * * * * * * * * * * * * * * * * * * * * * **** * * *** * * * * ***** *** * * * * * * * * * * * * * * * * * *** * * * * * * * * * * * * * * * * * * * *** * * *** * * * * **** *** * * * ** ** * * * * * * * * * * * * * * * * * * * * * * * * * * **** *** * * * * * * * * * * * * * * * * * * * * * * * * *** * * * *** *** * * ***** **** * * * * * * * * * * * * * * * * * * * * * * * * * *** **** * * * * * ** * * * * * * * * * * * * * * *** * ***** * * ***** * * ***** * * * * * * * * * * * ***** * * * * *** * * * * * * * * * * * * * * * ***** * * ***** * * * * * * * * * * * * * * * * * * * * * * ***** * * * * * * * * * * * * * * * * * * ***** * * ***** * *** *** **** * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * * * * * * * *** *** ***
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| static UInt64[] letters = new UInt64[26] { 0X8288913E4489122, 0X3C4489E22448913C, 0X1C4481020408111C, 0X3848891224489238, 0X3E4081038408103E, 0X3E40810384081020, 0X1E4081026448911C, 0X224489F224489122, 0X1C1020408102041C, 0X3810204081021410, 0X2244912286891122, 0X204081020408103E, 0X226CA91224489122, //A-M 0X2264A93224489122, 0X1C4489122448911C, 0X3C448913C4081020, 0X1C44891224488E0E, 0X3C448913C60A1222, 0X1C448101C040911C, 0X3E54204081020408, 0X224489122448911C, 0X2244891224488A08, 0X2244891224489514, 0X224450A082851122, 0X224450A081020408, 0X3E4410208104093E //N-Z }; static void Main(string[] args) { Console.BufferWidth = (string.Join(" ", args).Length * 7) + 1; for (int l = 0; l < 9; l++) foreach (char c in string.Join(new string(' ', 7), args).ToUpper() + Environment.NewLine) if (c >= 65 && c <= 90) //A-Z only for (int i = 6; i >= 0; i--) Console.Write(((((byte)(letters[(byte)c - 65] >> ((8 - l) * 7))) & (1 << i)) == 0) ? " " : "*"); else Console.Write(c); Console.ReadKey(); } |
C:\Users\Rob.Devcorner>letters.exe the quick brown fox jumps over the lazy dog ***** * * ***** *** * * *** *** * * **** **** *** * * * * ***** *** * * *** * * * * **** *** *** * * ***** **** ***** * * ***** * * ***** * * *** *** **** * * * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * ** ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ***** * * * * * * * * * **** * * * * * * * ** * * * * * * * * * * * * * * * * * * * * * ***** * * * * * * * * * * * * * * * *** * * * * * * * * * * **** * * * * * * *** * * * * * * * * **** *** * * * * *** **** * * * *** * ***** * * * * * * * ** * * * * * * * * * * ** * * * ** * * * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ***** *** *** *** *** * * **** * * *** * * * * * *** * * * *** * * * *** *** * ***** * * * * * ***** ***** * * ***** * *** *** ***
[ Voor 250% gewijzigd door RobIII op 21-10-2009 02:19 ]
There are only two hard problems in distributed systems: 2. Exactly-once delivery 1. Guaranteed order of messages 2. Exactly-once delivery.
Je eigen tweaker.me redirect
Over mij
Point taken. 1 week it is.
Het Doolhof opdracht heb ik niet geoppert. Maar ik kan niet goed zien wat te moeilijk is voor de mensen.
1
2
| #include <iostream> void main(int i,char **a){char c;i=0;while(a[1][i]!=0){c<<=1;if(a[1][i]=='1')c|=1;if(i++%8==7)std::cout<<c;}} |
.[ Voor 16% gewijzigd door Dricus op 22-10-2009 16:22 . Reden: Nog 2 tekens minder :P ]
Stel niet uit tot morgen wat je vandaag nog tot morgen kunt uitstellen...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| using System; using System.Drawing; class Program { static void Main(string[] args) { string t = args.Length > 0 ? string.Join(" ", args) : "The quick brown fox jumps over the lazy dog"; Bitmap c = new Bitmap(t.Length * 9, 20); using (Graphics g = Graphics.FromImage(c)) //Create graphics object and draw text in bitmap g.DrawString(t, new Font("Courier New", 8, FontStyle.Bold), Brushes.White, 0, 0); Console.BufferWidth = c.Width + 1; //Set console width for (int y = 0; y < c.Height; y++) for (int x = 0; x < c.Width; x++) Console.Write((x == 0 ? "\r\n" : "") + ((c.GetPixel(x, y).GetBrightness() > 0) ? "*" : " ")); c.Dispose(); } } |
/u/107051/jeroenmadtrix60.png?f=community)
:strip_icc():strip_exif()/u/253641/crop686f9cec6f8b1_cropped.jpg?f=community)
/u/112490/crop5821eafeac2b9_cropped.png?f=community)
/u/145301/mo.png?f=community)
:strip_icc():strip_exif()/u/152033/ljfh23lf.jpg?f=community)
:strip_exif()/u/11775/SoulTaker.gif?f=community)
:strip_icc():strip_exif()/u/5080/veldsla.jpg?f=community)
:strip_icc():strip_exif()/u/6754/image.jpg?f=community)
:strip_exif()/u/261638/Happy2.gif?f=community)
:strip_exif()/u/72391/Pinky_and_the_Brain_-_Brain.gif?f=community)
/u/189240/av70.png?f=community)
:strip_icc():strip_exif()/u/35767/images.jpg?f=community)
:strip_exif()/u/119637/logo.gif?f=community){kind=logo}
:strip_icc():strip_exif()/u/7307/images.jpg?f=community)
/u/39688/AnnoAvatarSmall.png?f=community){kind=avatar}
:strip_icc():strip_exif()/u/43400/avatar.jpeg?f=community){kind=avatar}
:strip_icc():strip_exif()/u/113659/viruswp.jpg?f=community)
/u/47683/Asterix%252060x60.png?f=community)
:strip_icc():strip_exif()/u/13964/crop66d0a93a33207_cropped.jpg?f=community)
********* ** *** *** *** ** ** *** ***
* ** * ** ** ** ** ** ** **
* ** * **** **** ********* ****** ***** ** ** ***** *** ** ******** ******** ***** **** *** *** ***** *** ************** ***** **** *** ******* *** ** ***** **** **** ***** **** ******
** ** ** ** ** ** ** ** ** ** ** * **** ** ** *** * ** **** * ** ** ** ** ** ** ** ** ** ** ** ** * *** ** ** * ** ** ** **** ** *** * ** ** **** ** ** ** ** ** ** **
** ** ** ****** ** ** ** ** ** ** **** ** ** ** ** **** * ** ** ** ** ** ** *** ** ** ** ** * *** ** **** ** ** * * ****** ** ** ** ******** ** ** ** ** ** **
** ** ** ** ** ** ** ** ** ** * ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** * *** ** * ** ** ** *** ** ** ** * ** **** ** ** ** ** ** **
**** *** *** ***** ***** ********** **** *** ** ****** ***** **** ** ** *** *** ***** **** *** *** ** ******* * ****** ***** **** *** ***** ***** *** *** ******** ****** **** *****
** ** ** **
***** **** ***** ****
*Bold 
*Normaal )1
2
3
4
5
6
7
8
9
10
| class Program { static void Main(string[] args) { string t = args.Length > 0 ? string.Join(" ", args) : "The quick brown fox jumps over the lazy dog"; System.Drawing.Bitmap c = new System.Drawing.Bitmap(t.Length * 9, 20); System.Drawing.Graphics.FromImage(c).DrawString(t, new System.Drawing.Font("Courier New", 8, System.Drawing.FontStyle.Bold), System.Drawing.Brushes.White, 0, 0); System.Console.BufferWidth = c.Width + 1; for (int y = 0; y < c.Height; y++) for (int x = 0; x < c.Width; x++) System.Console.Write((x == 0 ? "\r\n" : "") + ((c.GetPixel(x, y).GetBrightness() > 0) ? "*" : " ")); } } |
[ Voor 28% gewijzigd door RobIII op 23-10-2009 00:19 . Reden: Logica foutje eruit gehaald ]
There are only two hard problems in distributed systems: 2. Exactly-once delivery 1. Guaranteed order of messages 2. Exactly-once delivery.
Je eigen tweaker.me redirect
Over mij
. Jouw oneliner vind ik erg leuk ..):
Stel niet uit tot morgen wat je vandaag nog tot morgen kunt uitstellen...
1. Het is voor de fun.:
Nu zijn de regels van solitaire "alom bekend" maar ik vind de opdracht(en) wel telkens nogal te wensen over laten; er staat nu (bijv.) nergens dat je niet schuin mag "springen" en altijd maar 1 "plek" mag (over)springen. De regels zoals je ze nu hier uit legt laten dus (te) veel aan de verbeelding over en hebben het risico verkeerd geïnterpreteerd te worden.
Aan de doolhof opdracht had ik, bij wijze van, ook kunnen voldoen met het volgende:
I=Ingang, U=Uitgang
code:
En dan sloof ik me nog uit
Voor je solitaire opdracht, zoals jij 'm omschreven hebt, zou ik dus al voldoen met:
code:
Voila. 32 velden, 1 leeg. En spring maar raak
Een goede contest begint met een duidelijk afgebakende opdracht; anders ben je appels met peren aan 't vergelijken.
http://hawvie.deviantart.com/
Oke hij miept, maar ik vind deze opgave ook niet zo sterk als de vorige. Ten eerste schijnen er meerdere solitaire-borden te bestaan volgens de site. Ten tweede kun je wat moeilijker je uitkomsten vergelijken met andere spelers, het ziet er niet zo gaaf uit als een doolhof bijvoorbeeld. Ten derde staan er al uitgewerkte oplossingen op de wikipedia pagina. Misschien is het leuker om 4 of 5 solitaire-situaties in een tekstbestand aan te leveren en de vraag te stellen: kun je ze oplossen en zo ja, in hoeveel zetten?:
[...]
1. Het is voor de fun.
2. Het is geen contest
3. Er is niets willekeurigs aan je uitvoering want er is maar één weg naar de uitgang.
4. Doe gewoon gezellig ipv te miepen..
1
| print 'x:x=ex,lj,ck,Pf,DP,GI,JH,mG,GI,ik,gi,LJ,JH,Hl,lj,jh,CK,pF,AC,CK,Mg,gi,ac,ck,kI,dp,pF,FD,DP,Pp,ox' |
Onvoorstelbaar!
Ah, ik gokte dat omdat je dingen als a\[1][i] !=0 schrijft wat in Java noodzakelijk is omdat je een char of int niet als conditie mag gebruiken (dat moet een expressie van type boolean zijn). In C ben ik zelfs in normale code geneigd gewoon a\[1][i] te schrijven en dat levert hier toch weer drie karakters op!
Nette oplossing! Al had RobIII's bitmap font meer street cred.
* BalusC vloekte echter wel even dat java.lang.String of java.util.Arrays geen join() kende.
[ Voor 9% gewijzigd door BalusC op 22-10-2009 23:21 ]
.
.Stel niet uit tot morgen wat je vandaag nog tot morgen kunt uitstellen...
.
Stel niet uit tot morgen wat je vandaag nog tot morgen kunt uitstellen...
[ Voor 3% gewijzigd door BalusC op 23-10-2009 17:16 ]
maar ik ben bezig met het schrijven van een "oplosser")[ Voor 19% gewijzigd door D-Raven op 23-10-2009 17:40 ]
Ik heb jou oplossing geport naar c#. Dit hielp mij om een soort mentale voorstelling te maken van wat er gebeurd. Ik snap nu ook waarom er altijd een oplossing is. Ook al loopt de laatste vertakking zegmaar net voor de uitgang (eigenlijk ingang dus). Als deze vertakking zichzelf of iets anders kruist zal hij verder vertakken bij de eerst volgende neighbor die nog niet bezocht is. Dit zal dan uiteindelijk het gat bij de ingang zijn. Waardoor er dus een opening tussen de vertakking en de ingang wordt gecreëerd.
Hulde voor je uitleg, erg duidelijk
[ Voor 5% gewijzigd door Phyxion op 27-10-2009 08:03 ]
'You like a gay cowboy and you look like a gay terrorist.' - James May
Of een goede Go player:
Ik kan ook het opdracht opperen van het maken van een oplosser voor schaken
Onvoorstelbaar!
Give a man a game and he'll have fun for a day. Teach a man to make games and he'll never have fun again.
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
| using System; using System.Text; class Program { static void Main(string[] args) { Console.WriteLine(ZitsCode(string.Join(" ", args))); Console.ReadKey(); } private static string ZitsCode(string value) { if (string.IsNullOrEmpty(value)) throw new ArgumentOutOfRangeException("Value cannot be null or empty"); int s = (int)Math.Ceiling(Math.Sqrt(value.Length)); char[,] m = new char[s, s]; int x = 0, y = 0, xd = 1, yd = 0, xx = s - 1, yx = xx, xn = 0, yn = 1; foreach (char c in value) { m[x, y] = c; if ((x == xx) && (xd == 1)) { xd = 0; yd = 1; xx--; } if ((y == yx) && (yd == 1)) { xd = -1; yd = 0; yx--; } if ((x == xn) && (xd == -1)) { xd = 0; yd = -1; xn++; } if ((y == yn) && (yd == -1)) { xd = 1; yd = 0; yn++; } x += xd; y += yd; } StringBuilder r = new StringBuilder((s * s) + ((s - 1) * 2)); for (y = 0; y < s; y++) for (x = 0; x < s; x++) r.Append(((x == 0 && y > 0) ? "\r\n" : "") + m[x, y]); return r.ToString(); } } |
C:\Users\Rob\Zitscode.exe The quick brown fox jumps over the lazy dog The qui ps ovec m dogrk uy jz tb al ehr xof nwo C:\Users\Rob\Zitscode.exe abcd fgh jklmn pqrstu wxyz1 34567 abcd f tu wxg s67 yh r5 z q43 1j p nmlk
)
[ Voor 3% gewijzigd door RobIII op 28-10-2009 13:05 ]
There are only two hard problems in distributed systems: 2. Exactly-once delivery 1. Guaranteed order of messages 2. Exactly-once delivery.
Je eigen tweaker.me redirect
Over mij
:strip_icc():strip_exif()/u/47583/ollie.jpg?f=community)
:strip_icc():strip_exif()/u/36083/crop5dca9e34ce091_cropped.jpeg?f=community)
:strip_icc():strip_exif()/u/12461/crop65b195553d948.jpg?f=community)
