[TOUS LANGAGES] montrez vos codes

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [TOUS LANGAGES] montrez vos codes

Aricoh

gentil mais fo po pousser

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

Publicité

darklord

You're welcome

bin vas y balance ..

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

juju_le_barbare

Vous fiez pas aux apparences !

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

Aricoh

gentil mais fo po pousser

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

juju_le_barbare

Vous fiez pas aux apparences !

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

darklord

You're welcome

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

juju_le_barbare

Vous fiez pas aux apparences !

pardon :crazy:

http://forum.hardware.fr/forum2.ph [...] ic=&trash=

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

Aricoh

gentil mais fo po pousser

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

LeGreg

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

Code :

Terminale
-----------------------------------------------------
10 PRINT "HELLO WORLD"
20 END
DUT 1ère année
-----------------------------------------------------
program HELLO(input, output)
begin
writeln('HELLO WORLD')
end
DUT 2ème année
-----------------------------------------------------
(defun HELLO
(print
(cons 'HELLO (list 'WORLD))
)
)
Fraîchement sorti de l'école
-----------------------------------------------------
#include
void main(void) {
char *message[] = {"HELLO ", "WORLD"};
int i;
for(i = 0; i < 2; ++i)
printf("%s", message[i]);
printf("\n" );
}
Professionnel très expérimenté
-----------------------------------------------------
#include
#include
class string {
private:
int size;
char *ptr;
public:
string() : size(0), ptr(new char('\0')) {}
string(const string &s) : size(s.size) {
ptr = new char[size + 1];
strcpy(ptr, s.ptr);
}
~string() {
delete [] ptr;
}
friend ostream &operator <<(ostream &, const string
&);
string &operator=(const char *);
};
ostream &operator<<(ostream &stream, const string &s) {
return(stream << s.ptr);
}
string &string::operator=(const char *chrs) {
if (this != &chrs) {
delete [] ptr;
size = strlen(chrs);
ptr = new char[size + 1];
strcpy(ptr, chrs);
}
return(*this);
}
int main() {
string str;
str = "HELLO WORLD";
cout << str << endl;
return(0);
}
Professionnel vraiment très très expérimenté
--------------------------------------------------
-------------
-----------
--------------------------------
[
uuid(2573F8F4-CFEE-101A-9A9F-00AA00342820)
]
library LHello
{
// bring in the master library
importlib("actimp.tlb" );
importlib("actexp.tlb" );
// bring in my interfaces
#include "pshlo.idl"
[
uuid(2573F8F5-CFEE-101A-9A9F-00AA00342820)
]
cotype THello
{
interface IHello;
interface IPersistFile;
};
};
[
exe,
uuid(2573F890-CFEE-101A-9A9F-00AA00342820)
]
module CHelloLib
{
// some code related header files
importheader();
importheader();
importheader();
importheader("pshlo.h" );
importheader("shlo.hxx" );
importheader("mycls.hxx" );
// needed typelibs
importlib("actimp.tlb" );
importlib("actexp.tlb" );
importlib("thlo.tlb" );
[
uuid(2573F891-CFEE-101A-9A9F-00AA00342820),
aggregatable
]
coclass CHello
{
cotype THello;
};
};
#include "ipfix.hxx"
extern HANDLE hEvent;
class CHello : public CHelloBase
{
public:
IPFIX(CLSID_CHello);
CHello(IUnknown *pUnk);
~CHello();
HRESULT __stdcall PrintSz(LPWSTR pwszString);
private:
static int cObjRef;
};
#include
#include
#include
#include
#include "thlo.h"
#include "pshlo.h"
#include "shlo.hxx"
#include "mycls.hxx"
int CHello::cObjRef = 0;
CHello::CHello(IUnknown *pUnk) : CHelloBase(pUnk)
{
cObjRef++;
return;
}
HRESULT __stdcall CHello::PrintSz(LPWSTR pwszString)
{
printf("%ws\n", pwszString);
return(ResultFromScode(S_OK));
}
CHello::~CHello(void)
{
// when the object count goes to zero, stop the server
cObjRef--;
if( cObjRef == 0 )
PulseEvent(hEvent);
return;
}
#include
#include
#include "pshlo.h"
#include "shlo.hxx"
#include "mycls.hxx"
HANDLE hEvent;
int _cdecl main(int argc, char * argv[]) {
ULONG ulRef;
DWORD dwRegistration;
CHelloCF *pCF = new CHelloCF();
hEvent = CreateEvent(NULL, FALSE, FALSE, NULL);
// Initialize the OLE libraries
CoInitializeEx(NULL, COINIT_MULTITHREADED);
CoRegisterClassObject(CLSID_CHello, pCF,
CLSCTX_LOCAL_SERVER,
REGCLS_MULTIPLEUSE, &dwRegistration);
// wait on an event to stop
WaitForSingleObject(hEvent, INFINITE);
// revoke and release the class object
CoRevokeClassObject(dwRegistration);
ulRef = pCF->Release();
// Tell OLE we are going away.
CoUninitialize();
return(0);
}
extern CLSID CLSID_CHello;
extern UUID LIBID_CHelloLib;
CLSID CLSID_CHello = { /* 2573F891-CFEE-101A-9A9F-
00AA00342820 */
0x2573F891,
0xCFEE,
0x101A,
{ 0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20 }
};
UUID LIBID_CHelloLib = { /* 2573F890-CFEE-101A-9A9F-
00AA00342820 */
0x2573F890,
0xCFEE,
0x101A,
{ 0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20 }
};
#include
#include
#include
#include
#include
#include "pshlo.h"
#include "shlo.hxx"
#include "clsid.h"
int _cdecl main(int argc, char * argv[]) {
HRESULT hRslt;
IHello *pHello;
ULONG ulCnt;
IMoniker * pmk;
WCHAR wcsT[_MAX_PATH];
WCHAR wcsPath[2 * _MAX_PATH];
// get object path
wcsPath[0] = '\0';
wcsT[0] = '\0';
if( argc 1) {
mbstowcs(wcsPath, argv[1], strlen(argv[1]) + 1);
wcsupr(wcsPath);
} else {
fprintf(stderr, "Object path must be specified\n" );
return(1);
}
// get print string
if(argc 2)
mbstowcs(wcsT, argv[2], strlen(argv[2]) + 1);
else
wcscpy(wcsT, L"Hello World" );
printf("Linking to object %ws\n", wcsPath);
printf("Text String %ws\n", wcsT);
// Initialize the OLE libraries
hRslt = CoInitializeEx(NULL, COINIT_MULTITHREADED);
if(SUCCEEDED(hRslt)) {
hRslt = CreateFileMoniker(wcsPath, &pmk);
if(SUCCEEDED(hRslt))
hRslt = BindMoniker(pmk, 0, IID_IHello,
(void **)&pHello);
if(SUCCEEDED(hRslt)) {
// print a string out
pHello->PrintSz(wcsT);
Sleep(2000);
ulCnt = pHello->Release();
} else
printf("Failure to connect, status: %lx",
hRslt);
// Tell OLE we are going away.
CoUninitialize();
}
return(0);
}
Administrateur Système
-----------------------------------------------------
#include
main() {
char *tmp;
int i=0;
/* on y va bourin */
tmp=(char *)malloc(1024*sizeof(char));
while (tmp[i]="HELLO WORLD"[i++]);
/* Ooopps y'a une infusion ! */
i=(int)tmp[8];
tmp[8]=tmp[9];
tmp[9]=(char)i;
printf("%s\n",tmp);
}
Apprenti Hacker
-----------------------------------------------------
#!/usr/local/bin/perl
$msg="HELLO, WORLD.\n";
if ($#ARGV >= 0) {
while(defined($arg=shift(@ARGV))) {
$outfilename = $arg;
open(FILE, ">" . $outfilename) || die "Can't write
$arg: $!\n";
print (FILE $msg);
close(FILE) || die "Can't close $arg: $!\n";
}
} else {
print ($msg);
}
1;
Hacker expérimenté
-----------------------------------------------------
#include
#define S "HELLO, WORLD\n"
main(){exit(printf(S) == strlen(S) ? 0 : 1);}
Hacker très expérimenté
-----------------------------------------------------
% cc -o a.out ~/src/misc/bv/bv.c
% a.out
Gourou des Hackers
-----------------------------------------------------
% cat
HELLO, WORLD.
^D
Directeur junior
-----------------------------------------------------
10 PRINT "HELLO WORLD"
20 END
Directeur
-----------------------------------------------------
mail -s "HELLO, WORLD." bob@b12
Henri, pourrais-tu m'écrire un programme qui écrit "HELLO,
WORLD." À l'écran?
J'en ai besoin pour demain.
^D
Directeur sénior
-----------------------------------------------------
% zmail Jean
J'ai besoin d'un programme "HELLO, WORLD." Pour cette
après-midi.
Président Directeur Général
-----------------------------------------------------
% letter
letter: Command not found.
% mail
To: ^X ^F ^C
% help mail
help: Command not found.
% damn!
!: Event unrecognized
% logout

