[TOUS LANGAGES] montrez vos codes

montrez vos codes [TOUS LANGAGES] - Programmation

Marsh Posté le 28-03-2002 à 08:59:58    

oui je sais, c'est bête comme topic
 
Le but du jeu : à partir d'un petit cas concrèt, vous montrez le code que vous aurez fait en indiquant le langage utilisé.
 
Qui propose un petit cas concrèt ? Heu, pas un truc de 50 lignes, je sais po moa, un petit exo avec lecture/écriture dans un fichier ?
 
Qui s'y colle ?
 
Zo fait, ma spécialité c'est PERL et j'vous préviens tt de suite : j'va vous perler la têteuuuuu :lol:


---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL
Reply

Marsh Posté le 28-03-2002 à 08:59:58   

Reply

Marsh Posté le 28-03-2002 à 09:16:11    

bin vas y balance .. :)


---------------
Just because you feel good does not make you right
Reply

Marsh Posté le 28-03-2002 à 09:18:22    

c'est pas très dur ça lecture écriture dans un fichier...
Plutôt une fonction qui a comme paramètre "GDGGDGDGDGDGGDGDGDGDGGGDDG", et qui renvoie 1 chaine avec tous les G à gauche, et tous les D à droite...
 
EN C++ :
 
 
#include <string.h>
#include <iostream.h>
 
char *classer(char *pasclasse)
{
int g=0, d=0;
char *classe;
for (int i=0; i<sizeof(pasclasse); i++)
 if (pasclasse[i] = 'G';)
  g++;
 else
  d++;
for (i=0; i<g; i++)
 strcat(classe, "G" );
for (i=0; i<d; i++)
 strcat(classe, "D" );
return classe;
}
 
void main()
{
cout << classer("GDGGDGDGDGDGGDGDGDGDGGGDDG" );
}
 
 
Très loin d'être optimisée (pas de vérification qu'il y ait que des G et des D en entrée, etc...), mais c'est juste pour montrer ce qu'on doit faire...
pis là j'ai un pb très important et j'attends la réponse sur software et réseau !!! HELP ME !!! :cry:  :cry:
 
 :hello:  
 
elle est dans l'esprit de ce que tu cherche mon idée ?

 

[jfdsdjhfuetppo]--Message édité par juju_le_barbare--[/jfdsdjhfuetppo]


---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com
Reply

Marsh Posté le 28-03-2002 à 09:27:57    

en PERL :
 
my $G;
my $D;
my $chaine = "GDGGDGDGDGDGGDGDGDGDGGGDDG";
 
while ($chaine) {
    $_ = chop($chaine);
    $G .= $_ if ($_ =~ /G/);
    $D .= $_ if ($_ =~ /D/);
}
print "$G$D";


---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL
Reply

Marsh Posté le 28-03-2002 à 09:38:12    

et c'est ce que tu voulais ?
 
et mon problème sur software, kkun a une idée ???


---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com
Reply

Marsh Posté le 28-03-2002 à 09:39:29    

juju_le_barbare a écrit a écrit :

et c'est ce que tu voulais ?
 
et mon problème sur software, kkun a une idée ???  




 
si tu filais le lien ...


---------------
Just because you feel good does not make you right
Reply

Marsh Posté le 28-03-2002 à 09:40:59    

Reply

Marsh Posté le 28-03-2002 à 09:56:31    

juju_le_barbare a écrit a écrit :

et c'est ce que tu voulais ?



ce que je voulais, c'est voir comment, selon les langages, on peut obtenir le même résultat
 
Mon truc n'avait pas pour autre but que ça, comme si j'avais demandé "dites, comment vous faites le programme Hello, World" dans votre langage ?


---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL
Reply

Marsh Posté le 28-03-2002 à 11:18:48    

Le but de la manipulation est d'écrire un programme qui
Affichera "HELLO WORLD" à l'écran.
 

