fork download
copy 
  1. extract_year(DDMMYYYY, YYYY) :- YYYY is mod(DDMMYYYY, 10000).
  2. extract_day(DDMMYYYY, DD) :- DD is DDMMYYYY // 1000000.
  3. extract_month(DDMMMYYYY, MM) :- DDMM is DDMMMYYYY // 10000, MM is mod(DDMM, 100).
  4.  
  5. :- extract_year(12071992,Y),writeln(Y),
  6.    extract_day(12071992,D),writeln(D),
  7.    extract_month(12071992,M),writeln(M),
  8.    YYYYMMDD is (Y * 10000) + (M * 100) + D,
  9.    writeln(YYYYMMDD).
Success #stdin #stdout #stderr 0.02s 6204KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1992
12
7
19920712
stderr
copy 

    

	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			

			                        







			
			

				

	
					
					 https://ideone.com/QDLqef
					
					
					
					
					

												

												
						
						

					

					
					
					

						
language:

						
Prolog (swi 7.6.4)

					

					

						
created:
								
						
10 years ago

					

					

						
visibility:

						

							 public																												
							
							

								
							

						

					

										
										

					
					 Share or Embed source code
					
					
					
					

						
						
						
						
						
						
						
					

					
						
	
	
	
	
					
					
					
					
					 
					
					
					
					 
					
					
					
					
					
					

					

					

					
						
					

					


	
Discover > Sphere Engine API

	
The brand new service which powers Ideone!

	
	
Discover > IDE Widget

    
Widget for compiling and running the source code in a web browser!