LEGREG

Jar Jar

Intaigriste

En Python :

Code :

machaine="GDGGDGDGDGDGGDGDGDGDGGGDDG"
def trier(chaine):
return chaine.count("G" )*"G"+chaine.count("D" )*"D"
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

Publicité

Sh@rdar

Ex-PhPéteur

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

ITM

Avatar peint à la main

legreg : LOL
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

kadreg

profil: Utilisateur

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 :

String machaine="GDGGDGDGDGDGGDGDGDGDGGGDDG" ;
String result;
machaine.substitute ("G", "G:" );
machaine.substitute ("D", "D:" );
machaine.strip (":" );
machaine.segment (":" ) {
if (self == "G" ) {
result.prepend (self);
} else {
result.strcat (self);
}
}
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 !

gfive

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();
}
}
}

vapo

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

Jar Jar

Intaigriste

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

Aricoh

gentil mais fo po pousser

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

Bloodymary_

LEGREG : :lol: :lol: :lol: :lol: :lol: :lol: :lol:

Du grand art !

C_Po_Ma_Faute

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

:lol: :lol: :lol: :lol: :lol:

Harkonnen

Modérateur
Un modo pour les bannir tous

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:

Cherrytree

cn=?

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

Aricoh

gentil mais fo po pousser

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