Code :
  1. Terminale
  2. -----------------------------------------------------
  3. 10 PRINT "HELLO WORLD"
  4. 20 END
  7. DUT 1ère année
  8. -----------------------------------------------------
  9. program HELLO(input, output)
  10. begin
  11. writeln('HELLO WORLD')
  12. end
  15. DUT 2ème année
  16. -----------------------------------------------------
  17. (defun HELLO
  18. (print
  19. (cons 'HELLO (list 'WORLD))
  20. )
  21. )
  24. Fraîchement sorti de l'école
  25. -----------------------------------------------------
  26. #include
  27. void main(void) {
  28. char *message[] = {"HELLO ", "WORLD"};
  29. int i;
  31. for(i = 0; i < 2; ++i)
  32. printf("%s", message[i]);
  33. printf("\n" );
  34. }
  37. Professionnel très expérimenté
  38. -----------------------------------------------------
  39. #include
  40. #include
  41. class string {
  42. private:
  43. int size;
  44. char *ptr;
  45. public:
  46. string() : size(0), ptr(new char('\0')) {}
  48. string(const string &s) : size(s.size) {
  49. ptr = new char[size + 1];
  50. strcpy(ptr, s.ptr);
  51. }
  53. ~string() {
  54. delete [] ptr;
  55. }
  57. friend ostream &operator <<(ostream &, const string
  58. &);
  59. string &operator=(const char *);
  60. };
  62. ostream &operator<<(ostream &stream, const string &s) {
  63. return(stream << s.ptr);
  64. }
  66. string &string::operator=(const char *chrs) {
  67. if (this != &chrs) {
  68. delete [] ptr;
  69. size = strlen(chrs);
  70. ptr = new char[size + 1];
  71. strcpy(ptr, chrs);
  72. }
  73. return(*this);
  74. }
  76. int main() {
  77. string str;
  78. str = "HELLO WORLD";
  79. cout << str << endl;
  80. return(0);
  81. }
  84. Professionnel vraiment très très expérimenté
  86. --------------------------------------------------
  88. -------------
  89. -----------
  91. --------------------------------
  92. [
  93. uuid(2573F8F4-CFEE-101A-9A9F-00AA00342820)
  94. ]
  95. library LHello
  96. {
  97. // bring in the master library
  98. importlib("actimp.tlb" );
  99. importlib("actexp.tlb" );
  101. // bring in my interfaces
  102. #include "pshlo.idl"
  103. [
  104. uuid(2573F8F5-CFEE-101A-9A9F-00AA00342820)
  105. ]
  106. cotype THello
  107. {
  108. interface IHello;
  109. interface IPersistFile;
  110. };
  111. };
  113. [
  114. exe,
  115. uuid(2573F890-CFEE-101A-9A9F-00AA00342820)
  116. ]
  117. module CHelloLib
  118. {
  119. // some code related header files
  120. importheader();
  121. importheader();
  122. importheader();
  123. importheader("pshlo.h" );
  124. importheader("shlo.hxx" );
  125. importheader("mycls.hxx" );
  127. // needed typelibs
  128. importlib("actimp.tlb" );
  129. importlib("actexp.tlb" );
  130. importlib("thlo.tlb" );
  132. [
  133. uuid(2573F891-CFEE-101A-9A9F-00AA00342820),
  134. aggregatable
  135. ]
  136. coclass CHello
  137. {
  138. cotype THello;
  139. };
  140. };
  142. #include "ipfix.hxx"
  143. extern HANDLE hEvent;
  144. class CHello : public CHelloBase
  145. {
  146. public:
  147. IPFIX(CLSID_CHello);
  149. CHello(IUnknown *pUnk);
  150. ~CHello();
  152. HRESULT __stdcall PrintSz(LPWSTR pwszString);
  154. private:
  155. static int cObjRef;
  156. };
  158. #include
  159. #include
  160. #include
  161. #include
  162. #include "thlo.h"
  163. #include "pshlo.h"
  164. #include "shlo.hxx"
  165. #include "mycls.hxx"
  167. int CHello::cObjRef = 0;
  169. CHello::CHello(IUnknown *pUnk) : CHelloBase(pUnk)
  170. {
  171. cObjRef++;
  172. return;
  173. }
  175. HRESULT __stdcall CHello::PrintSz(LPWSTR pwszString)
  176. {
  177. printf("%ws\n", pwszString);
  178. return(ResultFromScode(S_OK));
  179. }
  181. CHello::~CHello(void)
  182. {
  183. // when the object count goes to zero, stop the server
  184. cObjRef--;
  185. if( cObjRef == 0 )
  186. PulseEvent(hEvent);
  187. return;
  188. }
  190. #include
  191. #include
  192. #include "pshlo.h"
  193. #include "shlo.hxx"
  194. #include "mycls.hxx"
  196. HANDLE hEvent;
  198. int _cdecl main(int argc, char * argv[]) {
  199. ULONG ulRef;
  200. DWORD dwRegistration;
  201. CHelloCF *pCF = new CHelloCF();
  203. hEvent = CreateEvent(NULL, FALSE, FALSE, NULL);
  205. // Initialize the OLE libraries
  206. CoInitializeEx(NULL, COINIT_MULTITHREADED);
  208. CoRegisterClassObject(CLSID_CHello, pCF,
  209. CLSCTX_LOCAL_SERVER,
  210. REGCLS_MULTIPLEUSE, &dwRegistration);
  212. // wait on an event to stop
  213. WaitForSingleObject(hEvent, INFINITE);
  215. // revoke and release the class object
  216. CoRevokeClassObject(dwRegistration);
  217. ulRef = pCF->Release();
  219. // Tell OLE we are going away.
  220. CoUninitialize();
  222. return(0);
  223. }
  225. extern CLSID CLSID_CHello;
  226. extern UUID LIBID_CHelloLib;
  228. CLSID CLSID_CHello = { /* 2573F891-CFEE-101A-9A9F-
  229. 00AA00342820 */
  230. 0x2573F891,
  231. 0xCFEE,
  232. 0x101A,
  233. { 0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20 }
  234. };
  236. UUID LIBID_CHelloLib = { /* 2573F890-CFEE-101A-9A9F-
  237. 00AA00342820 */
  238. 0x2573F890,
  239. 0xCFEE,
  240. 0x101A,
  241. { 0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20 }
  242. };
  244. #include
  245. #include
  246. #include
  247. #include
  248. #include
  249. #include "pshlo.h"
  250. #include "shlo.hxx"
  251. #include "clsid.h"
  253. int _cdecl main(int argc, char * argv[]) {
  254. HRESULT hRslt;
  255. IHello *pHello;
  256. ULONG ulCnt;
  257. IMoniker * pmk;
  258. WCHAR wcsT[_MAX_PATH];
  259. WCHAR wcsPath[2 * _MAX_PATH];
  261. // get object path
  262. wcsPath[0] = '\0';
  263. wcsT[0] = '\0';
  264. if( argc 1) {
  265. mbstowcs(wcsPath, argv[1], strlen(argv[1]) + 1);
  266. wcsupr(wcsPath);
  267. } else {
  268. fprintf(stderr, "Object path must be specified\n" );
  269. return(1);
  270. }
  272. // get print string
  273. if(argc 2)
  274. mbstowcs(wcsT, argv[2], strlen(argv[2]) + 1);
  275. else
  276. wcscpy(wcsT, L"Hello World" );
  278. printf("Linking to object %ws\n", wcsPath);
  279. printf("Text String %ws\n", wcsT);
  281. // Initialize the OLE libraries
  282. hRslt = CoInitializeEx(NULL, COINIT_MULTITHREADED);
  284. if(SUCCEEDED(hRslt)) {
  285. hRslt = CreateFileMoniker(wcsPath, &pmk);
  286. if(SUCCEEDED(hRslt))
  287. hRslt = BindMoniker(pmk, 0, IID_IHello,
  288. (void **)&pHello);
  290. if(SUCCEEDED(hRslt)) {
  291. // print a string out
  292. pHello->PrintSz(wcsT);
  294. Sleep(2000);
  295. ulCnt = pHello->Release();
  296. } else
  297. printf("Failure to connect, status: %lx",
  298. hRslt);
  300. // Tell OLE we are going away.
  301. CoUninitialize();
  302. }
  304. return(0);
  305. }
  310. Administrateur Système
  311. -----------------------------------------------------
  312. #include
  313. main() {
  314. char *tmp;
  315. int i=0;
  317. /* on y va bourin */
  318. tmp=(char *)malloc(1024*sizeof(char));
  319. while (tmp[i]="HELLO WORLD"[i++]);
  321. /* Ooopps y'a une infusion ! */
  322. i=(int)tmp[8];
  323. tmp[8]=tmp[9];
  324. tmp[9]=(char)i;
  325. printf("%s\n",tmp);
  326. }
  329. Apprenti Hacker
  330. -----------------------------------------------------
  331. #!/usr/local/bin/perl
  332. $msg="HELLO, WORLD.\n";
  333. if ($#ARGV >= 0) {
  334. while(defined($arg=shift(@ARGV))) {
  335. $outfilename = $arg;
  336. open(FILE, ">" . $outfilename) || die "Can't write
  337. $arg: $!\n";
  338. print (FILE $msg);
  339. close(FILE) || die "Can't close $arg: $!\n";
  340. }
  341. } else {
  342. print ($msg);
  343. }
  344. 1;
  347. Hacker expérimenté
  348. -----------------------------------------------------
  349. #include
  350. #define S "HELLO, WORLD\n"
  351. main(){exit(printf(S) == strlen(S) ? 0 : 1);}
  354. Hacker très expérimenté
  355. -----------------------------------------------------
  356. % cc -o a.out ~/src/misc/bv/bv.c
  357. % a.out
  360. Gourou des Hackers
  361. -----------------------------------------------------
  362. % cat
  363. HELLO, WORLD.
  364. ^D
  367. Directeur junior
  368. -----------------------------------------------------
  369. 10 PRINT "HELLO WORLD"
  370. 20 END
  373. Directeur
  374. -----------------------------------------------------
  375. mail -s "HELLO, WORLD." bob@b12
  376. Henri, pourrais-tu m'écrire un programme qui écrit "HELLO,
  377. WORLD." À l'écran?
  378. J'en ai besoin pour demain.
  379. ^D
  382. Directeur sénior
  383. -----------------------------------------------------
  384. % zmail Jean
  385. J'ai besoin d'un programme "HELLO, WORLD." Pour cette
  386. après-midi.
  389. Président Directeur Général
  390. -----------------------------------------------------
  391. % letter
  392. letter: Command not found.
  393. % mail
  394. To: ^X ^F ^C
  395. % help mail
  396. help: Command not found.
  397. % damn!
  398. !: Event unrecognized
  399. % logout


 
LEGREG

Reply

Marsh Posté le 28-03-2002 à 11:35:32    

En Python :
 

Code :
  1. machaine="GDGGDGDGDGDGGDGDGDGDGGGDDG"
  3. def trier(chaine):
  4.    return chaine.count("G" )*"G"+chaine.count("D" )*"D"
  6. print trier(machaine)

 

[jfdsdjhfuetppo]--Message édité par Jar Jar--[/jfdsdjhfuetppo]


---------------
« No question is too silly to ask, but, of course, some are too silly to answer. » -- Perl book
Reply

Marsh Posté le 28-03-2002 à 11:35:32   

Reply

Marsh Posté le 28-03-2002 à 11:41:57    

legreg >>>  :lol:  :lol:


---------------
La musique c'est comme la bouffe, tu te souviens du restaurant dans lequel t'as bien mangé 20 ans plus tôt, mais pas du sandwich d'il y a 5 minutes :o - Plugin pour winamp ©Harkonnen : http://harko.free.fr/soft
Reply

Marsh Posté le 28-03-2002 à 11:43:15    

legreg : LOL  :D  
Sauf pour la terminale:
10 PRINT "Hello World"
20 END
 
JE suis en terminale, mais je ne suis pas tombé si bas quand même...  ;)


---------------
iteme.free.fr | Mon feedback
Reply