LeGreg

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

Cherrytree

cn=?

Arrgh ! Dommage.

LeGreg

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 :

void trie(const char* src, char *dst) {
int cpt=0; const char *ptr = src;
while (*ptr!='\0') (*ptr++=='G')?(dst[cpt++]='G'):0;
while (src[cpt]!='\0') dst[cpt++]= 'D';
dst[cpt] = '\0';
}
int main() {
char src[] = "GDGGDGDGDGDGGDGDGDGDGGGDDG";
char dst[sizeof(src)];
trie (src, dst);
return 0;
}

A+
LEGREG
edit : remaniement du code

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

bjone

Insert booze to continue

a ba non c pas ça
a taleur

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

minooye

Et hop, un ti coup de php
<?
$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;
?>

matafan

En perl :

Code :

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

Ou bien, en plus performant mais plus long :

Code :

$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]

LeGreg

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

Ventilo

Ventilo? Depuis 1998!

En basic:

Code :

Dim GD As String
Dim Gauche As String, Droite As String, Resulta As String
Dim i As Long
GD = "GDGGDGDGDGDGGDGDGDGDGGGDDG"
For i = 1 To Len(GD)
If Mid(GD, i, 1) = "G" Then
'ok
ElseIf Mid(GD, i, 1) = "D" Then
'ok
Else
MsgBox "La chaine contien autre chose que G ou D", vbInformation
End If
Next i
For i = 1 To Len(GD)
If Mid(GD, i, 1) = "D" Then
Gauche = Gauche & Mid(GD, i, 1)
ElseIf Mid(GD, i, 1) = "G" Then
Droite = Droite & Mid(GD, i, 1)
Else
Exit Sub
End If
Next i
Resulta = Gauche & Droite
MsgBox Resulta, vbInformation

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

Mara's dad

Yes I can !

Une autre en PHP :

Code :

<?php
function ToGD( $in ){ return( str_repeat( "G", substr_count( $in, "G" ) ) . str_repeat( "D", substr_count( $in, "D" ) ) ); }
echo ToGD( "GDGGDGDGDGDGGDGDGDGDGGGDDG" );
?>

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

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

minooye

Mara's dad a écrit a écrit :

Une autre en PHP :

Code :

<?php
function ToGD( $in ){ return( str_repeat("G", substr_count( $in, "G" ) ) . str_repeat("D", substr_count( $in, "D" ) ) ); }
echo ToGD( "GDGGDGDGDGDGGDGDGDGDGGGDDG" );
?>

Joli

Mara's dad

Yes I can !

J'aime bien les fonctions monolignes illisibles !

Mais seulement quand çà sert à rien

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

TBone

Pouet.

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]

---------------
As the plane took off, the pilot turned to the co-pilot and said, “Have you ever flown solo?” Co-pilot: No. Typically I fly much higher than this.

Publicité

FORUM HardWare.fr

Programmation

[TOUS LANGAGES] montrez vos codes

Sujets relatifs
apprendre les differents langages	[C++] Avoir plein de codes
Liste des codes Erreur ->GetLastError() ou je peux la trouver???	recherche lignes de codes pour ouvrir une feuille html...
[ tous les langages ] A ceuw qui ont fait un chat	[VBA] Excel : besoin de divers codes...
Insertion des lignes de codes ???	Sondage sur les langages --> (améliorations...!)
Insérer une carte "codes postaux" sous EXCEL	Codes Javascripts
Plus de sujets relatifs à : [TOUS LANGAGES] montrez vos codes

Page générée en 0.132 secondes