Marsh Posté le 28-03-2002 à 11:52:24    

C'est pas la façon la plus efficace, il y a pas de verif de la chaine d'entrée, mais au moins elle montre des caractéristiques interressantes du langage :
 

Code :
  1. String machaine="GDGGDGDGDGDGGDGDGDGDGGGDDG" ;
  2.     String result;
  4.     machaine.substitute ("G", "G:" );
  5.     machaine.substitute ("D", "D:" );
  6.     machaine.strip (":" );
  8.     machaine.segment (":" ) {
  9.         if (self == "G" ) {
  10.             result.prepend (self);
  11.         } else {
  12.             result.strcat (self);
  13.         }
  14.     }
  16.     StdOut.write (result + NL);

 

[jfdsdjhfuetppo]--Message édité par kadreg--[/jfdsdjhfuetppo]


---------------
brisez les rêves des gens, il en restera toujours quelque chose...  -- laissez moi troller sur discu !
Reply

Marsh Posté le 28-03-2002 à 11:58:43    

Allez, en Java :  
 
class Truc {
 
  public static String Trie(String s) {
     char[] ca = s.toCharArray();
     StringBuffer gbuffer = new StringBuffer();
     StringBuffer dbuffer = new StringBuffer();
 
     for (int i = 0; i < s.length; i++) {
         switch ca[i] {
             case 'G':
                 gbuffer.append(ca[i]);
                 break;
             case 'D':
                 dbuffer.append(ca[i]);
                 break;
              default:
                 System.out.println("J'ai dit des G ou des D, banane!" );
                 break;
         }
         System.out.println(dbuffer.toString()+gbuffer.toString());
     }
 
     public static void usage() {
         System.out.println("Truc [serie de G et de D]" );
     }
     
     public static void Main(String[] args) {
        if (args.lengh == 1) {          
          Trie(args[0]);
        } else {
           usage();
        }
     }
}

Reply

Marsh Posté le 28-03-2002 à 12:04:09    

Legred  :lol:  :lol:  :lol:  :lol:  
Trop fort !
Et c'est tellement vrai !
J'adore vraiment très fort...

Reply

Marsh Posté le 28-03-2002 à 12:28:04    

kadreg a écrit a écrit :

C'est pas la façon la plus efficace, il y a pas de verif de la chaine d'entrée, mais au moins elle montre des caractéristiques interressantes du langage :


Euuuuh, et c'est quel langage ?


---------------
« No question is too silly to ask, but, of course, some are too silly to answer. » -- Perl book
Reply

Marsh Posté le 28-03-2002 à 12:36:28    

legreg : BRUTE !!! :ouch::benetton::crazy:

 

[jfdsdjhfuetppo]--Message édité par Aricoh--[/jfdsdjhfuetppo]


---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL
Reply

Marsh Posté le 28-03-2002 à 14:40:41    

LEGREG :  :lol:  :lol:  :lol:  :lol:  :lol:  :lol:  :lol:  
 
Du grand art !

Reply

Marsh Posté le 28-03-2002 à 14:48:20    

LEGREG > vraiment lolant, j'ai faillit me pisser dessus
 
:lol: :lol: :lol: :lol: :lol:

Reply

Marsh Posté le 28-03-2002 à 14:51:31    

Eh, LEGREG, t'as oublié le cas du hacker complètement déjanté qui veut à tout prix optimiser son prog !!
 
Hello SEGMENT
      ORG 100h
      ASSUME CS:Hello
 
Go    JMP Debut
 
Texte DB 'Hello World$'
 
Debut MOV DX, OFFSET Texte
      PUSH AX
      MOV AH,09h
      INT 21h
      POP AX
      INT 20h
 
Hello ENDS
      END Debut
 
 :lol:  :lol:  :lol:

Reply

Marsh Posté le 28-03-2002 à 15:13:01    

LEGREG >  J'imagine que tu en as d'autres des comme ça. Tu peux nous gratifier d'une URL s'il te plait ?

Reply

Marsh Posté le 28-03-2002 à 15:14:32    

pour ceux qui ne connaissent pas, y a ce truc de ouf' :
 
http://www2.latech.edu/~acm/HelloWorld.shtml


---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL
Reply

Marsh Posté le 28-03-2002 à 16:16:20    

Cherrytree a écrit a écrit :

LEGREG >  J'imagine que tu en as d'autres des comme ça. Tu peux nous gratifier d'une URL s'il te plait ?  




euh non c'est juste une des blagues qui atterrissent
parfois dans ma boite mail.
 
LEGREG

Reply

Marsh Posté le 28-03-2002 à 16:24:24    

Arrgh ! Dommage.

Reply

Marsh Posté le 28-03-2002 à 16:56:22    

juju_le_barbare a écrit a écrit :

c'est pas très dur ça lecture écriture dans un fichier...
Plutôt une fonction qui a comme paramètre "GDGGDGDGDGDGGDGDGDGDGGGDDG", et qui renvoie 1 chaine avec tous les G à gauche, et tous les D à droite...




 
un code qui marche sans lib externe.
 

Code :
  1. void trie(const char* src, char *dst) {
  2.   int cpt=0; const char *ptr = src;
  3.   while (*ptr!='\0') (*ptr++=='G')?(dst[cpt++]='G'):0;
  4.   while (src[cpt]!='\0') dst[cpt++]= 'D';
  5.   dst[cpt] = '\0';
  6. }
  8. int main() {
  9.   char src[] = "GDGGDGDGDGDGGDGDGDGDGGGDDG";
  10.   char dst[sizeof(src)];
  11.   trie (src, dst);
  12.   return 0;
  13. }


 
A+
LEGREG
edit : remaniement du code

 

[jfdsdjhfuetppo]--Message édité par legreg--[/jfdsdjhfuetppo]

Reply

Marsh Posté le 28-03-2002 à 17:55:35    

a ba non c pas ça :D
a taleur

 

[jfdsdjhfuetppo]--Message édité par bjone--[/jfdsdjhfuetppo]

Reply

Marsh Posté le 28-03-2002 à 18:31:28    

Et hop, un ti coup de php :D
<?
$chaine= "GDGGDGDGDGDGGDGDGDGDGGGDDG";
$a= Strlen($chaine);
$chaine= str_replace("D","",$chaine);
$b= $a-Strlen($chaine);
for($i=1;$i<=$b;$i++){$chaine=$chaine."D";}
echo $chaine;
?>

Reply

Marsh Posté le 28-03-2002 à 18:33:49    

En perl :

Code :
  1. $_=<>;while(s/DG/GD/){};print


 
Ou bien, en plus performant mais plus long :

Code :
  1. $l=length($_=<> );$g=tr/G//;print "G"x$g."D"x($l-$g)


 
Bien sûr ces 2 programmes prennent la chaine sur l'entrée standard.

 

[jfdsdjhfuetppo]--Message édité par matafan--[/jfdsdjhfuetppo]

Reply

Marsh Posté le 28-03-2002 à 18:38:20    

juju_le_barbare a écrit a écrit :

 
EN C++ :
#include <string.h>
#include <iostream.h>
 
char *classer(char *pasclasse)
{
int g=0, d=0;
char *classe;
for (int i=0; i<sizeof(pasclasse); i++)
 if (pasclasse[i] = 'G';)
  g++;
 else
  d++;
for (i=0; i<g; i++)
 strcat(classe, "G" );
for (i=0; i<d; i++)
 strcat(classe, "D" );
return classe;
}
 
void main()
{
cout << classer("GDGGDGDGDGDGGDGDGDGDGGGDDG" );
}




 
Marche pas ton code..
 
LEGREG

Reply

Marsh Posté le 28-03-2002 à 18:50:49    

En basic:

Code :
  1. Dim GD As String
  2.     Dim Gauche As String, Droite As String, Resulta As String
  3.     Dim i As Long
  5.    
  6.     GD = "GDGGDGDGDGDGGDGDGDGDGGGDDG"
  8.     For i = 1 To Len(GD)
  9.         If Mid(GD, i, 1) = "G" Then
  10.             'ok
  11.         ElseIf Mid(GD, i, 1) = "D" Then
  12.             'ok
  13.         Else
  14.             MsgBox "La chaine contien autre chose que G ou D", vbInformation
  15.         End If
  16.     Next i
  18.     For i = 1 To Len(GD)
  19.         If Mid(GD, i, 1) = "D" Then
  20.             Gauche = Gauche & Mid(GD, i, 1)
  21.         ElseIf Mid(GD, i, 1) = "G" Then
  22.             Droite = Droite & Mid(GD, i, 1)
  23.         Else
  24.             Exit Sub
  25.         End If
  26.     Next i
  28.     Resulta = Gauche & Droite
  29.     MsgBox Resulta, vbInformation

 

[jfdsdjhfuetppo]--Message édité par Ventilo--[/jfdsdjhfuetppo]

Reply

Marsh Posté le 28-03-2002 à 18:53:16    

Une autre en PHP :
 

Code :
  1. <?php
  2. function ToGD( $in ){ return( str_repeat( "G", substr_count( $in, "G" ) ) . str_repeat( "D", substr_count( $in, "D" ) ) ); }
  3. echo ToGD( "GDGGDGDGDGDGGDGDGDGDGGGDDG" );
  4. ?>

 

[jfdsdjhfuetppo]--Message édité par Mara's dad--[/jfdsdjhfuetppo]


---------------
Laissez l'Etat dans les toilettes où vous l'avez trouvé.
Reply

Marsh Posté le 28-03-2002 à 18:54:28    

Mara's dad a écrit a écrit :

Une autre en PHP :
 

Code :
  1. <?php
  2. function ToGD( $in ){ return( str_repeat("G", substr_count( $in, "G" ) ) . str_repeat("D", substr_count( $in, "D" ) ) ); }
  3. echo ToGD( "GDGGDGDGDGDGGDGDGDGDGGGDDG" );
  4. ?>

 




Joli :)

Reply

Marsh Posté le 28-03-2002 à 19:02:26    

J'aime bien les fonctions monolignes illisibles !
 
Mais seulement quand çà sert à rien  :D


---------------
Laissez l'Etat dans les toilettes où vous l'avez trouvé.
Reply

Marsh Posté le 02-04-2002 à 07:37:15    

le temps d'acheter des piles pour mon HP48...
 
je propose (avec gestion d'erreur très basique):
 
demande un string en entrée sur la pile.
[pre]
<<  
"" "" ""  
1 5 PICK SIZE
FOR I  
  PICK HEAD DUP
  IF "G" ==
  THEN DROP ROT "G" + ROT ROT  
  ELSE DUP
    IF "D" ==
    THEN DROP SWAP "D" + SWAP
    ELSE SWAP +  
    END
  END
  4 ROLL TAIL 4 ROLLD
NEXT  
ROT ROT +
ROT DROP SWAP "Err:" SWAP +
>>
 
[/pre]


---------------
A straight line is a special case of a curve. It's a curve which is uncurved. -- Susskind.
Reply

Marsh Posté le    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed